button unsichtbar

[sunflower84]

Hallo

Ich habe einen Countdown programmiert. Wenn ich auf Start klick läuft der Countdown los. Der Start Button soll aber nach dem ersten klick unsichtbar gemacht werden damit man ihn nicht immer wieder von vorne starten kann.(oder deaktivieren)
Ich habe es nur geschafft den kompletten Button unsichtabr zu machen.
Hat da jemand eine Idee?

Hier ein Stueck Code:

Private Sub cmdStartTimer_Click()

Timer1.Interval = 1000
Timer1.Enabled = True
'fester Wert eintragen
s = 15 'txtSecond.Text
m = 0 'txtMinute.Text
h = 0 'txthour.Text
Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time")
Do
DoEvents
If h = 0 And m = 0 And s = 9 Then
MsgBox "Sie haben jetzt noch 9 Sekunden Zeit das Internet zu nutzen!", vbOKOnly + vbSystemModal
End If
Loop Until s = 0 And m = 0 And h = 0
Label1.ForeColor = vbRed
'MsgBox (NameC1 & "abgelaufen")
Timer1.Enabled = False
'Call ExitWindowsEx(WIN_LOGOFF, &HFFFF)
frmLock.Visible = True
Unload Me
End Sub

Liebe Grüße
Nadine

 

[Julian Maicher]

'Button deaktivieren
cmdButton.Enabled = False
'Button ausblenden
cmdButton.Visible = False

Und wo ist jetzt das Problem?

 

[sunflower84]

Ich habe das jetzt eingebaut mit dem deaktivieren. Er sagt mir das die Variable nicht definiert wäre. Aber auch wenn ich sie als Integer deklariere funktioniert es nicht. Könntest du mal nachschauen was ich falsch mache?


Dim s As Integer
Dim m As Integer
Dim h As Integer
Dim sec As Integer
Dim min As Integer
Dim hour As Integer
Dim NameC1 As String
Dim NameC2 As String


Private Sub cmdStartTimer_Click()

Timer1.Interval = 1000
Timer1.Enabled = True
'fester Wert eintragen
s = 15 'txtSecond.Text
m = 0 'txtMinute.Text
h = 0 'txthour.Text
Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time")
Do
DoEvents
cmdButton.Enabled = False
If h = 0 And m = 0 And s = 9 Then
MsgBox "Sie haben jetzt noch 9 Sekunden Zeit das Internet zu nutzen!", vbOKOnly + vbSystemModal
End If
Loop Until s = 0 And m = 0 And h = 0
Label1.ForeColor = vbRed
'MsgBox (NameC1 & "abgelaufen")
Timer1.Enabled = False
'Call ExitWindowsEx(WIN_LOGOFF, &HFFFF)
frmLock.Visible = True
Unload Me
End Sub

Private Sub Label9_Click()

End Sub

 

[Julian Maicher]

Du musst natürlich deinen Button nehmen. cmdButton war nur ein Beispiel, angenommen so heißt der Button bei mir.
Dein Button hat eine Eigenschaft name, dort kannst du den Namen definieren, mit dem du den Button ansprichst. Und den musst du halt verwenden.

Name des Buttons.Enabled = False

 

[sunflower84]

Super, das klappt jetzt.
Vielen Dank

Liebe Grüße
Nadine