Problème avec KeyDown et KeyCode.

Version imprimable

Bonjour, voici ci-dessous un extrait de mon code pour le button 1

Code:

1
2
3
4
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        niveau_en_cours()
    End Sub

Dans une textbox, j'ai crée des raccourcis claviers :

Code:

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
27
28
29
 
    Private Sub question_KeyDown(ByVal sender As Object, ByVal t As System.Windows.Forms.KeyEventArgs) Handles question.KeyDown
 
        If t.KeyCode = Keys.F11 Then
            question.Text = "EXAMINE"
        End If
 
        If t.KeyCode = Keys.F11 Then
            question.Text = "PRENDS"
        End If
 
 
        If t.KeyCode = Keys.Up Then
            question.Text = "NORD"
        End If
 
        If t.KeyCode = Keys.Down Then
            question.Text = "SUD"
        End If
 
        If t.KeyCode = Keys.Left Then
            question.Text = "GAUCHE"
        End If
 
        If t.KeyCode = Keys.Right Then
            question.Text = "DROITE"
        End If
 
    End Sub

J'ai ensuite voulu supprimer le bouton 1 pour le mettre en raccourcis clavier comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
 
 Private Sub question_KeyDown(ByVal sender As Object, ByVal t As System.Windows.Forms.KeyEventArgs) Handles question.KeyDown
 
        If t.KeyCode = Keys.Enter Then
            niveau_en_cours()
        End If
 
        If t.KeyCode = Keys.F11 Then
            question.Text = "EXAMINE"
        End If

Et là, à ma grande surprise, ca ne fonctionne pas ! Donc, je résume, avec le bouton et le "Accept Command" tout se fait sans problème, mais à partir de la texte box où l'utilisateur tape son texte puis fait ENTER pour valider, ça ne fonctionne plus.

Quelqu'un pourrait-il m'expliquer pourquoi ?

Merci d'avance.

Salut, aurais-tu essayé ceci :
Code:

1 2 3 4 5 6 7 8 9 Private Sub question_KeyPress( _ ByVal sender As Object, _ ByVal e As System.Windows.Forms.KeyPressEventArgs) _ Handles question.KeyPress If Asc(e.KeyChar) = Keys.Enter Then
Via cette option, on teste si l'utilisateur a appuyé sur la touche enter, donc à la suite de ton SI (if), tu dois pouvoir lancer une fonction dans le cas où l'utilisateur appuye sur la touche enter.

A plus

02/05/2012, 19h55
Pol63

dans ce cas tu mets un point d'arret sur la ligne où tu testes keycode = enter
tu appuis sur entrer
et tu regardes le contenu de keycode

ca doit etre keycode.Return et non enter
02/05/2012, 20h42
toutoune95800

Hélas ça n'a pas marché ! :cry:
02/05/2012, 22h10
Pol63

et avec le point d'arret, que vaut keycode quand tu fais entrée ?

En faite, le code fonctionne mais ne retourne pas les valeurs souhaitées.

Par exemple, le sub bonjour est pour dire bonjour.

Si l'utilisateur tape bonjour, aucun problème.

Ensuite, le sub niveau_ques fait la suite du jeu mais là, il ne prends plus en compte la suite.

Tout se joue dans niveau_en_cours qui compile bonjour et niveau_ques

Voici le code du module

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
 
