Nach 10sec mein Label sichtbar machen

Forumthread: Nach 10sec mein Label sichtbar machen

06.07.2007 15:39:09

Raphael

Hallo Zusammen.
Ich benötige eure Hilfe.
Ich habe eine UserForm, und möchte nachdem ich den Commandbutton1 gedrückt habe, das nach 10sec das Label1. Sichtbar wird und nach weiteren 10sec das Label 2 sichtbar wird und nach weiteren 10sec.....
Gibt es da ne möglichkeit?
Danke für eure Hilfe
MFG
Raphael

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Nach 10sec mein Label sichtbar machen

06.07.2007 16:15:00

yogi
Danke dir!

06.07.2007 16:51:51

Raphael
AW: Nach 10sec mein Label sichtbar machen

06.07.2007 16:23:54

Dan

AW: Nach 10sec mein Label sichtbar machen

06.07.2007 16:15:00

yogi

Tach Raphael
im Codemodule der Userform:
' ================================


Private Sub UserForm_Initialize()
Label1.Visible = False
Label2.Visible = False
End Sub


Private Sub CommandButton1_Click()
Call start_show
End Sub

'==============================
'
'in einem normale Modul:
'
'=============================================


Public Sub start_show()
Application.OnTime Now + TimeValue("00:00:10"), "show_label1"
End Sub


Public Sub show_label1()
UserForm1.Label1.Visible = True
Application.OnTime Now + TimeValue("00:00:10"), "show_label2"
End Sub


Public Sub show_label2()
UserForm1.Label2.Visible = True
Application.OnTime Now + TimeValue("00:00:10"), "show_label3"
End Sub

'
' und so weiter
'
'=============================
Gruss
yogi

Danke dir!

06.07.2007 16:51:51

Raphael

Danke so geht es!
Dir noch nen schönes Wochenende...
MFG
raphael

AW: Nach 10sec mein Label sichtbar machen

06.07.2007 16:23:54

Dan

Hallo, hier ein Beispiel. Um es zu testen, brauchst Du eine UserForm mit einem CommandButton1 und drei Labels 1,2,3. Gruss Dan, cz.
Option Explicit
Private Const LOOP_DURATION As Long = 10
Private Const NUMBER_OF_LOOPS As Long = 3


Private Sub CommandButton1_Click()
Dim startingTime As Single
Dim loopNumber As Long
Me.Repaint
loopNumber = 1
startingTime = VBA.DateTime.Timer
Do While (loopNumber = (startingTime + LOOP_DURATION)) Then
Call ShowLabel(loopNumber)
loopNumber = loopNumber + 1
startingTime = VBA.DateTime.Timer
End If
Loop
MsgBox "on exit loop", vbInformation, "Info..."
End Sub


Private Sub ShowLabel(ByVal i_loopNumber As Long)
On Error GoTo err_handler
Dim ctl
For Each ctl In Me.Controls
If (VBA.TypeName(ctl) = "Label") Then
If (ctl.Tag = i_loopNumber) Then
ctl.Visible = True
Me.Repaint
Exit For
End If
End If
Next ctl
Exit Sub
err_handler:
MsgBox Err.Description, vbCritical, "Error in 

Private Sub ShowLabel"
End Sub




Private Sub UserForm_Initialize()
Me.Label1.Visible = False
Me.Label1.Tag = "1"
Me.Label2.Visible = False
Me.Label2.Tag = "2"
Me.Label3.Visible = False
Me.Label3.Tag = "3"
End Sub

Beliebteste Forumthreads (12 Monate)

Nach 10sec mein Label sichtbar machen

Forumthread: Nach 10sec mein Label sichtbar machen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread