Creare array di oggetti

' Gambas class file


Lblarray[5] As Label   ' è posto il limite di prova massimo a 5 oggetti ("array di 5 elementi: da 0 a 4")
a As Integer
b As Integer


Public Sub Button1_Click()   ' Crea una sola Label ogni qualvolta viene premuto Button1

 Dim c, d As Integer
   
 b += 50
 
' crea la Label e la distingue dalle altre eventuali con un numero contenuto nella variabile “ a “,
' (ma questa volta non in aggiunta alla sua denominazione).
Lblarray[a] = New Label(Me)
   
With Lblarray[a]
  .Border = Border.Raised   ' definisco le caratteristiche della label
  .W = 100
  .H = 20
  .X = b
  .Y = b
End With

' per prova trovo l'ID della Label appena creata
' e distinta con la variabile "a" dell'array.
Print Lblarray[a].ID
 
' Per ulteriore prova intendo distruggere una Label precedentemente creata
' indicandone (questa è la prova effettiva) il numero assegnatole con la variabile " a ".
 If a = 4 Then
   d = InputBox("Elimina una label (il numero deve essere compreso fra 0 e 4)")

' ri-ottengo per riprova l'Id della Label scelta in InputBox
     Print Lblarray[d].ID

' elimina la Label segnata dalla variabile dell'array scelta in InputBox
   Lblarray[d].delete       

 Endif

' incremento la variabile relativa alla cella dell'array di indice 0
 a = a + 1

End