AW: Zeitgesteuertes Verbergen eines Labels
15.07.2003 12:35:00
ChrisL
Hi Galenzo
' Klassenmodul Tabelle
Option Explicit
Private Sub CommandButton1_Click()
Load UserForm1
UserForm1.Show
End Sub
' Klassenmodul DieseArbeitsmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopClock
End Sub
Private Sub Workbook_Deactivate()
Call StopClock
End Sub
' Standardmodul
Option Explicit
Public Const gsMacro As String = "UpdateClock"
Public gdNextTime As Double
Sub StartClock()
Dim iIntervall As Integer
gdNextTime = Now + TimeSerial(0, 0, 5)
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=True
End Sub
Sub UpdateClock()
UserForm1.Label1.Visible = False
End Sub
Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=False
End Sub
' Userform
Option Explicit
Private Sub CommandButton_UF_schliessen_Click()
Call StopClock
Unload UserForm1
End Sub
Private Sub UserForm_Deactivate()
Call StopClock
End Sub
Private Sub UserForm_Initialize()
Call StartClock
End Sub
Gruss
Chris