字符闪烁中窗体ontimer属性问题

root

效果：点击按钮字符闪烁，再次点击则停止。

Private Sub btnFlashLabel_Click()

If Me!btnPulseLabel.Caption = "Stop" Then Exit Sub  //其他功能按钮
If Me!btnTitleBar.Caption = "Stop" Then Exit Sub    //其他功能按钮
If Me!Switcher = "False" Then

    Me.OnTimer = "=LabelFlasher()"   //这个函数实现亮灭一次(函数没有贴出)，是不是按第一次时一直执行这个函数。再 按 一次时则执行else后面的语句。ontimer 属性怎么运行，它什么时候停止。

    Me!Switcher = "True"
    Me!btnFlashLabel.Caption = "Stop"
    Me!btnFlashLabel.ForeColor = 255
Else
    Me.OnTimer = ""
    Me.Switcher = "False"
    Me!btnFlashLabel.Caption = "Blinken"
    Me.FlashLabel.Visible = True
    Me!btnFlashLabel.ForeColor = 0
End If

End Sub
求教这个过程的运行细节。

tmtony

这个就是利用窗体的定时器事件  Timer事件 来实现的,有什么不太明白? 具体哪句代码?

root

这一段：
If Me!Switcher = "False" Then
Me.OnTimer = "=LabelFlasher()"  
Me!Switcher = "True"
    Me!btnFlashLabel.Caption = "Stop"
    Me!btnFlashLabel.ForeColor = 255
为什么一按按钮就一直执行LabelFlasher()，直到第二次按下按钮才去执行else语句后面的代码。
如果一按按钮就一直执行LabelFlasher()，那么这些语句
   Me!Switcher = "True"
    Me!btnFlashLabel.Caption = "Stop"
    Me!btnFlashLabel.ForeColor = 255
是不是应该等LabelFlasher()执行完了再运行。可实际上并不是这样的。实际运行是：一按下按钮按钮就变成红色stop
并且字符一直闪烁。再单击则回到开始的状态。

tmtony

因为 开始 Me!Switcher = "False" 所以就执行
Me.OnTimer = "=LabelFlasher()"  
而 ONTIMER事件执行时
你又设置了 Me!Switcher = "True" 所以他就执行了Else的代码

root

你好站长，你看程序是不是这样运行：ontimer事件执行一次后就应该执行else后面的代码，然后又返回到if语句再次执行ontimer事件，然后再次执行else后面的代码。这样一直循环下去吗