2016第章电子讲稿.ppt

本章主要内容 其他一些常用语句 框架(Frame) 滚动条(ScrollBar) 图形方法和图形控件 菜单设计 工具栏和状态栏 键盘与鼠标事件 对话框 通用对话框(CommonDialog) 文件系统控件 10.1.1 强制显式声明变量语句(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 10.1.3 自定义数据类型 用户可以利用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 例10.1 应用枚举类型示例 输入一个数字表示星期几，判断输出是“休息日”还是“工作日” Private Enum weekdays 定义Weekdays为枚举类型 Sun Mon Tue Wed Thu Fri Sat End Enum Private Sub Command1_Click() Dim myday As weekdays 定义Myday为Weekdays枚举类型 myday = Val(InputBox(今天是星期几(0～6))) 输入0～6 If myday Sun Or myday Sat Then