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