clonare oggetti in vb!!

[BlackDemon]

Ciao a tutti!!!
Sapete il comando per poter aggiungere pulsanti..text..check box..form..mentre un programma è in esecuzione?? Insomma x clonarlo!!

[Mabi]

Prova a fare anche qualche ricerca nel forum...

Troveresti quello che cerchi.

[CAINO76]

ti mando un esempio

devi prima di tutto inserire un commandButton nel form, e dalle proprietà setta la Index = 0

poi ....

Dim x As Integer
---------------------------------------------
Private Sub Command1_Click(Index As Integer)
x = x + 400 'incremento di 400 per visualizzare il nuovo button
y = x / 400 'incremento la y ogni volta di 1
Load Command1(y)
Command1(y).Top = Command1(0).Top + x
Command1(y).Visible = True
End Sub
---------------------------------------------

alla Proxima !!!

[BlackDemon]

grazie..il tuo codice funonzia bene..ma ne riesco a creare uno solo pulsante..se ne volessi creare infiniti come dovrei fare??

[CAINO76]

quel codice ti permette di creare infiniti pulsanti !

prova a farlo girare e clicca più volte sul pulsante !!!

ciao

[BlackDemon]

no ke nn funonzia..dice oggetto:

Load Command1(y)

già caricato!!!!!!!

[CAINO76]

Hai impostato la proprietà index del Command1 = 0 ??????????

[BlackDemon]

CERTO!

[CAINO76]

Non so che dirti !!
a me funziona bene !

comunque l'errore che ti restituisce, vuol dire che Command1(y) è un'oggetto esistente..........

quindi le cause sono 2

1) Command1 non è un'array

oppure

2) l'indice y dell'array Command1 non incrementa ad ogni click di uno

Caio !