@ Thomas wegen Laufschrift/Uhr
17.05.2005 14:10:22
Reinhard
dein Thread ist im Archiv unter:
https://www.herber.de/forum/archiv/608to612/t610932.htm
Du hattest mir nachfolgenden Code geschickt damit ich ihn prüfe ob er bei mir läuft bzw ihn in den anderen Code einbinde.
leider stürzt mein Excel ab wenn ich ihn ausprobiere.
Gruß
Reinhard
'Zeit auf Formular, Ab E2000
'Userform heisst frmÜbersicht
'label heisst lblZeit
'benötigt Modul mdlTimer
'und folgender Code :
Option Private Module
Public iHwnd As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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
Private Sub MeineHwnd()
Dim sClass As String, sCap As String
sClass = "XLMAIN"
iHwnd = FindWindow(sClass, sCap)
End Sub
Private Sub TimerAdresse(ByVal hWnd As Long, _
ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
frmÜbersicht.lblZeit = Time
End Sub
Public Sub Start()
MeineHwnd
SetTimer iHwnd, 0, 1000, AddressOf TimerAdresse
End Sub
Public Sub Ende()
MeineHwnd
KillTimer iHwnd, 0
End Sub