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 :
Je veux créer un frame car il y aura plusieurs textbox contenu dans chaque frame.
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
Merci
Partager