Discussion :

[Didi34]

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.

[littledoudou]

bonjour,

ceci devrait t'aider:

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
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,

[Didi34]

bonjour,

ceci devrait t'aider:

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
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!
Je teste et je te tiens au courant!

[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 !!!!!

[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,

[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é!
Pur créer une checkBox, je fais ca:

Code :

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

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???