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


Qualora gli oggetti siano posti all'interno di un Contenitore, ad esempio un Panel, allora non potrà essere utilizzata anche la proprietà Controls (proprietà non posseduta dai Contenitori), ma si utilizzerà la proprietà Children.

Public Sub Button1_Click()

 Dim obj As Object
 
' Per ogni oggetto posto nel Form...'
   For Each obj In Panel1.Children

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