[VB6] création dynamique d'un controle

Bonjour à tous.
La difficulté que je rencontre est de créer dynamiquement un controle à l'intérieur d'un autre controle.
Je m'explique : sur ma Form, j'ai une PictureBox sur laquelle je souhaite créer dynamiquement un controle Line.
Dans mon code ci-dessous, comment faire pour indiquer que le controle Line appartient à la PictureBox ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim TOTO as VB.Line ' code pour créer et afficher une Line : Set TOTO = Form1.Controls.Add("VB.Line", "toto") TOTO.X1 = 10 TOTO.Y1 = 10 TOTO.X2 = 100 TOTO.Y2 = 100 TOTO.Visible = True ' code pour supprimer cette Line : Set TOTO = Nothing Form1.Controls.Remove "toto"

---

Merci.

Commence par ajouter un 'line' sur ton picture box
met sa propriété index à 0 et sa propriété visible à false
inspire toi de ce code pour ajouter des line1

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Command1_Click() Dim Idx As Integer Idx = Line1.Count Load Line1(Idx) Line1(Idx).Y1 = Line1(Idx - 1).Y1 + 100 Line1(Idx).Y2 = Line1(Idx - 1).Y2 + 100 Line1(Idx).Visible = True   End Sub

---

Merci, ça marche au poil, et c'est bien plus simple comme ça !

N'oublie pas le tag résolu :)