Auto Tabulation

Question

Salut à tous !

J'ai un petit soucis d'auto tabulation avec le KeyAscii=13 en VB10

Pouvez-vous m'aider svp ?

J'utilisais ce code sous VB6.0
If KeyAscii = 13 Then KeyAscii = 0: SendKeys "{TAB}", TrueIf Label1.Caption = "" Then Exit SubIf InStr(1, Label1.Caption & vbBack, Chr$(KeyAscii)) = 0 Then KeyAscii = 0

et souhaiterais que dans par exemple un module, ce code soit actif sur tout les objets de ma fenêtre.

Merci

----------
OS        : Windows 7 Pro 64 Bit
Platforme : Visual Studio 2010

NHenry · Answer

Bonjour,

Pourquoi as-tu besoin de ce SendKeys, je pense que tu utilises une technique qui n'est plus forcément nécessaire.

Sinsitrus · Answer

La tabulation fonctionne mais la touche entrer ne fonctionne pas. Je souhaiterais le faire depuis un module ou une déclaration public avec la touche Entrer.

Sinsitrus · Answer

Private Sub MonFocus(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles _
        TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress, TextBox4.KeyPress, TextBox5.KeyPress, TextBox6.KeyPress

Dim txt As TextBox = CType(sender, TextBox)
        If e.KeyChar = Chr(13) Then GetNextControl(txt, True).Focus()
    End Sub

Malheureusement, je n'arrives toujours pas à éliminer la précision des zone à atteindre par leur noms respectif :
TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress, TextBox4.KeyPress, TextBox5.KeyPress, TextBox6.KeyPress

Sinsitrus · Answer

Je rencontre un petit soucis :

Private Sub MonFocus(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress, TextBox4.KeyPress, TextBox5.KeyPress, TextBox6.KeyPress, TextBox7.KeyPress, TextBox8.KeyPress, TextBox9.KeyPress, TextBox10.KeyPress, TextBox11.KeyPress, TextBox12.KeyPress
        Dim txt As TextBox = CType(sender, TextBox)
        If e.KeyChar = Chr(13) Then GetNextControl(txt, True).Focus()
End Sub

Private Sub MonFocus reconnait le KeyPress, et donc je ne peux plus utiliser séparément le KeyPress d'un TextBox par exemple que contient déjà cette fonction.

Y a t-il moyen de globaliser tout ça svp ?

----------
J'ai débuté VB10 depuis le 25/08/2014
OS            : Windows 7 Pro 64 Bit
Plateforme    : Visual Studio 2010

Zermelo · Answer

Bonjour Sinsitrus,

En vb.net, l'envoi de la touche de tabulation s'écrit  SendKeys.Send("{TAB}").

Cordialement.

Sinsitrus · Answer

Voici deux codes qui s'emmêlent l'un sur l'autre :

Ce code serre à gérer la tabulation par touche clavier "Enter" :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is TextBox Then
                AddHandler ctrl.KeyPress, AddressOf EnterKey
            End If
        Next
    End Sub
    Private Sub EnterKey(ByVal sender As Object, ByVal e As KeyPressEventArgs)
        If e.KeyChar = ChrW(Keys.Enter) Then
            Dim oNextControl As System.Windows.Forms.Control = Me.GetNextControl(CType(sender, Control), True)
            oNextControl.Focus()
        End If
    End Sub

Celui ci sert à gérer la touche KeyPress d'un textbox :
Private Sub TextBox6_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
        If Not ",.1234567890".Contains(e.KeyChar) And e.KeyChar <> vbBack Then e.KeyChar = Nothing
        Dim Pos As Integer
        Pos = TextBox6.SelectionStart
        If e.KeyChar = "." Then
            e.Handled = True
            TextBox6.Text = TextBox6.Text.Insert(Pos, ",")
            TextBox6.SelectionStart = Pos + 1
        End If
    End Sub

Lorsque la tabulation arrive sur cette zone de texte, à cause de la fonction KeyPress du TextBox6, la tabulation s'arrête et ne prends plus effet. Si je désactive la fonction KeyPress du TextBox6, la tabulation continue.

C'est le problème que je rencontre en ce moment sur cette question, peut être à cause du KeyPressEventArgs.

Whismeril · Answer

Il faut donc que te gères tout ça autrement:
Par exemple:
        Select Case e.KeyChar
            Case ","c, "."c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "0"c
                'ici ce que tu as a faire avec ces caractères

Case "9"c, "5"c, "0"c, "3"c, "6"c, "2"c, "1"c, "-"c, "R"c, "J"c
                'il me semble que tu avais ceux là à autoriser aussi
                'attention il y a des caractères en commun dans les deux séries, il faudra peut faire case spécifique à ces caractères

Case ChrW(Keys.Enter)
                'ce que tu as à faire avec entrée

Case ChrW(Keys.Back)
                'à voir si tu autorises ou pas l'action de la touche BackSpace, Sachant que Delete ne passe pas dans KeyPress

Case Else
                'on annule les autres touches
                e.Handled = True

End Select

Auto Tabulation

7 réponses

Votre réponse

Discussions similaires