commandbutton blokkeren totdat textbox is ingevuld. Weet iemand hoe?

Status
Niet open voor verdere reacties.

sachadoggy

Gebruiker
Lid geworden
18 mrt 2011
Berichten
6
Ik ben bezig met het maken van een programma waarin je een dobbelsteen kan gooien.

Ik heb een textbox waarin je je naam moet invullen
Daaronder staat het button met als titel gooien.
Daarin staat de code om de dobbelsteen te laten gooien en de score op te tellen.
Ik wil nu dat er nog niet wordt gegooid totdat de naam is ingevuld.

Met if/else kan ik wel voor elkaar krijgen dat er een bijschift onder de textbox komt met: vul de naam in!
Hier de code:
If TextBox1.Text = "" Then
Label11.Visible = True
End If

Alleen daarna gaat het programma gelijk verder, je krijgt geen mogelijkheid om de naam in te vullen.

Hoe zou ik dit kunnen oplossen? Heeft iemand hier een code voor?
Ik ben een beginner, dus a.u.b. niet te moeilijk code.
 
Laatst bewerkt:
sachadoggy,

Zonder je voorbeeld is het gokken maar probeer dit eens.
Code:
If TextBox1.Text = "" Then
  TextBox1.setfocus: Exit Sub
  Label11.Visible = True
End If
 
Hoi Sachadoggy

Commandbutton1 is enabled als de text van textbox1 niet leeg is.
Zet wel de eigenschap Enabled van CommandButton1( de knop gooien) standaard op False

Dan kan je niet gooien als er geen naam is ingevuld. daar zal de rest van je code wat eenvoudiger op worden

Code:
Private Sub TextBox1_Change()
    CommandButton1.Enabled = Len(TextBox1) > 0
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan