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计时器和滚动条 一、计时器(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