Plusieurs control textbox

Version imprimable

13/04/2011, 12h08
rgmgm

Plusieurs control textbox

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 :calim2:
Si quelqu'un pouvait au moins me donner un lien :cry:

d'avance merci
13/04/2011, 12h17
jlm22

Salut,

Utilise la propriété Focused de tes texteBox :ccool:
13/04/2011, 13h11
rgmgm

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

Tu peux aussi utiliser l'événement Validated

Code:

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

13/04/2011, 15h31
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:

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.
13/04/2011, 16h09
jlm22

tu le met en parametre de ton sub ;)
13/04/2011, 16h58
rgmgm

j'ai tenté de faire textbox.name = "textbox"& i dans une boucle et ca l'a pas fait.

Tu peux avoir le nom de ton textbox :

Code:

1
2
3
4
5
6
7
 
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim Tb as textBox = Sender
Dim Nom as String = tb.Name
tbox(Nom)
 
end sub

13/04/2011, 17h16
Pol63

et tu peux faire handles txt1.event, txt2.event, txt3.event, txt3.event

Citation:

Envoyé par rgmgm

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:

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

15/04/2011, 13h53
rgmgm

:P 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) :ccool:

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.
15/04/2011, 14h05
Pol63

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