VisualBasic程序设计与实训教程第07章常用控件.pdfVIP

第7章 常用标准控件 第7章 常用标准控件 7.1 定时器型 7.2 单选按钮和复选框 7.3 框 架 7.4 列表框和组合框 7.5 滚动条 7.6 焦点和Tab顺序 2013-3-8 1 清华大学出版社 【目的要求】 1. 掌握定时器的应用 2. 掌握单选按钮和复选框的属性和应用 3. 了解框架的应用 4. 掌握列表框和组合框的应用 5. 了解滚动条 6. 了解焦点和Tab顺序 【重点】定时器、单选按钮和复选框、列表框和组合框 【难点】各控件的应用 2013-3-8 清华大学出版社 2 7.1 定时器 7.1 定时器 7.1.1定时器的属性和事件 1.常用属性 (1) Interval属性 返回或设置定时器控件计时的时间间隔(单位：毫秒) 。其有效 范围为0～65535。默认值为0，此时定时器无效。 (2) Enabled属性 定时器是否被激活，它有True或False 两种属性值。当其设为 True时，定时器被激活。 2.常用事件 定时器控件最常用的事件就是Timer事件。 每经过一个由Interval属性的时间间隔，便会产生一个Timer事 件。 2013-3-8 清华大学出版社 3 7.1.2定时器的应用举例 【例7.1】建立一个实时时钟。程序界面设计如图7-2所 示，程序运行结果如图7-2所示。 在VB中可以用Time函数获取系统的时间。 图7-1 2013-3-8 清华大学出版社 4  在命令按钮【开始】事件过程Command1_Click()中添加如下代 码： Private Sub Command1_Click() Timer1.Enabled = True End Sub  在命令按钮【停止】事件过程Command1_Click()中添加如下代 码： Private Sub Command2_Click() Timer1.Enabled = False End Sub  在时钟控件的触发事件过程中添加如下代码： Private Sub Timer1_Timer() Label1.Caption = Time End Sub 2013-3-8 清华大学出版社 5 【例7.2】建立一个文字移动的动画程序。程序运行结果 如图7-3所示。 分析：文字移动可以利用标签的move属性。如果每隔一段时间 就让标签移动一次就能产生动画的效果，用时钟控件的timer 事件正好可以实现每隔一段时间执行一次事件过程。用移动量 的正负可以实现左右移动。把标签移动的代码写在timer事件 过程中就可以实现文字移动的动画效果。 图7-3 2013-3-8 清华大学出版社 6 编写程序代码 Dim cx As Integer 定义一个移动增量 Private Sub Command1_Click() Timer1.Enabled = True End Sub Private