Probleme mit Timer
29.03.2005 10:00:37
chris
habe eine frage und hoffe es hat jemadn einen Tipp für mich.
habe folgenden Timer Code diesen möchte ich noch umbauen, aber er hat folgendes Problem.
Wenn ich den Timer starte und währen er läuft in excel Arbeiten will stürzt mir excl immer ab.
wie kann ich das verhindern ?
Habt ihr auch das Problem ?
Vielen Dank für euer Hilfe gruß Christian
Private Declare Function SetTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long) As Long
Public TimerEnabled As Boolean
Public Cnt&
Dim hTimer&
Public Sub Init(Interval&)
hTimer = SetTimer(0, 0, Interval, AddressOf TimerProc)
TimerEnabled = True
End Sub
Public Sub Terminate()
Call KillTimer(0, hTimer)
TimerEnabled = False
End Sub
Private Sub TimerProc(ByVal hWnd&, ByVal Msg&, ByVal idEvent&, ByVal _
dwTime&)
Cells(1, 1) = Cells(1, 1) + 1
End Sub
Sub starten_Click()
Call Init(1000)
End Sub
Sub stoppen_Click()
Call Terminate
End Sub