VB学习-基础

新建工程

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

键盘事件

此处略

文件操作

待续

（编辑：李大同）

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