资源：“可以精确到1毫秒的定时器——多媒体定时器 用户控件”可能有问题，需要修正！
Public Property Let Enabled(ByVal NewValue As Boolean)
If NewValue Then ' 初始化计时器控件，设置时间间隔，并开启计时器！
m_Enabled = StartTimer(m_Interval) > 0
Else ' 停止计时器！2013-11-06 修正，解决计时器无法停止的重大失误！
If m_Enabled Then m_Enabled = (StopTimer = 0) ' > 0 表示关闭成功，= 0 表示关闭失败。因此，此处该用 = 0
End If
End Property
Public Property Let Enabled(ByVal NewValue As Boolean)
If NewValue Then ' 初始化计时器控件，设置时间间隔，并开启计时器！
m_Enabled = StartTimer(m_Interval) > 0
Else ' 停止计时器！2013-11-06 修正，解决计时器无法停止的重大失误！
If m_Enabled Then m_Enabled = (StopTimer = 0) ' > 0 表示关闭成功，= 0 表示关闭失败。因此，此处该用 = 0
End If
End Property
扫一扫
398
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
