文档介绍：第
10
其他常用的
语句及控件
VB中的控件分为两类:一是标准控件,二是ActiveX控件。
默认情况下工具箱中只有标准控件,用户也可通过“工程”菜单中的“部件”命令添加所需的ActiveX控件。
第10章其他常用的语句及控件
框架(Frame)
滚动条(ScrollBar)
图形方法和图形控件
菜单设计
工具栏和状态栏
键盘与鼠标事件
对话框通用/自定义
文件系统控件
其他常用语句
本
章
主
要
内
容
退出
强制显式声明变量语句(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后才恢复正常
其他常用语句
自定义数据类型
用户可以利用Type语句定义自己的数据类型
[Private|Public] Type 数据类型名
元素名1 As 类型名1 ……
End Type
定义枚举类型
将变量的值一一列举出来,变量的值只限于列举出来的值
[Public|Private] Enum 枚举类型名
成员名1 [=常数表达式] ……
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语句
1. 直接输出
把信息直接送往打印机
格式: [表达式表] (将表达式表的值在打印机上打印出来)
(1)Page属性:设置当前页号
格式:(开始为1,打完一页后自动增1)
(2)NewPage方法:实现换页操作
格式:(强制打印机跳到下一页打印)
(3)EndDoc方法:结束文件打印
格式:(重置Page属性值为1)
在打印机上打印文字“计算机程序设计”
Private mand1_Click()
= "隶书"
= 12
“计算机程序设计