Discussion :

[rgmgm]

Bonjour.

J'ai un panel dans un form avec 4 textbox.
Chacun, a des conditions pour obliger le format de saisie(numérique), nombre de caractère, passer le focus au control suivant...

Les conditions étant identique pour tous les textbox, comment est ce que je peux faire pour n'avoir à écrire qu'une seule fois mes instructions et qu'elle ne concerne que le textbox qui a le focus.

J'ai déjà consulté les forums tutos et autre, et à force de lire je ne sais qu'elle est la solution
Si quelqu'un pouvait au moins me donner un lien

d'avance merci

[jlm22]

Salut,

Utilise la propriété Focused de tes texteBox

[rgmgm]

Bonjour.
Merci pour la rapidité de la réponse, qui semble être une bonne piste.
Je regarde ce que je peut en faire

[Masmeta]

Tu peux aussi utiliser l'événement Validated

Code :

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

1
2
3
4
5
 
Private Sub Tb_Validated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB1.Validated,TB2.Validated,TB3.Validated,TB4.Validated
 
-- code de contrôle de données
end sub

[rgmgm]

J'étais partis dans l'idée de créer dans un module un sub tbox() avec en exemple, If TextBox.Text.Count= , appeler par le textbox qui a le focus.

Code :

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

1
2
3
4
5
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
 
tbox()
 
end sub

Pour chaque textbox concerné, et je me retrouvais coincé pour récupéré le nom du textbox dans mon sub.

[jlm22]

tu le met en parametre de ton sub

[chrismonoye]

J'ai un panel dans un form avec 4 textbox.
Les conditions étant identique pour tous les textbox, comment est ce que je peux faire pour n'avoir à écrire qu'une seule fois mes instructions et qu'elle ne concerne que le textbox qui a le focus.

Bonsoir,

pourquoi ne pas abonner chaque TextBox du Panel, aux événements voulus, par l'entremise de AddHandler ?
Ainsi une seule procédure pour tous les contrôles concernés, qui réagit en rapport avec le contrôle déclancheur.

Ici un exemple.
Le TextBox qui reçoit la touche "entrée", renvoie le focus sur son suivant :

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
27
28
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RechercheTxtBox(TryCast(Me.Panel1, Panel))
    End Sub
 
    ' Recherche de tout TextBox appartenant au conteneur désigné,
    Private Sub RechercheTxtBox(ByRef parent As Control)
 
        For Each crl As Control In parent.Controls
            crl = TryCast(crl, TextBox)
            If crl IsNot Nothing Then
                ' pour l'abonner à tout event désiré.
                AddHandler crl.KeyDown, AddressOf TextBoxReturn
            End If
        Next
    End Sub
 
    Private Sub TextBoxReturn(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.KeyEventArgs)
 
        Dim ctl As Control = CType(sender, TextBox)
        Select Case e.KeyCode
            Case Is = Windows.Forms.Keys.Return
                Dim ctlSuivant As Control = Me.GetNextControl(ctl, True)
                If ctlSuivant Is DirectCast(ctlSuivant, TextBox) AndAlso ctlSuivant IsNot Nothing Then
                    ctlSuivant.Select()
                End If
        End Select
    End Sub

[rgmgm]

Merci de votre participation qui m'a permis de résoudre mon problème.
J'ai fini par faire un handle sur tb1.keypress, tb2.keypress,..., autant de fois que nécessaire, et aussi utilisé CType(sender, TextBox)

J'avais déjà buté sur la même difficulté avec des checkbox.

Je ne publie pas mon code, car il me reste des petites erreurs à résoudre, et aussi parce que je ne considère pas l'écriture de mon code comme étant suffisamment propre pour être démonstrative.

[Pol63]

pour info, dans ce cas directcast est plus rapide que ctype qui est en théorie réservé pour des conversions entre type