Compter nombre de textbox

Version imprimable

17/04/2009, 14h51
Didi34

Compter nombre de textbox

Bonjour à tous.
Je travaille sur le développement d'un outil interne en VB.
Je créer des elements (textbox,checbox etc....) de facon dynamiques.
Cependant, j'aimerai développer une fonction qui me retourne le nombre d'élements de types Checkbox dans mon Interface.
Est-ce que quelqu'un sait comment s'y prendre?

Cordialement.

bonjour,

ceci devrait t'aider:

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
29
30
31
32
33
34
35
Option Explicit
 
Private Sub Command1_Click()
    MsgBox CStr(lngftn_ControlCount(Me, "TextBox"))
End Sub
 
Public Function lngftn_ControlCount(objForm_E As Form, strCtrlType_E As String) As Long
On Error GoTo lngftn_ControlCount_Error
 
    Dim objCtrl As Object       'contrôle en cours de traitement
    Dim lngCtrlIndex As Long    'index du contrôle
 
    lngftn_ControlCount = 0
 
    '--- pour tous les contrôles du formulaire ---
    For lngCtrlIndex = 0 To (objForm_E.Controls.Count - 1)
 
        'instanciation de l'objet contrôle
        Set objCtrl = objForm_E.Controls(lngCtrlIndex)
 
        'récupération du type (TextBox, Label, CommandButton, etc.) et comparaison au type passé en paramètre
        If TypeName(objCtrl) = strCtrlType_E Then
 
            lngftn_ControlCount = lngftn_ControlCount + 1
        End If
 
    Next lngCtrlIndex
 
'gestion des erreurs
lngftn_ControlCount_Error:
    If Err Then
        MsgBox CStr(Err.Number) & vbCrLf & Err.Description
        lngftn_ControlCount = -1
    End If
End Function

>> remplace "TextBox" par le type de contrôle recherché

cdlt,

Citation:

Envoyé par littledoudou

bonjour,

ceci devrait t'aider:

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
29
30
31
32
33
34
35
Option Explicit
 
Private Sub Command1_Click()
    MsgBox CStr(lngftn_ControlCount(Me, "TextBox"))
End Sub
 
Public Function lngftn_ControlCount(objForm_E As Form, strCtrlType_E As String) As Long
On Error GoTo lngftn_ControlCount_Error
 
    Dim objCtrl As Object       'contrôle en cours de traitement
    Dim lngCtrlIndex As Long    'index du contrôle
 
    lngftn_ControlCount = 0
 
    '--- pour tous les contrôles du formulaire ---
    For lngCtrlIndex = 0 To (objForm_E.Controls.Count - 1)
 
        'instanciation de l'objet contrôle
        Set objCtrl = objForm_E.Controls(lngCtrlIndex)
 
        'récupération du type (TextBox, Label, CommandButton, etc.) et comparaison au type passé en paramètre
        If TypeName(objCtrl) = strCtrlType_E Then
 
            lngftn_ControlCount = lngftn_ControlCount + 1
        End If
 
    Next lngCtrlIndex
 
'gestion des erreurs
lngftn_ControlCount_Error:
    If Err Then
        MsgBox CStr(Err.Number) & vbCrLf & Err.Description
        lngftn_ControlCount = -1
    End If
End Function

>> remplace "TextBox" par le type de contrôle recherché

cdlt,

Félicitation pour la rapidité Littledoudou!:king:
Je teste et je te tiens au courant!

17/04/2009, 15h16
Didi34

ta fonction marche a merveille LittleDoudou.
Cependant, j'ai oublié de préciser (c'est ma faute désolé:?) que je souhaité compter le nombre de checkbox qui sont contenus dans une Frame...

Ton code est-il modifiable pour une compatibilité?

Autant pour moi....
Il suffit de faire Form.Frame.Controls.Count.

Merci beaucoup !!!!!:yaisse2:
17/04/2009, 15h58
littledoudou

il y a un sujet là dessus:
[VB6] Comment lister les controles d'un frame ?

j'ai fait un essai mais cela ne répond pas vraiment à ton besoin car il semble que la propriété Container d'un controle renvoit toute la liste des contrôles du formulaire...

EDIT: un contrôle Frame n'a pas de propriété Controls

cdlt,
17/04/2009, 16h35
Didi34
Désolé, le Post n'est pas Résolu en réalité!
Voila, la fonction que m'a passé LittleDoudou me permet de compter le nombre d'élément Checkbox existant pour créer d'autre a la suite ( et je les créée parfaitement!)
Le problème est qu'en repassant la fonction de LittleDoudou, le nombre retourné est toujours le meme: il ne m'a pas compté l'objet rajouté!8O
Pur créer une checkBox, je fais ca:
Code:

1 2 3 Dim CheckBox As CheckBox 'Element de checkbox thematique Set CheckBox = Fenetre1.thematiques.Controls.Add("Forms.CheckBox.1", CheckBoxName, True) 'Creation de la checkbox
Quelqu'un a une Idée???
17/04/2009, 17h34
OhMonBato

Tu utilises quelle version de VB ? Pas VB.Net des fois ?