timer控件因帐户锁定状态无效问题

[wangyouqi]

现有1程序通过timer控件 控制特定时间进行一些处理

在正常状况下没有问题，但是如果将当前帐户锁定，或者在远程桌面使用时最小化，均造成timer控件 不能监视时间
点解。。。

[贝隆]

学习

[舉杯邀明月]

友情UP......................

[孤独剑_LPZ]

那就不最小化,让它隐藏如何

[solen82]

lz用这个 timer 类 看看

Option Explicit

'TimerEnd变量用于控制定时事件的状态，False表示启动定时事件，True表示停止定时事件

Private TimerEnd As Boolean

'Timer事件是一个每隔固定秒数自动触发的事件，该秒数由StartTimer方法的Interval参数控制

Public Event Timer()



'StartTimer方法用于启动定时事件，该方法的Interval参数用于设置定时事件的间隔秒数（1-32767之间的整数）

Public Sub StartTimer(ByVal Interval As Integer)

Dim Starttime As Single

'用Timer函数返回从午夜开始到现在经过的秒数

Starttime = Timer

TimerEnd = False

If Interval < 1 Then

MsgBox "Interval参数的值必须是1-32767之间的整数", , "错误"

Exit Sub

End If

'用循环结构重复触发Timer事件

Do

If TimerEnd Then Exit Do

If Timer >= Starttime + Interval Then

Starttime = Timer

RaiseEvent Timer

End If

'在循环过程中，用DoEvents函数将控制权转让给操作系统，这样可以实现后台运行定时事件的效果。

DoEvents

Loop

End Sub



'EndTimer方法用于停止定时事件

Public Sub EndTimer()

TimerEnd = True

End Sub



Private Sub Class_Terminate()

TimerEnd = True

End Sub



Private Sub Class_Initialize()

TimerEnd = False

End Sub