华东理工大学：《VB程序设计 Visual Basic Programming》课程教学资源（PPT课件讲稿）第十一讲 VB常用标准控件（2）

《》 心 第十一讲 VB常用标准控件(2) 年使丽三从州

第十一讲 VB常用标准控件（2）

S阳幸早理三人梦 第5章VB常用标准控件 UMVERSITY OF SCIENOS 5.1单选按钮、复选框、框架 5.2列表框、组合框 5.3计时器、滚动条 5.4图形控件

第5章 VB常用标准控件 5.1 单选按钮、复选框、框架 5.2 列表框、组合框 5.3 计时器、滚动条 5.4 图形控件

本讲教学内容 5.3计时器、滚动条 5.4图形控件

本讲教学内容 5.3 计时器、滚动条 5.4 图形控件

5.3计时器和滚动条 一、计时器(Timer) 1. 计时器的特点 计时器控件通过Timer事件，可以有规 律地隔一段时间执行一次事件过程代码。 2.计时器的属性 ①Interval)属性：这个属性可以设定Timer事 件触发的时间间隔，其时间间隔以毫秒为单 位，取值范围为0~65535毫秒。一般设为 1000毫秒，这样可以每秒种触发一次Timer 事件

5.3 计时器和滚动条 一、计时器(Timer) 1. 计时器的特点 计时器控件通过Timer 事件，可以有规 律地隔一段时间执行一次事件过程代码。 2. 计时器的属性 ①Interval属性：这个属性可以设定Timer 事 件触发的时间间隔，其时间间隔以毫秒为单 位，取值范围为0~65535毫秒。一般设为 1000毫秒，这样可以每秒种触发一次Timer 事件

S色索字三 ②Enabled属性：计时器的Enabled属 性也是较常用的属性，该属性决定计时器控件是 否能对时间的推移做出响应。若将Enabled设置 为False,此时计时器控件无效，即Timer?事件不 会触发；当Enabled设置为True时，计时器控件 有效。 3.计时器的事件 计时器的事件只有一个，为Timer?事件。Timer 事件的触发时间是从Interval属性的设置值开始 以后每隔这样一个时间段，就触发一次Timer事件 需要说明的是当Interval属性值为0时，计时器无

②Enabled 属性：计时器的Enabled 属 性也是较常用的属性，该属性决定计时器控件是 否能对时间的推移做出响应。若将Enabled 设置 为 False ，此时计时器控件无效，即Timer事件不 会触发；当Enabled设置为 True时，计时器控件 有效。 3. 计时器的事件 计时器的事件只有一个，为Timer事件。Timer 事件的触发时间是从Interval 属性的设置值开始， 以后每隔这样一个时间段，就触发一次Timer事件。 需要说明的是当Interval 属性值为0时，计时器无 效

「的拳索g三 UNH 4.计时器的应用举例 CHINA 、UMIVERSITY0FSC/EE年 【例5一7】设计一个应用程序，界面如下 图所示。当程序运行时在单击窗体输入姓名后， 标签框1中文字“您好！XX”从右向左移动，标签 框2中文字“欢迎学习Timer控件”从左向右移动 且文字颜色每秒随机改变一次。 计时器控件示例 日回☒ Label1 诗单击窗体输入您的姓名 Label3

4. 计时器的应用举例 【例5－7】设计一个应用程序，界面如下 图所示。当程序运行时在单击窗体输入姓名后， 标签框1中文字“您好！XX”从右向左移动，标签 框2中文字“欢迎学习Timer控件”从左向右移动， 且文字颜色每秒随机改变一次

相拳索里三天 CHINA UN 设许步骤： ①新建一个工程，设置窗体的Caption属性 为“计时器控件示例”。 ②按上图所示，在窗体上添加3个标签框和3 个计时器，按界面所示设置Label2的 Caption属性值。 ③编写事件过程代码

设计步骤： ①新建一个工程，设置窗体的Caption属性 为“计时器控件示例” 。 ②按上图所示，在窗体上添加3个标签框和3 个计时器 ， 按 界 面 所 示 设 置 Label2 的 Caption属性值。 ③编写事件过程代码

的如每桌理三大子影 VNIVERSITY OF SCIENCE ANI Private Sub Form Load() Label1.AutoSize True:Label3.AutoSize True Label1.FontSize=18:Label3.FontSize =15 Label1.BackStyle 0:Label3.BackStyle 0 Label1.Visible False:Label3.Visible False Timer1.Interval 500 Timer2.Interval 1000 Timer3.Interval =100 Timer1.Enabled False Timer2.Enabled False Timer3.Enabled False End Sub

Private Sub Form_Load() Label1.AutoSize = True: Label3.AutoSize = True Label1.FontSize = 18: Label3.FontSize = 15 Label1.BackStyle = 0: Label3.BackStyle = 0 Label1.Visible = False: Label3.Visible = False Timer1.Interval = 500 Timer2.Interval = 1000 Timer3.Interval = 100 Timer1.Enabled = False Timer2.Enabled = False Timer3.Enabled = False End Sub

国套星三 Private Sub Form Click() CHINA a=InputBox("请输入您的姓名：") NVERSITY OF SCIENCE Label1.Visible True Label3.Visible True Label1="您好！"&a Label3="欢迎学习Timer控件" Timer1.Enabled True Timer2.Enabled True Timer3.Enabled True Label2.Visible=False End Sub

Private Sub Form_Click() a = InputBox("请输入您的姓名：") Label1.Visible = True Label3.Visible = True Label1 = "您好！" & a Label3 = " 欢迎学习Timer控件" Timer1.Enabled = True Timer2.Enabled = True Timer3.Enabled = True Label2.Visible = False End Sub

阳拳室 Private Sub Timer1 Timer() Label1.Left Label1.Left -100 NIVERSITY OF SCIENCE ANU If Label1.Left 0 Then Label1.Left Form1.Width End If End Sub Private Sub Timer2 Timer( Randomize Label1.ForeColor RGB(Rnd 255,Rnd 255,Rnd*255) Label3.ForeColor RGB(Rnd 255,Rnd 255,Rnd*255) End Sub

Private Sub Timer1_Timer() Label1.Left = Label1.Left - 100 If Label1.Left < 0 Then Label1.Left = Form1.Width End If End Sub Private Sub Timer2_Timer() Randomize Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub