Stap 10: De volledige Code
Hier is de voltooide code voor het project:Public Class Form1
Dim txtLen As Integer
Private Sub hidden_TextChanged (sender As System.Object, e als System.EventArgs) Handles verborgen. TextChanged
txtLen = Len (verborgen. Relevante tekst)
petitie. Tekst = Microsoft.VisualBasic.Left ("beantwoord de volgende vraag:", txtLen)
Als Microsoft.VisualBasic.Right (verborgen. Tekst, 1) = "." Vervolgens
stiekeme. Tekst = Microsoft.VisualBasic.Left (verborgen. Tekst, Len (verborgen. Tekst) - 1)
End If
Als verzoekschrift. Tekst = "beantwoord de volgende vraag:" dan
vraag. Ingeschakeld = True
End If
End Sub
Private Sub question_TextChanged (sender As System.Object, e als System.EventArgs) Handles vraag. TextChanged
Als Microsoft.VisualBasic.Right (vraag. Tekst, 1) = "?" Vervolgens
Start. Ingeschakeld = True
End If
End Sub
Private Sub start_Click (sender As System.Object, e als System.EventArgs) Handles beginnen. Klik op
Dim test As Boolean
Als InStr (verborgen. Tekst, ".") Vervolgens
testen = True
End If
Als test = False Then
stiekeme. Tekst = "Ik kan die vraag beantwoorden."
End If
Start. Ingeschakeld = False
Reset. Ingeschakeld = True
antwoord. Tekst = stiekeme. Tekst
vraag. ReadOnly = True
petitie. ReadOnly = True
End Sub
Private Sub reset_Click (sender As System.Object, e als System.EventArgs) Handles reset. Klik op
Reset. Ingeschakeld = False
stiekeme. Tekst = "Ik kan die vraag beantwoorden."
petitie. Tekst = "Typ uw verzoekschrift, dan drukt u op Tab."
verborgen. Tekst = niets
vraag. Tekst = niets
vraag. Ingeschakeld = False
petitie. ReadOnly = False
vraag. ReadOnly = False
antwoord. Tekst = niets
End Sub
Einde van de klasse