Differenze tra le versioni di "Creare array di oggetti"
Da Gambas-it.org - Wikipedia.
(Nuova pagina: ''<Font Color= #006400>' Gambas class file</font> Lblarray[5] As Label ''<Font Color= #006400>' è posto il limite di prova massimo a 5 oggetti ("array di 5 elementi: da 0 a 4"...) |
|||
| Riga 1: | Riga 1: | ||
| − | + | Gli esempi che faremo, vedranno la creazione di un array indefinito di oggetti. | |
| + | |||
| + | |||
| + | |||
| + | <FONT color=B22222>'''1'''</font>Uso del metodo ''.Add'' con un oggetto array e con specificazione dell'elemento dell'array nel quale inserire la Label: | ||
| + | |||
| + | <Font Color= #006400>' ''Gambas class file</font> | ||
| + | Private obj As New Object[] | ||
| + | c As Integer | ||
| + | i As Integer | ||
| − | |||
| − | |||
| − | |||
| + | '''Public''' Sub Button1_Click() | ||
| − | + | obj.Add(Label) | |
| + | obj[i] = New Label(Me) | ||
| − | + | <FONT color=006400>' ''Viene mostrata la Label sul form:''</font> | |
| + | With obj[i] | ||
| + | .X = 10 * i | ||
| + | .Y = c | ||
| + | .width = 100 | ||
| + | .height = 20 | ||
| + | .text = "Nuova Label" | ||
| + | End With | ||
| − | + | c += 30 | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | + | Inc i | |
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
| − | |||
'''End''' | '''End''' | ||
Versione delle 07:24, 15 apr 2012
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
