Differenze tra le versioni di "Individuare una Classe di oggetti fra molti"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
Il caso è quello in cui, avendo in un qualsiasi contenitore una molteplicità di oggetti facenti parte di due o più Classi, si intende individuare soltanto gli oggetti appartenenti ad una specifica Classe, ed eventualmente modificarne una o più proprietà. | Il caso è quello in cui, avendo in un qualsiasi contenitore una molteplicità di oggetti facenti parte di due o più Classi, si intende individuare soltanto gli oggetti appartenenti ad una specifica Classe, ed eventualmente modificarne una o più proprietà. | ||
| − | + | Poniamo l'esempio specifico di avere su un ''Form'' sei oggetti, appartenenti in numero eguale a tre Classi: due ''Button'', due ''TextArea'' e due ''RadioButton''. | |
| − | Poniamo l'esempio di avere su un ''Form'' sei oggetti, appartenenti in numero eguale a tre Classi: due ''Button'', due ''TextArea'' e due ''RadioButton''. | ||
<BR>Vogliamo individuare gli oggetti appartenenti alla sola Classe ''Button'', e modificare la proprietà ''Text'': | <BR>Vogliamo individuare gli oggetti appartenenti alla sola Classe ''Button'', e modificare la proprietà ''Text'': | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
Versione delle 10:31, 12 gen 2013
Il caso è quello in cui, avendo in un qualsiasi contenitore una molteplicità di oggetti facenti parte di due o più Classi, si intende individuare soltanto gli oggetti appartenenti ad una specifica Classe, ed eventualmente modificarne una o più proprietà.
Poniamo l'esempio specifico di avere su un Form sei oggetti, appartenenti in numero eguale a tre Classi: due Button, due TextArea e due RadioButton.
Vogliamo individuare gli oggetti appartenenti alla sola Classe Button, e modificare la proprietà Text:
Public Sub Button1_Click()
Dim obj As Object
' Per ogni oggetto posto nel Form...'
For Each obj In FMain.Children
' (ma potremmo anche scrivere: For Each obj In FMain.Controls)
' ...effettuiamo una verifica: se il tipo di oggetto è un "Button"...'
If Object.Type(obj) = "Button" Then
' ...allora ne vediamo in console il nome della Classe di appartenenza,:'
Print obj.Name
' e, volendo, gli modifichiamo una proprietà:'
obj.Text = "tasto"
Endif
Next
End
