23866
Jan 27, 2006, updated at Feb 01, 2006 (UTC)
6149
1
0
VB6 - Countdown auf Command Button
Hallo,
wie kann ich auf einer Command Button.Caption einen Countdown zu ordnen?
Der Coutdown soll von 10 - 0 runterzählen und dann in der Button Caption Beenden anzeigen.
Gruß Mike
wie kann ich auf einer Command Button.Caption einen Countdown zu ordnen?
Der Coutdown soll von 10 - 0 runterzählen und dann in der Button Caption Beenden anzeigen.
Gruß Mike
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 24656
Url: https://administrator.de/contentid/24656
Printed on: April 26, 2024 at 18:04 o'clock
1 Comment
Hallo,
habs selbst hinbekommen, für die die es interessiert:
Public countdown As String
Private Sub Form_Load()
Me.Command1.Caption = "10"
Me.Command1.Enabled = False
Me.Timer1.Enabled = True
countdown = 10
End Sub
Private Sub Timer1_Timer()
If countdown = 1 Then
Me.Command1.Caption = "Beenden"
Me.Command1.Enabled = True
Me.Timer1.Enabled = False
Else
countdown = countdown - 1
Me.Command1.Caption = countdown
End If
End Sub
habs selbst hinbekommen, für die die es interessiert:
Public countdown As String
Private Sub Form_Load()
Me.Command1.Caption = "10"
Me.Command1.Enabled = False
Me.Timer1.Enabled = True
countdown = 10
End Sub
Private Sub Timer1_Timer()
If countdown = 1 Then
Me.Command1.Caption = "Beenden"
Me.Command1.Enabled = True
Me.Timer1.Enabled = False
Else
countdown = countdown - 1
Me.Command1.Caption = countdown
End If
End Sub