Bonjour,
Je suis en train de créer un jeu, et je souhaite que lorsque l'utilisateur clique sur un bouton, cela compare le texte qu'il a entré et une variable, et que si les deux sont identiques, cela affiche un message :
Or, lorsque je Clique sur le bouton, rien ne se passe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Dim Titre As String Dim Reponse As String Reponse = "GET LUCKY" Titre = Titre_Entré.Text Titre.Replace("é", "e") Titre.Replace("è", "e") Titre.Replace("à", "a") Titre.Replace("ù", "u") Titre.Replace("'", " ") Titre = Titre.ToUpper Dim Comparaison As Integer = Titre.CompareTo(Reponse) If Comparaison = 1 Then Dim messageDialog = New MessageDialog("Bonne Réponse") messageDialog.Commands.Add(New UICommand("Question Suivante", Sub(command) Me.Frame.Navigate(GetType(Série_2___Question_2)) End Sub)) Else Dim messageDialog = New MessageDialog("Mauvaise Réponse") messageDialog.Commands.Add(New UICommand("Question Suivante", Sub(command) Me.Frame.Navigate(GetType(Série_2___Question_2)) End Sub)) End If
Où ai-je fait un erreur?
Partager