Discussion :

[fifth]

Bonjour,
Je cherche à integrer un Textbox dynamique, dans un frame dynamique. J'arrive à creer ces 2 objets, mais le probleme est que le textbox n'est pas contenu dans le frame.
Voici une partie du code, qui crée ces controles :

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
 
Sub NewCtrl()
    Dim oCtr As Control
    Dim compt As Byte
    For compt = 1 To nPays
        Set oCtr = Form2.Controls.Add("forms.Frame.1", "Frame" & compt)
            With oCtr
                .Height = 40
                .Left = 102 + (compt * 98)
                .Top = 240
                .Width = 78
                .Caption = "Pays" & compt
                .ForeColor = &H8000000E
            End With
        Set oCtr = Form2.Controls.Add("forms.textbox.1", "MinPays" & compt)
            With oCtr
                .Height = 15.75
                .Left = 6
                .Top = 12
                .Width = 30
            End With
       Next
End Sub

Je veux créer un frame car il y aura plusieurs textbox contenu dans chaque frame.
Merci

[tirex28]

Bonjour,

Il faut utiliser la propriété Controls du frame:

Code :

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

1
2
3
4
5
6
7
Dim Fr As msforms.Frame
Set Fr = form2.Controls.Add("forms.Frame.1")
Fr.Visible = True
 
Dim Tb As msforms.TextBox
Set Tb = Fr.Controls.Add("forms.textbox.1")
Tb.Visible = True

Cordialement,

Tirex28/