gestion des textbox avec un index

Version imprimable

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: :bug:
Code:

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

Il y a plusieurs méthodes possibles. Par exemple

Code:

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

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) :yaisse2:
Code:

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

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:

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

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:

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