05/12/10 18:20
evil ways
Salve ho un problema non riesco a gestire i controlli creati durante l'esecuzione, il controllo viene creato tramite questo codice all'interno di un pulsante.
io dovrei gestire gli eventi mousedown: esempio
l'unico inconveniente che con questa istruzione riesco a gestire solo l'ultimo controllo creato e non tutti gli altri precedentemente creati.
spero di essere stato il più chiaro possibile.
vi ringrazio in anticipo.
n = n + 1
p = p + 100
X = Form1.Height / 2
Y = Form1.Width / 2
Set pic = Controls.Add("VB.picturebox", "pic" & n)
With pic
.Visible = True
.Width = 2000
.AutoSize = True
.BorderStyle = 0
.Top = X + p
.Left = Y + p
.Picture = LoadPicture("F:\Programma rete vb6\images.gif")
End With
io dovrei gestire gli eventi mousedown: esempio
Private Sub pic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then MuoviControllo pic.hwnd End Sub
l'unico inconveniente che con questa istruzione riesco a gestire solo l'ultimo controllo creato e non tutti gli altri precedentemente creati.
spero di essere stato il più chiaro possibile.
vi ringrazio in anticipo.
aaa
