「的拳索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