vb程序设 常用标准控件
单选按钮/复选框 P181
❖ OptionButton 斥的选项。
单项选择提供一组彼此相互排
❖ CheckBox 多项选择用户可以同时选择任意多 个选项，实现一种“不定项选择”的功能。
1. 常用属性
①Caption属性：按钮上显示的文本
②Value属性：设置/获得当前的选择状态
列表框/组合框
2.常用方法 ①AddItem方法：向列表框/组合框添加/插入新的
列表项。 <格式> 列表框名/组合框名.AddItem Item,[Index]
Item：是添加到列表中的字符串表达式 [Index]：指定在列表中插入新项目的位置；若缺省
则在列表末尾添加（Sorted为False）。
例如：获取List1当前被选择的列表项 List1.list(List1.ListIndex)
提问：以上语句与List1.Text有什么区别？
③ListCount属性：当前列表项的总项数 ④ListIndex属性：当前选定项目的下标索引，范围从
0~Listcount-1；若当前未选中任何项，值为-1。
HScroll1
HScroll2 HScroll3
Text1
Text2
Text3 Text4
程序演 示
用控件数组完成相应功能：
滚动条
HScroll1(0)
HScroll1(1) HScroll(2)
Text1
Text2(0)
Text2(1) Text2(2)
程序演 示
非控件数组
滚动条
控件数组
时钟 P193
❖创建： 利用“复制”第一个控件，再“粘贴”的方法
程序演示
单选按钮代码
非控件数组
控 件 数 组
复选框代码
非控件数组
控 件 数 组
框架 P194
❖ Frame ——作为容器放置其他控件对象，并 将这些控件对象分成可标识的控件组。
1.框架内控件的创建方法：
▪ 单击工具箱上的控件，在框架中适当位置拖拉 出适当大小的控件。（不能使用双击工具箱上 图标的自动方式。）
Timer： ——按一定时间间隔触发事件控件；常用 于实现需要定时重复执行的任务。时钟控件运行时 不显示。 1.常用属性 ①Interval属性：设置定时器触发事件的时间间隔 单位：毫秒ms(0.001s)，如：0.5s=500ms 范围：（0~65535） 注：Interval＝0：计时器无效 ②Enabled属性：设定时钟是否有效；默认为True， 表示有效，开始计时。若设置为False，则定时器无 效。 2.唯一事件：Timer事件 [P193 例9-7]：电子时钟
单选按钮
复选框
True: 单选钮被选定 False: 单选钮未被选定，
缺省设置
0--Unchecked：未选 1--Checked：选定 2--Grayed：灰色
2.常用事件：Click事件
单选按钮/复选框 P183
[P183例9-1]用单选按钮和复选框设置在文本框中字体 的样式。 若用控件数组 怎么编程?
②RemoveItem方法：
从列表框/组合框中删除指定位置的列表项 <格式> 列表框名/组合框名.RemoveItem Index
Index：要删除项目在列表中的位置
列表框/组合框
实例：执行下面程序后，列表框中的数据项有？
For i = 1 To 4 List1.AddItem i
Next i
0
0
List1
Option2
Check1
Combo1
程序演示
Command1
Command2
综合实例
滚动条 P191
——在较小的区域中浏览较长/较宽的项目和信息， 或输入某一范围内的数值。分为：HScrollBar水平 滚动条、VScrollBar 垂直滚动条。
❖常用属性 1.Value属性：滚动滑块(框)所处位置所代表的值 2.Max/Min属性：最大值/最小值（0~32767）
❖常用事件 1.Change事件：在改变滚动条的Value值后触发。 2.Scroll事件：拖动滚动滑块时触发； 区别：Scroll事件仅在拖动滚动滑块时发生，并且一 直发生至结束；而Change事件仅在滚动结束后发 生一次。
滚动条
[P192 例9-6]：利用滚动条控件数组设置字体的颜色 P282 RGB（red,green,blue) ，参数范围∈[0，255]
Label1
List1
程序结果 程序演示
Command1
List2
Command2
列表框/组合框
综合实例

[P190 例9-5]：用于输综入合个人实信例息篇资料，并将个人
信息用消息对话框MsgBox输出。
修改：
1.婚否：单选按钮改为用复选框 2.职称：组T合ex框t1 改为用列表框
Text2
Frame1 Option1
1
1
2
2
For i = 1 To 2
3
List1.RemoveItem i
Next i
③Clear方法：
删除列表框或组合框中的所有项目。常用于列表 刷新时使用。
列表框名/组合框名.Clear
3.常用事件
Click事件；
列表框/组合框
[P187 例9-2] 两列表交换列表中项目。 增加功能： 1.没有选择城市需作出相应错误提示！ 2.在Label1上显示List1共有几个城市！
▪ 将控件“剪切”到剪贴板，然后“粘 贴”(Ctrl+V)到框架。
2.常用属性 ①Caption属性：标题 ②Enabled属性：默认True；若为False，则框架
连同框架上的其他控件一起被禁用。
列表框/组合框 P184
组合框 列表框
❖ ListBox： 用于从列表中做出选择，但输入限
定在固定的选项中，不能直接修改其选项。
❖ComboBox： 综合了文本框和列表框的功能，
用户既可在文本框中输入数据也可以在列表框中进 行选择，适用于建议性的选项列表；且不支持多列 显示，占用的空间少。
列表框/组合框
1.常用公共属性 ①Text属性：返回当前 选中的项目文本。 ②List属性：字符型数组，存放列表框的项目，下标范
围：0~Listcount-1。 <格式>列表框名/组合框名.List（下标）[=String]
程序演示
控件数组 P133
❖ 概念： 一组相同类型的控件组成, 它们共用一个控件名, 具有 控相一(I常n件同的d如用SCC…数e的索e：… …aa结…xl组e属引ss)……T区ee构ce共性号t01x分：C‘‘享t设(1I控an‘ ‘(同完 完置0ds件指指e)一成成e，,T数xI向向e个n第第建)x组d。数数的12t立e(个个中1组组x事时)控控的,中中件…系件件各的的过…统元元个第第程给素素元12，每个个相相素通个控控应应。过元件件功功返素元 元能能回赋素 素的一下个标唯 End Select