Discussion :

[bastou93]

Bonjour a tous,

J'arrive à créer dynamiquement et gérer mes controles, cependant je n'arrive pas à les mettre dans un Frame créer lui aussi dynamiquement.

Quelqu'un sait comment faire...

Voici un bout de code pour que sa aide à expliquer

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
Public Sub AddCombo()
 
'Déclaration
Dim Obj As Control
Dim C1 As cComboBoxDynamic
Dim i As Integer
Dim j As Integer
 
'Création de l'objet de type Combobox
Set Obj = IHM.Controls.Add("forms.Combobox.1")
 
'Paramètrage du contrôle
With Obj
    .Name = "ComboBox" & Collect.Count
    .Left = 264
    .Top = 12 + 300 * Collect.Count
    .Width = 198
    .Height = 18
End With
 
'Indique la classe pour donner l'accès au combobox dynamique à ses évenements ainsi que l'ajout dans la classe.
Set C1 = New cComboBoxDynamic
Set C1.ComboB = Obj
Collect.Add C1
 
 
End Sub

Merci Bastien

[Arkham46]

bjr,


il suffit d'ajouter le contrôle au frame, comme pour un userform

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Sub AddCombo()
Dim oFrame As msforms.Frame
Dim oCombo As msforms.ComboBox
Set oFrame = MonUserForm.Controls.Add("Forms.Frame.1")
oFrame.Left = 100
oFrame.Top = 100
oFrame.Width = 300
oFrame.Height = 200
' la combobox est ajoutée au cadre oFrame
Set oCombo = oFrame.Controls.Add("Forms.ComboBox.1")
oCombo.Width = 150
oCombo.Height = 20
End Sub

[bastou93]

Merci beaucoup NIKEL CHROME claire et efficace

juste en bonus
le faire de mettre:

Code :

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

Dim oCombo As msforms.ComboBox

te permet il d'avoir accès au evenement du combobox tel que change... etc sans créer de classe spécifique? comme ici:
http://silkyroad.developpez.com/VBA/...icEditor/#LV-A

Merci encore

Bastien

[Arkham46]

le faire de mettre:

Code :

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

Dim oCombo As msforms.ComboBox

te permet il d'avoir accès au evenement du combobox tel que change... etc sans créer de classe spécifique?

si oCombo est déclaré en en-tête de module, avec WithEvents, on a accès à ces événements
mais il faut alors un objet oCombo par combobox

[bastou93]

Sa marche, cela va me simplifier mon code

Je vais en faire une collection et op plus besoin de classe en plus

merci encore

Bastien