7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
VBDN 2005-11-06
- 打赏
- 举报
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
End
End Sub
Sub Main()
SetTimer 0, 0, 3600000, AddressOf TimerProc '1×60×60×1000＝3600000
Form1.Show
End Sub
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
End
End Sub
Sub Main()
SetTimer 0, 0, 3600000, AddressOf TimerProc '1×60×60×1000＝3600000
Form1.Show
End Sub
northwolves 2005-11-05
- 打赏
- 举报
Dim elapsetime As Long
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 30000
elapsetime = 0
End Sub
Private Sub Timer1_Timer()
elapsetime = elapsetime + 1
If elapsetime = 120 Then End
End Sub
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 30000
elapsetime = 0
End Sub
Private Sub Timer1_Timer()
elapsetime = elapsetime + 1
If elapsetime = 120 Then End
End Sub
jack20042005 2005-11-05
- 打赏
- 举报
关注
bo18 2005-11-05
- 打赏
- 举报
帮俺写个
faysky2 2005-11-05
- 打赏
- 举报
定义全局变量，然后用时钟来控制就行
