用彝奔学三天华 第5章VB常用标准控件 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 事件
②Enabled属性：计时器的Enabled属 性也是较常用的属性，该属性决定计时器控件是 否能对时间的推移做出响应。若将Enabled设置 为False,此时计时器控件无效，即Timer事件不 会触发；当Enabled设置为True时，计时器控件 有效。 3.计时器的事件 计时器的事件只有一个，为Timer事件。Timer 事件的触发时间是从Interval属性的设置值开始 以后每隔这样一个时间段，就触发一次Timer事件 要说明的是当Interval属性值为O时，计时器无 效
②Enabled 属性：计时器的Enabled 属 性也是较常用的属性，该属性决定计时器控件是 否能对时间的推移做出响应。若将Enabled 设置 为 False ，此时计时器控件无效，即Timer事件不 会触发；当Enabled设置为 True时，计时器控件 有效。 3. 计时器的事件 计时器的事件只有一个，为Timer事件。Timer 事件的触发时间是从Interval 属性的设置值开始， 以后每隔这样一个时间段，就触发一次Timer事件。 需要说明的是当Interval 属性值为0时，计时器无 效
4.计时器的应用举例 CHINA 【例5一7】设计一个应用程序，界面如下 图所示。当程序运行时在单击窗体输入姓名后， 标签框1中文字“您好！XX”从右向左移动，标签 框2中文字“欢迎学习Timer控件”从左向右移动 且文字颜色每秒随机改变一次。 计时器控件示例 口▣☒ Label1 请单击窗体输入您的姓名 Label3
4. 计时器的应用举例 【例5－7】设计一个应用程序，界面如下 图所示。当程序运行时在单击窗体输入姓名后， 标签框1中文字“您好！XX”从右向左移动，标签 框2中文字“欢迎学习Timer控件”从左向右移动， 且文字颜色每秒随机改变一次
CHINA 设许步骤： ①新建一个工程，设置窗体的Caption属性 为“计时器控件示例” 。 ②按上图所示，在窗体上添加3个标签框和3 个计时器，按界面所示设置Label2的 Caption属性值。 ③编写事件过程代码
设计步骤： ①新建一个工程，设置窗体的Caption属性 为“计时器控件示例” 。 ②按上图所示，在窗体上添加3个标签框和3 个计时器 ， 按 界 面 所 示 设 置 Label2 的 Caption属性值。 ③编写事件过程代码
秀g三天 CHIN 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() 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 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 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
Private Sub Timer3 Timer() Label3.Left Label3.Left 100 If Label3.Left ScaleWidth Then Label3.Left=0 End If End Sub
Private Sub Timer3_Timer() Label3.Left = Label3.Left + 100 If Label3.Left > ScaleWidth Then Label3.Left = 0 End If End Sub