NRG
07-09-2005, 11:13
ciao a tutti
devo creare un programmino VB dove sia possibile disegnare e spostare delle forme geometriche
ho creato una picturebox, riesco a disegnare dei rettangoli e a spostarli (come oggetti shape) ma dandogli un nome ben definito ad ognuno (p.es. rect1 rect2 rect3...).
qualcuno sa dirmi come creare questi oggetti shape interni alla picturebox come elementi di una matrice di controlli???
(p.es. rect1(0) rect1(1) rect1(2)...)
ho provato con questo codice ma va in errore nella fase di aggiunta del controllo perchè non accetta il nome con l'indice
Dim Shape2() As Control
...
Private Sub Form_Load()
ReDim Shape2(1) As Control
End Sub
...
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim I As Byte
...
I = UBound(Shape2)
ReDim Shape2(I + 1) As Control
Set Shape(I) = Controls.Add ("VB.Shape", "Shape2(" & I & ")", Picture1)
Shape2(I).Visible = True
...
End Sub
datemi una mano :confused: :cry:
grazie
...
devo creare un programmino VB dove sia possibile disegnare e spostare delle forme geometriche
ho creato una picturebox, riesco a disegnare dei rettangoli e a spostarli (come oggetti shape) ma dandogli un nome ben definito ad ognuno (p.es. rect1 rect2 rect3...).
qualcuno sa dirmi come creare questi oggetti shape interni alla picturebox come elementi di una matrice di controlli???
(p.es. rect1(0) rect1(1) rect1(2)...)
ho provato con questo codice ma va in errore nella fase di aggiunta del controllo perchè non accetta il nome con l'indice
Dim Shape2() As Control
...
Private Sub Form_Load()
ReDim Shape2(1) As Control
End Sub
...
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim I As Byte
...
I = UBound(Shape2)
ReDim Shape2(I + 1) As Control
Set Shape(I) = Controls.Add ("VB.Shape", "Shape2(" & I & ")", Picture1)
Shape2(I).Visible = True
...
End Sub
datemi una mano :confused: :cry:
grazie
...