Ett roligt spel/Trick i Microsoft Visual Basic (8 / 10 steg)
Steg 8: Kodning, del III
Resten av koden kan du bara kopiera härifrån. Det har bara att göra med när knapparna blir aktiverat och hur svaret visas, men det är ganska självförklarande.Private Sub question_TextChanged (avsändare som System.Object, e som System.EventArgs) hanterar frågan. TextChanged
Om Microsoft.VisualBasic.Right (fråga. Text, 1) = "?" Sedan
Start. Aktiverat = sant
Slut om
End Sub
Private Sub start_Click (avsändare som System.Object, e som System.EventArgs) handtagen börja. Klicka på
Dim test som boolesk
Om InStr (dolt. Text, ".") Sedan
testa = sant
Slut om
Om testa = False Then
luriga. Text = "Jag kan inte besvara den frågan."
Slut om
Start. Aktiverat = False
Återställ. Aktiverat = sant
svar. Text = luriga. Text
fråga. ReadOnly = sant
framställning. ReadOnly = sant
End Sub
Private Sub reset_Click (avsändare som System.Object, e som System.EventArgs) handtag återställa. Klicka på
Återställ. Aktiverat = False
luriga. Text = "Jag kan inte besvara den frågan."
framställning. Text = "Skriv din ansökan, då trycker du på TABB."
dolda. Text = ingenting
fråga. Text = ingenting
fråga. Aktiverat = False
framställning. ReadOnly = False
fråga. ReadOnly = False
svar. Text = ingenting
End Sub