Individuare una Classe di oggetti fra molti

Da Gambas-it.org - Wikipedia.

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 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