文档介绍：第
10
其他常用的
语句及控件
本章主要内容
其他一些常用语句
框架(Frame)
滚动条(ScrollBar)
图形方法和图形控件
菜单设计
工具栏和状态栏
键盘与鼠标事件
对话框
monDialog)
文件系统控件
第10章其他常用的语句及控件
强制显式声明变量语句(Option Explicit)
避免因为写错变量名而导致错误
例如,交换变量a、b的值
Temp=a
a=b
b=Tmp '把Temp写错成Tmp
运行结果是使b的值为0。若改成:
Option Explicit‘模块级声明
Dim a As Integer,b As Integer,Temp As Integer
. . .
Temp=a
a=b
b=Tmp
运行时VB就会发出警告“Variable not defined”(变量未定义),只有把Tmp改为Temp后才恢复正常
其他常用语句
格式:Def类型标志字母范围
功能:在模块级声明段中定义变量(相应数据类型)
示例:DefInt m-P
自定义数据类型
用户可以利用Type语句定义自己的数据类型
[Private|Public] Type 数据类型名
元素名1 As 类型名1
[元素名2 As 类型名2]
……
End Type
定义变量类型
Type Rsk_Rec
编号 As String*3 ’用汉字表示字段名
姓名 As String*8
性别 As Boolean
出生日期 As Date
基本工资 As Long
End Type
这里的Rsk_Rec是一个用户定义的数据记录类型,它由5个元素(字段)组成
所谓“枚举”是指将变量的值一一列举出来,变量的值只限于列举出来的值
[Public|Private] Enum 枚举类型名
成员名1 [=常数表达式]
成员名2 [=常数表达式]
……
End Enum
定义枚举类型
输入一个数字表示星期几,判断输出是“休息日”还是“工作日”
Private Enum weekdays '定义Weekdays为枚举类型
Sun
Mon
Tue
Wed
Thu
Fri
Sat
End Enum
应用枚举类型示例
Private mand1_Click()
Dim myday As weekdays '定义Myday为Weekdays枚举类型
myday = Val(InputBox("今天是星期几(0~6)")) '输入0~6
If myday <Sun Or myday > Sat Then
MsgBox "输入的星期数错误"
Else
If myday = Sun Or myday = Sat Then
MsgBox "休息日"
Else
MsgBox "工作日"
End If
End If
End Sub
包括GoTo语句和On...GoTo语句
1. GoTo语句
语法格式:GoTo {行号|标号}
功能:改变程序的执行顺序,跳转到程序中指定的行开始执行
应用GoTo语句示例
Private Sub Form_Load()
Show
Print "整型数"
GoTo Line1 '跳转到标号Line1指定的行
Print "单精度数"
Line1:
Print "字符串"
End Sub
GoTo型控制
On...GoTo语句用来实现分支选择控制(类似于Select...End Select)
语法格式:On 数值表达式 GoTo {行号表|标号表}
功能:根据“数值表达式”的值,控制转移到几个指定的语句行中的一个语句行。
例如
On K GoTo Line1, Line2, Line3
执行过程:将K四舍五入取整,如果其值为1,则转移到Line1标号行;如果为2,则转移到Line2标号行;如果为3,则转移到Line3标号行。如果K的值等于0或大于3,则自动执行本语句的下一个语句
2. On...GoTo语句