Ett roligt spel/Trick i Microsoft Visual Basic (10 / 10 steg)
Steg 10: Den fullständiga koden
Här är ifyllda koden för projektet:Public Class Form1
Dim txtLen As Integer
Private Sub hidden_TextChanged (avsändare som System.Object, e som System.EventArgs) handtag dolda. TextChanged
txtLen = Len (dolt. Text)
framställning. Text = Microsoft.VisualBasic.Left ("Vänligen svara på följande fråga:", txtLen)
Om Microsoft.VisualBasic.Right (dolt. Text, 1) = "." Sedan
luriga. Text = Microsoft.VisualBasic.Left (dolt. Text, Len (dolt. Text) - 1)
Slut om
Om framställningen. Text = "var god svara på följande fråga:" sedan
fråga. Aktiverat = sant
Slut om
End Sub
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
Avsluta klass