Creare array di oggetti
Vai alla navigazione
Vai alla ricerca
Gli esempi che faremo, vedranno la creazione di un array indefinito di oggetti.
1Uso del metodo .Add con un oggetto array e con specificazione dell'elemento dell'array nel quale inserire la Label:
' Gambas class file
Private obj As New Object[]
c As Integer
i As Integer
Public Sub Button1_Click()
obj.Add(Label)
obj[i] = New Label(Me)
' Viene mostrata la Label sul form:
With obj[i]
.X = 10 * i
.Y = c
.width = 100
.height = 20
.text = "Nuova Label"
End With
c += 30
Inc i
End