Stap 8: Codering, deel III
De rest van de code die u gewoon vanaf hier kopiëren kunt. Het heeft gewoon te maken met wanneer de knoppen worden ingeschakeld en hoe het antwoord wordt weergegeven, maar het is vrij zelf verklarend.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