16,549
社区成员
发帖
与我相关
我的任务
分享
'模块中的计时器
Module Module1
Public WithEvents NoWindowTimer1 As Timer
Private Sub Timers1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NoWindowTimer1.Tick
MsgBox("无窗体计时器被启动!")
NoWindowTimer1.Enabled = False
End Sub
End Module
'随便在什么地方引发:
NoWindowTimer1 = New Timer
NoWindowTimer1.Interval = 1000
NoWindowTimer1.Enabled = True