加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

VB学习-基础

发布时间:2020-12-16 23:53:20 所属栏目:大数据 来源:网络整理
导读:新建工程 1、新建 2、保存:点击保存按钮即可。 3、运行:F5 4、生成.exe文件:保存-生成xx.exe 5、退出:Alt + Q 数据类型 1、数值型(Numeric) Dim a As Interger = 123Dim b As Long = 2222222222Dim c As Single = 1.23 2、字符型(String) Dim str As

新建工程

1、新建

2、保存:点击保存按钮即可。
3、运行:F5
4、生成.exe文件:保存->生成xx.exe


5、退出:Alt + Q

数据类型

1、数值型(Numeric)

Dim a As Interger = 123
Dim b As Long = 2222222222
Dim c As Single = 1.23

2、字符型(String)

Dim str As String = "husong"

3、字节型(Byte)

Dim dd1() As Byte
dd1() = "10101010"
Dim dd2 As Byte
dd2 = 1

4、布尔类型(Boolean)

Dim b As Boolean = true

5、日期(Date)

Dim date As Date = Now
Dim date1 As Date = Time
Dim date2 As Date = Date

6、对象(Object)

7、变体型(Variant)

函数

1、形参修饰符ByVal和ByRef

ByVal表示该形参是按值传递的,ByRef传递的是引用。

2、Public和Private区别

Public 表示 Sub或函数 可被其他类的所有函数调用。 
Private 表示 Sub或函数 只能被当前页或者窗体调用。

3、Sub和Function的区别

Sub 表示一个没有返回值的函数过程。
Function表示有返回值,通常后面会加上 As [类型]

自定义类

1、在工程中添加类模块
2、自定义Private属性或方法
3、自定义Public属性或方法

模块和类模块

标准模块 - 也是所谓公共模块,在其中用public声明的所有变量、对象、函数和过程,可以在整个工程中,被其它任何对象直接调用,比如,你在其中声明了上述朋友声明的那个函数:
Public Function myadd(a As Long,b As Long) As Long
    myadd = a + b
End Function
它在包括窗体,类中都可以直接使用...
类模块 - 它是对象(标准模块不是),对象就有自己的的属性方法事件等等,对象要实例化以后才能调用其属性方法和事件

Type类型

1、就是自定义结构体struct
2、在标准模块中,用户自定义类型按缺省设置是公用的。可以使用 Private 关键字来改变其可见性。而在类模块中,用户自定义类型只能是私有的,且使用 Public 关键字也不能改变其可见性。

Static变量

Public Sub test1(a As Integer)
    Static ss As Integer
    Dim result As Integer
    ss = ss + a
    Form1.Label1.Caption = ss
End Sub
// 输出自增结果
Public Sub test2(a As Integer)
    Dim ss As Integer
    Dim result As Integer
    ss = ss + a
    Form1.Label2.Caption = ss
End Sub
// 一直输出1

显示声明和隐式声明

在VB窗口菜单“工具”>“选项”中的“编辑器”选项卡中有个“要求变量声明”复选框。如被选中并保存,则在窗体模块代码中会自动添加一行代码:
Option Explicit

定长字符串

Dim str As String  * strLength
如果字符串长度小于声明的长度,剩余部分为空格。若长于,会截断。

const常量

不能修改const常量

窗体切换

Unload Me
Form2.Show

&和_

& 是字符串的连接符号
_ 是代码行的连接符号

注释

'或Rem

if语句

Form1.Label1.Caption = X
Form1.Label2.Caption = Y
If X > 5000 Then
Form1.Label3.Caption = "X超过5000"
Else
Form1.Label3.Caption = "X小于5000"
End If

select case语句

Select Case X
Case 1000
Form1.Label3.Caption = "X等于1000"
Case 2000
Form1.Label3.Caption = "X等于2000"
Case 3000
Form1.Label3.Caption = "X等于3000"
Case 4000
Form1.Label3.Caption = "X等于4000"
End Select

for语句

For i = 1 To 5
Next i

枚举循环

For Each element In group
Next element

过程和函数

函数通常是有返回值的,而过程通常没有返回值。
给函数传递参数时,可通过As指定参数类型,也可以使用As Any禁止参数的类型检查,即可以传递任意类型的参数给该函数。

固定数组

Dim arr(5) As Integer
For i = 1 To 5
arr(i - 1) = i
Next i

For i = 0 To 4
Print arr(i)
Next i

动态数组

Dim arr() As Integer
ReDim arr(0 To 4) As Integer
For i = LBound(arr) To UBound(arr)
arr(i) = (i + 1) * 10
Next i
For Each e In arr
Print e
Next e
// 输出 10 20 30 40 50

错误处理

On Error GoTo 0
表示禁止当前过程中任何已启动的错误处理程序。
On Error Resume Next
说明当一个运行时错误发生时,控件转到紧接着发生错误的语句之后的语句,并在此继续运行。访问对象时要使用这种形式而不使用 On Error GoTo。
On Error GoTo line
启动错误处理程序,且该例程从必要的 line 参数中指定的 line 开始。line 参数可以是任何行标签或行号。如果发生一个运行时错误,则控件会跳到 line,激活错误处理程序。指定的 line 必须在一个过程中,这个过程与 On Error 语句相同; 否则会发生编译时间错误。
以上MSDN上的解释
一般情况下,如果在对我们创建的对象或控件进行错误捕捉,需要使用On Error Resume Next ,然后在判断它的Err.Number,根据错误类型来做相应的处理。

启动窗体的设置

菜单编辑

顶层菜单不能有....

MsgBox

MsgBox 类型参数取值

MsgBox 返回值

InputBox

InputBox(Prompt,[Title],[Default],[XPos],[YPos],[Helpfile],[Context])
参数1:必需填写,窗口显示的内容;
参数2:窗口的名字,默认为工程名;
参数3:输入框默认内容;
参数4、5:距离屏幕的位置;
参数6、7:必须结合使用。

CommonDialog控件

勾选 部件micorsoft commom dialog contorl 6.0添加控件
.showopen

CommonDialog控件 - 字体

字体选框

CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.ShowFont

返回值

CommonDialog控件 - 颜色

CommonDialog1.ShowColor

CommonDialog控件 - 打印

CommonDialog1.ShowPrinter

CommonDialog控件 - 保存

CommonDialog1.ShowSave

CommonDialog控件 - 帮助

CommonDialog1.ShowHelp

CommonDialog控件 -自定义对话框

暂略

VB控件

Label控件
TextBox控件
CommandButton控件
PictureBox控件(Image和ImageList)
图形控件(Shap和Line)
CheckBox控件(对勾)
选项组OptionButton(原点)
ListBox和ComboBox
MonthView和DateTimePicker
Slider和UpDown
ListView和TreeView
Frame/SSTab/TabStrip
StatusBar
ProgressBar
Animation

控件数组

控件数组是一组具有共同名称和类型的控件。一个控件数组至少有一个元素。控件数组有共同事件过程,通过index来标识每个控件。
Private Sub Command1_Click(Index As Integer)
Select Case Index
    Case 0:
    Print "0"
    Case 1:
    Print "1"
    Case 2:
    Print "2"
    Case 3:
    Print "3"
End Select
End Sub

键盘事件

此处略

文件操作

待续

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读