Sub bonjour()
 
 
 
 
        Select Case ques_j
 
            Case "BONJOUR"
                ecran1.box_reponses.Text = reponses(0)
                ecran1.question.Text = ""
                valid(0) = True
 
            Case "SALUT"
 
                ecran1.box_reponses.Text = reponses(1)
                ecran1.question.Text = ""
                valid(0) = True
 
            Case "COUCOU"
                ecran1.box_reponses.Text = reponses(2)
                ecran1.question.Text = ""
                valid(0) = True
 
 
            Case "WESCH"
                ecran1.box_reponses.Text = reponses(3)
                ecran1.question.Text = ""
                valid(0) = True
 
            Case "WECH"
                ecran1.box_reponses.Text = reponses(3)
                ecran1.question.Text = ""
                valid(0) = True
 
            Case "WESH"
                ecran1.box_reponses.Text = reponses(3)
                ecran1.question.Text = ""
                valid(0) = True
 
            Case Else
                ecran1.box_reponses.Text = reponses(4)
                ecran1.question.Text = ""
 
        End Select
 
 
 
    End Sub
 
 
    Sub niveau_ques()
 
 
        Select Case ques_j
 
            Case "EXAMINE POUBELLE"
                If vu(1) = False Then
                    ecran1.box_reponses.Text = reponses(5)
                    ecran1.question.Text = ""
                    vu(1) = True
                    valid(16) = True
                Else
                    ecran1.box_reponses.Text = reponses(14)
                    ecran1.question.Text = ""
                End If
 
 
 
            Case "EXAMINE JOURNAL"
                If valid(1) = False Then
                    ecran1.box_reponses.Text = reponses(23)
                    ecran1.question.Text = ""
 
                Else
                    ecran1.box_reponses.Text = reponses(28)
                    ecran1.question.Text = ""
                End If
 
 
            Case "EXAMINE FEUILLE"
 
                If valid(12) = False Then
                    ecran1.box_reponses.Text = reponses(29)
                    ecran1.question.Text = ""
                Else
                    ecran1.box_reponses.Text = reponses(53)
                    ecran1.question.Text = ""
                End If
 
 
 
 
            Case Else
                valid(9) = True
                ecran1.box_reponses.Text = reponses(13)
                ecran1.question.Text = ""
 
        End Select
 
 
    End Sub
 
 
    Sub niveau_en_cours()
 
        ecran1.papa.Text = position_insulte
        ques_j = ecran1.question.Text.ToUpper
        position_insulte = InStr("plein de gros mots", ques_j)
        valid_text = ecran1.question.Text
 
 
        If position_insulte = 0 Then
            If ecran1.box_reponses.Text <> reponses(54) Then
                If compteur_porte_go <> 3 Then
                    If valid(0) = False Then
                        bonjour()
                    Else
 
                        niveau_ques()
                    End If
                Else
                    ecran1.question.Text = ""
                    ecran1.box_reponses.Text = reponses(54)
                End If
            Else
                End
            End If
        Else
            insulte.Show()
            'ecran1.Visible = False
        End If
 
 
    End Sub
 
 
 Private Sub question_KeyDown(ByVal sender As Object, ByVal t As System.Windows.Forms.KeyEventArgs) Handles question.KeyDown
 
' code du formulaire
 
        If t.KeyCode = Keys.Enter Then
            niveau_en_cours()
        End If
 
            If t.KeyCode = Keys.F11 Then
                question.Text = "EXAMINE"
            End If
 
            If t.KeyCode = Keys.F11 Then
                question.Text = "PRENDS"
            End If
 
 
            If t.KeyCode = Keys.Up Then
                question.Text = "NORD"
            End If
 
            If t.KeyCode = Keys.Down Then
                question.Text = "SUD"
            End If
 
            If t.KeyCode = Keys.Left Then
                question.Text = "GAUCHE"
            End If
 
            If t.KeyCode = Keys.Right Then
                question.Text = "DROITE"
            End If
 
    End Sub

Donc, quand je mets le premier bonjour aucun problème, ensuite si j'écris EXAMINE POUBELLE, il me retourne la réponse CASE ELSE alors qu'avec un bouton il ne le fait pas !

C'est grave docteur ?:fou:

03/05/2012, 14h29
shayw

Salut

C'est grave docteur ? non non :marteau:

ou la sub niveau_ques est appellé ?
j'ai du mal à suivre
03/05/2012, 14h40
toutoune95800

1 pièce(s) jointe(s)

Voici tous les sub du Module Niveau 1. La formulaire où se trouve le textbox appelle le module niveau 1.

J'ai attaché à ce message un image jpg de capture d'écran pour éviter qu'il y est dans ce message 400 lignes ! :mrgreen:
03/05/2012, 14h45
Pol63

il va falloir repotasser un peu, tes 600 lignes de code peuvent tenir en moins de 100
03/05/2012, 14h48
toutoune95800

Citation:

Envoyé par Pol63

il va falloir repotasser un peu, tes 600 lignes de code peuvent tenir en moins de 100

:calim2: C'est fort possible... Mais bon, je me dis tant que ça marche... Certes, ce n'est pas une solution mais bon... :oops: