Private Sub Form_Load()
Label1.Tag = 1
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Dim ctl As Control
For Each ctl In Me
If TypeOf ctl Is Label And ctl.Tag = "1" Then
ctl.Visible = Not ctl.Visible
End If
Next
End Sub
我新手,是直接看代码的有些还不明白,这段代码可以帮我讲解一下么?
Form_Load 的时候设置 0.5秒执行一次Timer1_Timer函数For Each ctl In Me If TypeOf ctl Is Label And ctl.Tag = "1" Then找到前面那个Tag设置为1的label控件,叫它显示或隐藏
也就是把那个Label1每0.5秒显示/隐藏
Private Sub Form_Load()'窗体的加载事件,当窗体启动的时候执行此任务
Label1.Tag = 1 '设置标签的标志为1
Timer1.Interval = 500 '把时钟控件的Inverval值设为500,即每隔0.5秒运行一次Timer1_Timer事件,1000为1秒
End Sub '窗体的加载事件结束
Private Sub Timer1_Timer() '时钟控件的Timer事件,此事件与时间间隔联系,每隔0.5秒运行一次这个事件过程
Dim ctl As Control '定义ctl为控件对象
For Each ctl In Me '对于所有的控件对象遍历,Each ctl 是每一个对象,In Me 是窗体上的,即窗体上的每一个对象
If TypeOf ctl Is Label And ctl.Tag = "1" Then '如果这个对象是标签,并且标志位1,则执行下面的代码
ctl.Visible = Not ctl.Visible '如果此时标签是隐藏的则显示,如果是显示的则隐藏
End If 'if语句结束的标志
Next '循环体结束的标志
End Sub ‘Timer事件结束标志