新建工程
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
键盘事件
此处略
文件操作
待续原文链接:https://www.f2er.com/vb/256141.html