Discussion :

[thierry007]

Sous VB6 pour la gestion des touches dans les textbox on avait la possibilité de gérer tous les textbox avec un index, quel en serait l'équivalent en VB.NET


EN VB6 sa donne ceci:

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
 
Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
 
    Select Case Index
 
        Case 5, 6, 7
 
            If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
 
    End Select
 
    If KeyAscii = 13 And Index < Text.Count - 1 Then
        KeyAscii = 0
        Text(Index + 1).SetFocus
    End If

[bidou]

Il y a plusieurs méthodes possibles. Par exemple

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
    Private Sub TextBox_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress
        Dim toto As TextBox = CType(sender, TextBox)
        Select Case CInt(toto.Name.Substring(7, 1))
            Case 1
                MsgBox("texte 1")
 
            Case 2
                MsgBox("texte 2")
 
            Case 3
                MsgBox("texte 3")
 
        End Select
 
    End Sub

[thierry007]

Il n'y a donc plus possibilité d'utiliser un Index alors?

ce qui en 4 lignes permettais d'utiliser la touche ENTER pour passer d'un textbox a l'autre.
(c'est surtout cela qui m'interesse)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
 
    If KeyAscii = 13 And Index < Text.Count - 1 Then
        KeyAscii = 0
        Text(Index + 1).SetFocus
    End If
 
End Sub

[bidou]

rien n'empecherai d'utiliser une collection de controle. Cependant dans ton cas, il suffit de placer correctement les TabIndex et de gérer un code du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Private Sub TextBox22_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox22.KeyDown
        If e.KeyCode = Keys.Enter Then My.Computer.Keyboard.SendKeys("{TAB}")
    End Sub

[thierry007]

Dejà fait, mais lorsque je controle d'autre touche j'ai des problèmes dans les textbox, je ne peux plus editer les textbox !!!!!!!!!!!!!!

Et il faut le mettre dans l'événement Keypress ou KeyDown de chaque textbox
oups, j'en ai 37 sur mon form


Ci-dessous, sa fonctionne en partie , l'edition du textbox pose parfois un stut, je peux effacer le contenu, mais rien en modifier

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
 
Private Sub NomTextBox_KeyPress(ByVal sender As Object, ByVal e As 
System.Windows.Forms.KeyPressEventArgs) Handles NomTextBox.KeyPress
            e.Handled = True
            GestionClavier(Asc(e.KeyChar)) 'Appel la gestion du clavier
End Sub
 
 
Private Sub GestionClavier(ByVal KeyValue As Integer)
 
            If KeyValue = Keys.F9 Then EnregistrerData() ' Appel fonction d'enregistrement des données
            If KeyValue = Keys.Escape Then Sortie() ' Appel fonction fin de form
            If KeyValue = Keys.F2 Then NewRecord() ' Appel fonction nouvel enregistrement
            'If KeyValue = Keys.F4 Then PrintReport("Courante") ' Appel fonction d'impression de rapport
            If KeyValue = Keys.Return Then
                  SendKeys.Send("{TAB}")
            End If
 
      End Sub