Oppure

Loading
08/03/10 11:56
bios1993
Ciao a tutti vorrei chiedervi come da titolo come si creano deglio array di oggetti dal sorgente ad esempio io oggi cercavo di creare un array oggetto ma non funziona.

Private Sub Command1_Click()
Dim testo(5) As Label
Dim i As Integer
i = 0
While i <> 5
    testo(i).Caption = "testo"
    i = i + 1
Wend
End Sub


voi mi sapreste dire qual è l'errore nel codice e come farlo diventare dinamico
grazie
aaa
08/03/10 12:24
antometal
devi prima crearlo con Load oggetto(index), poi devi impostare le proprietà di posizione, dimensione e visibilità
del tipo:
       Load lblLettera(I)
        lblLettera(I).Left = lblLettera(I - 1).Left + lblLettera(I).Width + 120
        lblLettera(I).Visible = True 


in questo caso lblLettera(0) è gia esistente nel form
aaa
08/03/10 12:37
bios1993
ho fatto come mi hai detto e mi da errore su load

Private Sub Command1_Click()
Dim testo(5) As Label
Dim i As Integer
For i = 0 To 5
    Load testo(i)
    testo(i).Left = i * 40
    testo(i).Visible = True
Next i
End Sub
aaa
08/03/10 15:50
GrG
per usare Load() devi crearti prima un'oggetto label sul form con index = 0 e poi usi la funzione... caricando load NomeOggetto(X) e incrementi X per creare nuove label
aaa