VB程序设计教学课件(全套).ppt

* 列表框各主要属性的值： List1.ListIndex = 3 (下标从0开始的) List1. ListCount = 5 List1. Selected(3) = True，其余为False。 List1. Sorted = False，没有排序。 List1. Text 为 “cox” ， 与List1. List(List1. ListIndex)相等 List1 * 列表框各主要属性的值： Combo1.ListIndex = 0 Combo1. ListCount = 8 Combo1. Sorted = False Combo1. Text 为 “李宁” Combo1 * 列表框和组合框常用方法 上一页 下一页 (1) AddItem方法 对象.AddItem Item [,Index] 把一个选项加入到列表框或组合框。 Item:为加入的项目，必须是字符串表达式。 Index:决定新增选项在列表框或组合框中的位置，如果省略，则新增选项添加在最后。 本章目录 例：将“李宁”、“张伟”、“王春华”、“关红梅”4个学生的姓名，在Form_Load事件过程中用AddItem方法添加到列表框lstStudent中。 Sub Form_Load() lstStudent.AddItem “李宁” lstStudent.AddItem “张伟” lstStudent.AddItem “王春华” lstStudent.AddItem “关红梅” End sub * 列表框和组合框常用方法 上一页 下一页 (2) RemoveItem方法 对象.RemoveItem Index 从列表框或组合框中删除指定的项目。 例：单击命令按钮，将列表框中选中的项目删除。 (3) Clear方法 对象.Clear 清除列表框或组合框的所有项目。 本章目录 * 例7.3 对列表框进行项目添加、修改和删除操作。 * 7.3 滚动条控件 上一页 下一页 滚动条（ScrollBar）通常用来附在窗体上协助观察数据或确定位置，也可用来作为数据输入的工具。滚动条有水平和垂直两种。 本章目录 * 滚动条 上一页 下一页 (1) 属性 Value属性 滑块当前位置所代表的值，缺省值为0。 Min属性 滑块处于最小位置时所代表的值(-32768~32767) Max属性 滑块处于最大位置时所代表的值(-32768~32767) SmallChange属性 单击滚动条的箭头，Value属性改变值 LargeChange属性 单击滚动条的空白处，Value属性改变值 (2) 事件 Change事件 改变Value属性时触发 Scroll事件 当拖动滑块时触发 例7.4使用滚动条设计一个调色板应用程序，用合成色设置文本框的前景色或背景色。 本章目录 * 7.4 定时器 上一页 下一页 1. 定时器(Timer) 以一定的时间间隔产生Timer事件。 (1) 属性 Interval 是时钟控件最重要的属性。它表示两个计时器事件之间的时间间隔，其值以ms（0.001s）为单位，介于0~64767ms之间。在程序运行期间，时钟控件并不显示在屏幕上。当Interval为0时表示计时器不起作用。如果希望每半秒钟产生一个计时事件，那么Interval属性值应设为500。这样，每隔500ms引发计时器事件，从而执行相应的Timer事件过程。 本章目录 * 7.4 定时器 上一页 下一页 Enabled属性 为False时定时器不产生Timer事件。 产生Timer事件的两个条件：Enabled=True；Interval0。 (2) 事件 定时器控件只有一个Timer事件。 例：在设置一个数字计时器显示系统当前时间 本章目录 Private Sub Timer1_Timer() Label2.Caption = Time End Sub 例7.6用一个定时器控制蝴蝶在窗体内的飞舞。 * 7.5 鼠标和键盘 上一页 下一页 7.5.1 鼠标 鼠标事件 需要注意事件发生在窗体还是控件对象上 Click事件、DblClick事件 MouseDown事件 按下任意一个鼠标按钮时被触发 MouseUp事件 释放任意一个鼠标钮时被触发 MouseMove事件 移动鼠标时被触发 各事件中Button参数指示用户按下或释放了哪个鼠标按钮 鼠标中键 vbMiddleButton 4 鼠标右键 vbRightButton 2 鼠标左键