Version 3.0
常见标准控件第五章
2
回顾
数组
– 一维数组
– 多维数组
– 动态数组
– 控件数组
自定义数据类型
使用随机函数 Rnd
3
目标
使用图片框控件和图像控件加载图片
使用框架中的复选框和选项按钮操作选项
使用列表框和组合框控件选择列表
使用 Timer 控件创建 Timer 应用程序
4
图片框控件 2-1
图片框可用于显示位图、图标,JPEG 或
GIF 等类型的图片
它也可以用作容器框 架
在图片框中加载图片时，图片会保持它原来的大小
在工具栏上的显示：
5
图片框控件 2-2
如果图片框控件用作其他控件的容器，
则放置在图片控件内的所有控件都可随图片控件一起移动
使用 Align 属性，可以将控件与窗体的顶部、左侧、右侧或底部对齐
在 VB 环境中进行演示
6
图像控件
可用于显示位图、图标,JPEG 或 GIF 等类型的图片
具有 Stretch 属性，可使放置在控件中的图像 根据 控件大小进行缩放
在工具栏上的显示：
7
在 VB环境中进行演示添加图片框或图像控件
8
在运行时加载图片 2-1
可以使用 LoadPicture 函数指定图形文件的 路径和文件名，为图片框或图像控件的 Picture 属性 指定 图片
示例在 VB中创建名为 picture1的图片框控件，
Private Sub Form_Load()
picture1.Picture =
LoadPicture("C:\Picture_files\rocket.jpg")
End Sub
9
在运行时加载图片 2-2
可以使用 Set关键字和赋值操作符,=”将图片从一个对象复制到另一个对象：
例如：
Set image1.Picture = picture1.Picture
可以使用 LoadPicture函数删除图片例如：
Set image1.Picture = LoadPicture("")
10
图片框控件 图像控件不 能根据控件的大小缩放图片 具有 Stretch 属性，该属性可用于根据控件的大小缩放图片使用的系统资源 相 对较多 使用的系统资源 相对较少具有 Align 属性，使用该属性可以将控件与窗体的顶部、左侧、右侧或底部对齐没有 Align 属性可用作其他控件的容器 无法用作容器图片框控件和图像控件的区别
11
复选框控件
复选框控件用于显示多个选项，用户在运行时可以从中选择一项或多项
在工具栏上的显示：
在 VB环境中进行演示
12
选项按钮控件
单选按钮（也称,选项按钮,）,用户可以从多个选项中选择一项且只可能选择一项
在工具栏上的显示：
在 VB 环境中进行演示
13
框架中的复选框和选项按钮
使用框架控件，可以 在 插入一组控件 的同时添加描述这些控件用途的标题
要创建组，需要将选项按钮或复选框放入框架内
14
使用复选框和选项按钮 –示例
在 VB环境中创建如下图的窗体：
15
获取复选框或选项按钮的值
使 用控件的 Value 属性，可以确定是否选择了某个复选框或选项按钮选中返回的值 未选中返回的值复选框 1 0
选项按钮 True False
16
获取 复选框的值 – 示例对幻灯片 13 中的示例，进行编码获取复选框的值。当用户选中某个复选框时，会显示消息框。
Private Sub optSubject_Click(Index As Integer)
If optSubject(Index).Value = 1 Then
MsgBox ("选择了 " &
optSubject(Index).Caption,vbInformation +
vbOKOnly,"课程安排 ")
End If
End Sub
17
获取选项按钮的值 – 示例对幻灯片 13 中的示例，进行编码获取选项按钮的值。当用户选中某个选项按钮时，会显示消息框。
Private Sub chkDate_Click(Index As Integer)
If chkDate(Index).Value = True Then
MsgBox ("选择了 " & " " &
chkDate(Index).Caption,vbInformation +
vbOKOnly,"学期安排 ")
End If
End Sub
18
复选框和选项按钮的区别复选框控件 选项按钮控件在一 组复选框中可以选择多个复选框在一 组 单选框中只能选择一个选项按钮
19
列表框控件
列表框显示 有 多个选项的选项列表，供用户从中选择
在工具栏上的显示：
示例：
20
组合框控件
组合框控件组合了文本框和列表框的特性
用户既 可以 键入文本，也可以直接从列表中选择
在工具栏上的显示：
示例
21
列表框属性属 性 说 明
ListIndex 是一个数字，用于访问列表框中的各个元素
Sorted 用于按排序顺序显示项目
MultiSelect 用于指定用户是否可以在列表中选择多个项目
ListCount 用于返回列表框中的项目数量
Selected 设置列表框控件中项目的选择状态
22
组合框属性
组合框具有文本框和列表框的属性，另外还具有一些特有的属性属 性 说 明
Style 用 于决定组合框的外观，有三种样式可选：
– 简单组合框
– 下拉组合框
– 下拉列表
Locked 用于 指定用户是否可以键入文字
23
在运行时创建新的选项
AddItem 方法用于向列表框或组合框中添加指定的项目
缺省情况下，新项目添加到列表的末尾
24
在运行时创建新的选项 –示例
Private Sub Form_Load()
Dim cnt As Integer
lstSubject.AddItem ("数学 ")
lstSubject.AddItem ("生物 ")
lstSubject.AddItem ("化学 ")
lstSubject.AddItem ("统计 ")
lstSubject.AddItem ("物理 ")
For cnt = 1 To 5
cmbGrade.AddItem (cnt & "年级 ")
Next cnt
End Sub
一个窗体包含名为 lstSubject 的列表框和名为
cmbGrade 的组合框，在该窗体的 Load事件中编写代码，添加新的选项。
（在 VB环境中演示）
25
列表框和组合框之间的区别列表框控件 组合框控件具有 MultiSelect 属性，使用该属性，用户可以从列表中选择多个选项没有 MultiSelect 属性列表项前面允许有复选框 没 有复选框用户只能从列表框中选择选项 组合框是列表框与文本框的组合
，用户既可以选择选项，也可以在组合框中 键 入新文本适合在窗体上有足够空间来容纳控件时使用适合在窗体上的空间有限时使用
26
Timer 控件
使用 Timer控件 可用来在 一定的时间间隔执行某些操作
Timer 控件对用户不可见,常用于作后台处理
27
Timer 控件属性属 性 说 明
Interval 此属性返回或设置两次调用,Timer”控件的,Timer”
事件 间隔的时间（毫秒），有效范围是 1-65535之间
Enabled 此属性确定控件 在经过指定时间后是否 会做出响应，若设为,false”，将关闭 Timer控件，若设为
,true”则启用 Timer控件
28
编写 Timer 控件事件代码
编写 Timer 事件的 典 型语法：
Private Sub Timer1_Timer()
…
<Event Code>
…
End Sub
29
使用 Timer 控件 – 示例
在 VB环境中演示本章教材“编写 Timer
控件的事件代码”部分的示例
30
总结
图片框和图像控件的使用
复选框和选项按钮的使用
列表框和组合框的使用
使用定时器控件进行编码
常见标准控件第五章
2
回顾
数组
– 一维数组
– 多维数组
– 动态数组
– 控件数组
自定义数据类型
使用随机函数 Rnd
3
目标
使用图片框控件和图像控件加载图片
使用框架中的复选框和选项按钮操作选项
使用列表框和组合框控件选择列表
使用 Timer 控件创建 Timer 应用程序
4
图片框控件 2-1
图片框可用于显示位图、图标,JPEG 或
GIF 等类型的图片
它也可以用作容器框 架
在图片框中加载图片时，图片会保持它原来的大小
在工具栏上的显示：
5
图片框控件 2-2
如果图片框控件用作其他控件的容器，
则放置在图片控件内的所有控件都可随图片控件一起移动
使用 Align 属性，可以将控件与窗体的顶部、左侧、右侧或底部对齐
在 VB 环境中进行演示
6
图像控件
可用于显示位图、图标,JPEG 或 GIF 等类型的图片
具有 Stretch 属性，可使放置在控件中的图像 根据 控件大小进行缩放
在工具栏上的显示：
7
在 VB环境中进行演示添加图片框或图像控件
8
在运行时加载图片 2-1
可以使用 LoadPicture 函数指定图形文件的 路径和文件名，为图片框或图像控件的 Picture 属性 指定 图片
示例在 VB中创建名为 picture1的图片框控件，
Private Sub Form_Load()
picture1.Picture =
LoadPicture("C:\Picture_files\rocket.jpg")
End Sub
9
在运行时加载图片 2-2
可以使用 Set关键字和赋值操作符,=”将图片从一个对象复制到另一个对象：
例如：
Set image1.Picture = picture1.Picture
可以使用 LoadPicture函数删除图片例如：
Set image1.Picture = LoadPicture("")
10
图片框控件 图像控件不 能根据控件的大小缩放图片 具有 Stretch 属性，该属性可用于根据控件的大小缩放图片使用的系统资源 相 对较多 使用的系统资源 相对较少具有 Align 属性，使用该属性可以将控件与窗体的顶部、左侧、右侧或底部对齐没有 Align 属性可用作其他控件的容器 无法用作容器图片框控件和图像控件的区别
11
复选框控件
复选框控件用于显示多个选项，用户在运行时可以从中选择一项或多项
在工具栏上的显示：
在 VB环境中进行演示
12
选项按钮控件
单选按钮（也称,选项按钮,）,用户可以从多个选项中选择一项且只可能选择一项
在工具栏上的显示：
在 VB 环境中进行演示
13
框架中的复选框和选项按钮
使用框架控件，可以 在 插入一组控件 的同时添加描述这些控件用途的标题
要创建组，需要将选项按钮或复选框放入框架内
14
使用复选框和选项按钮 –示例
在 VB环境中创建如下图的窗体：
15
获取复选框或选项按钮的值
使 用控件的 Value 属性，可以确定是否选择了某个复选框或选项按钮选中返回的值 未选中返回的值复选框 1 0
选项按钮 True False
16
获取 复选框的值 – 示例对幻灯片 13 中的示例，进行编码获取复选框的值。当用户选中某个复选框时，会显示消息框。
Private Sub optSubject_Click(Index As Integer)
If optSubject(Index).Value = 1 Then
MsgBox ("选择了 " &
optSubject(Index).Caption,vbInformation +
vbOKOnly,"课程安排 ")
End If
End Sub
17
获取选项按钮的值 – 示例对幻灯片 13 中的示例，进行编码获取选项按钮的值。当用户选中某个选项按钮时，会显示消息框。
Private Sub chkDate_Click(Index As Integer)
If chkDate(Index).Value = True Then
MsgBox ("选择了 " & " " &
chkDate(Index).Caption,vbInformation +
vbOKOnly,"学期安排 ")
End If
End Sub
18
复选框和选项按钮的区别复选框控件 选项按钮控件在一 组复选框中可以选择多个复选框在一 组 单选框中只能选择一个选项按钮
19
列表框控件
列表框显示 有 多个选项的选项列表，供用户从中选择
在工具栏上的显示：
示例：
20
组合框控件
组合框控件组合了文本框和列表框的特性
用户既 可以 键入文本，也可以直接从列表中选择
在工具栏上的显示：
示例
21
列表框属性属 性 说 明
ListIndex 是一个数字，用于访问列表框中的各个元素
Sorted 用于按排序顺序显示项目
MultiSelect 用于指定用户是否可以在列表中选择多个项目
ListCount 用于返回列表框中的项目数量
Selected 设置列表框控件中项目的选择状态
22
组合框属性
组合框具有文本框和列表框的属性，另外还具有一些特有的属性属 性 说 明
Style 用 于决定组合框的外观，有三种样式可选：
– 简单组合框
– 下拉组合框
– 下拉列表
Locked 用于 指定用户是否可以键入文字
23
在运行时创建新的选项
AddItem 方法用于向列表框或组合框中添加指定的项目
缺省情况下，新项目添加到列表的末尾
24
在运行时创建新的选项 –示例
Private Sub Form_Load()
Dim cnt As Integer
lstSubject.AddItem ("数学 ")
lstSubject.AddItem ("生物 ")
lstSubject.AddItem ("化学 ")
lstSubject.AddItem ("统计 ")
lstSubject.AddItem ("物理 ")
For cnt = 1 To 5
cmbGrade.AddItem (cnt & "年级 ")
Next cnt
End Sub
一个窗体包含名为 lstSubject 的列表框和名为
cmbGrade 的组合框，在该窗体的 Load事件中编写代码，添加新的选项。
（在 VB环境中演示）
25
列表框和组合框之间的区别列表框控件 组合框控件具有 MultiSelect 属性，使用该属性，用户可以从列表中选择多个选项没有 MultiSelect 属性列表项前面允许有复选框 没 有复选框用户只能从列表框中选择选项 组合框是列表框与文本框的组合
，用户既可以选择选项，也可以在组合框中 键 入新文本适合在窗体上有足够空间来容纳控件时使用适合在窗体上的空间有限时使用
26
Timer 控件
使用 Timer控件 可用来在 一定的时间间隔执行某些操作
Timer 控件对用户不可见,常用于作后台处理
27
Timer 控件属性属 性 说 明
Interval 此属性返回或设置两次调用,Timer”控件的,Timer”
事件 间隔的时间（毫秒），有效范围是 1-65535之间
Enabled 此属性确定控件 在经过指定时间后是否 会做出响应，若设为,false”，将关闭 Timer控件，若设为
,true”则启用 Timer控件
28
编写 Timer 控件事件代码
编写 Timer 事件的 典 型语法：
Private Sub Timer1_Timer()
…
<Event Code>
…
End Sub
29
使用 Timer 控件 – 示例
在 VB环境中演示本章教材“编写 Timer
控件的事件代码”部分的示例
30
总结
图片框和图像控件的使用
复选框和选项按钮的使用
列表框和组合框的使用
使用定时器控件进行编码
