Visual Basic 6程序设计教程第7章 常用控件与系统对象.pptVIP

例1、 时钟示例。 (设计一个计时、倒计时程序） 例2：动例画：滚动字幕 常常用于编写不需要与用户进行交互就可直接执行的代码，如：计时器、倒计时、动画等。 时钟控件的应用举例 7.4 时钟 例7.7 设计一个倒计时程序 (Pg.158) 7.5 控件数组 7.5.1 控件数组的概念 一组相同类型的控件组成。 它们共用一个控件名，具有相同的属性，建立时系统给每个元素赋一个唯一的索引号(Index)。 控件数组共享同样的事件过程，通过返回的下标值区分控件数组中的各个元素。 例： Private Sub cmdOK_Click(Index As Integer) …… 三个命令按钮共享代段 Select Case Index Case 0 …… 处理第一个命令按钮的操作 Case 1 …… 处理第二个命令按钮的操作 Case 2 …… 处理第三个命令按钮的操作 End Select …… End Sub 7.5.2 控件数组的建立 一、在设计时建立控件数组的步骤： 1．窗体上画出控件，进行属性设置，这是建立的第一个元素； 2．选中该控件，进行“Copy”操作若干次和“Paste”操作若干次建立了所需个数的控件数组元素。 3．进行事件过程的编程。? 二、运行时添加控件数组的步骤如下: 7.5 控件数组 1．在窗体上画出某控件，设置该控件的Index值为0，表示该控件为数组,这是建立的第一个元素，并可对一些取值相同的属性进行设置，如所有文本框的字体都取一样大小。 2．在编程时通过Load方法添加其余的若干个元素，也可以通过Unload方法删除某个添加的元素。 Load方法和Unload方法的使用格式： Load 控件数组名(表达式) Unload 控件数组名(表达式) 其中，表达式为整型数据。表示控件数组的某个元素。 3．通过Left和Top属性确定每个新添加的控件数组元素在窗体的位置，并将Visible 属性设置为True。 7.5 控件数组 7.5.3 应用举例 7.5 控件数组 例7.8 设计一个类似Windows计算器的程序，程序运行界面如图7-12所示。 7.5.3 应用举例 7.5 控件数组 例7.9 设计一个霓虹灯程序，界面如图6-15所示。要求：利用时钟控件模拟霓虹灯的效果。 7.6 鼠标、键盘事件 大多数控件能够识别鼠标的MouseMove、MouseDown和MouseUp事件，通过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化作出响应操作。 MouseMove 每当鼠标指针移动到屏幕新位置时发生 MouseDown 按下任意鼠标键按钮时发生 MouseUp 释放任意鼠标键按钮时发生 7.6.1 鼠标事件 MouseMove、MouseDown、MouseUp三个事件的过程的语法格式如下： Sub Object_MouseMove（Button As Integer，Shift As Integer，_ X As Single，Y As Single） Sub Object _MouseDown（Button As Integer，Shift As Integer，_ X As Single，Y As Single） Sub Object _MouseUp（Button As Integer，Shift As Integer，_ X As Single，Y As Single） 其中： 1．Object是可选的一个对象表达式，可以是窗体对象和大多数可视控件。 2．Button参数是表示按下或松开鼠标哪个按钮， 7.6 鼠标、键盘事件 参数Button值 参数（Button） 值 说明 vbLeftButton 1 左按钮被按下 vbRightButton 2 右按钮被按下 vbMiddleButton 4 中间按钮被按下 7.6 鼠标