Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeitgesteuertes Verbergen eines Labels

Zeitgesteuertes Verbergen eines Labels
15.07.2003 12:06:05
galenzo
Hallo,
könnt ihr mir einen Tip geben, wie ich ein über die visible-Eigenschaft eingeblendetes
Bezeichnungfeld zeitverzögert wieder ausblenden kann?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige
AW: Zeitgesteuertes Verbergen eines Labels
15.07.2003 12:27:51
RAnton
Hallo, hilft das vom Hilfetext weier?
Beispiel zur OnTime-Methode
In diesem Beispiel wird "my_Procedure" nach 15 Sekunden ausgeführt.
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
Im folgenden Beispiel wird "my_Procedure" um 17 Uhr ausgeführt.
Application.OnTime TimeValue("17:00:00"), "my_Procedure"
In diesem Beispiel wird die OnTime-Einstellung aus dem vorherigen Beispiel gelöscht.
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
Procedure:="my_Procedure", Schedule:=False
Gruß
RAnton

DANKE!
15.07.2003 12:31:06
galenzo
Prima, danke!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige