Discussion :

[rodymary]

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 :

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

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.

[Delbeke]

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 :

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

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

[rodymary]

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

[Delbeke]

N'oublie pas le tag résolu