AW: UF wird nicht mehr angezeigt
01.10.2005 10:59:47
Walter
Hallo Hajo,
die Datei ist zu groß.
Habe festgestellt seit dem ich mir das zusammengebastelte (Uhrzeit etc.) reingesetzt
habe.
Hier das Makro:
Dies habe ich in die:
Private Sub UserForm_Initialize()
'Start ' für Uhr gesetzt
Hier die anderen Makros:
Option Explicit
''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)
' frmTimer.lblZeit = Time
walter.lblZeit = Date & " / " & Time
End Sub
Public Sub Start()
MeineHwnd
SetTimer iHwnd, 0, 1000, AddressOf TimerAdresse
End Sub
Public Sub Ende()
MeineHwnd
KillTimer iHwnd, 0
End Sub
Gruß Walter