Étape 8: Codage, partie III
Le reste du code, vous pouvez simplement copier d’ici. Il vient de faire avec quand les boutons deviennent activés et l’apparence de la réponse, mais il est assez explicite.Question de poignées private void question_TextChanged (System.Object sender, System.EventArgs e). TextChanged
Si Microsoft.VisualBasic.Right (question. Texte, 1) = "?" Puis
début. Enabled = True
End If
End Sub
Private void start_Click (System.Object sender, System.EventArgs e) poignées commencent. Cliquez sur
Dim test As Boolean
Si InStr (cachée. Texte, ".") Puis
test = True
End If
Si test = False Then
sournois. Text = « Je ne peux pas répondre à cette question. »
End If
début. Enabled = False
remise à zéro. Enabled = True
réponse. Texte = sournois. Texte
question. ReadOnly = True
pétition. ReadOnly = True
End Sub
Private void reset_Click (System.Object sender, System.EventArgs e) poignées réinitialiser. Cliquez sur
remise à zéro. Enabled = False
sournois. Text = « Je ne peux pas répondre à cette question. »
pétition. Text = « Entrez votre requête, puis appuyez sur Tab. »
caché. Texte = Nothing
question. Texte = Nothing
question. Enabled = False
pétition. ReadOnly = False
question. ReadOnly = False
réponse. Texte = Nothing
End Sub