Visualizza wikitesto di Verificare l'esistenza di un Controllo in un Contenitore

Analizzeremo il caso in cui si debba verificare l'esistenza di un Oggetto grafico su un ''Form'', e l'esistenza di un Oggetto grafico a sé stante privo di ''genitore''.
=Se si conosce solo il nome della Classe del Controllo=

===Usando [https://gambaswiki.org/wiki/comp/gb/object/is?l=it Object.Is()]===
 Public Sub Button1_Click()
 
  Dim ob As Object
 
  For Each ob In Me.Children
    If Object.Is(ob, "<FONT color=gray>''Nome_della_'''Classe'''_dell'Oggetto''</font>") Then
      Print "L'oggetto è presente nel Form !"
    Endif
  Next
 
 End

===Usando [https://gambaswiki.org/wiki/lang/is?l=it Is]===
 Public Sub Button1_Click()
 
  Dim ob As Object
 
  For Each ob In Me.Children
    If ob Is "<FONT color=gray>''Nome_della_'''Classe'''_del_Controllo''</font>" Then
      Print "L'Oggetto è presente nel Form !"
    Endif
  Next
 
 End

===Usando Object.Class().Name===
 Public Sub Button1_Click()
 
  Dim ob As Object
 
  For Each ob In Me.Children
    If Object.Class(ob).Name = "<FONT color=gray>''Nome_della_'''Classe'''_del_Controllo_cercato''</font>" Then
      Print "L'Oggetto è presente nel Form !"
    Endif
  Next
 
 End

===Usando Object.Type()===
 Public Sub Button1_Click()
 
  Dim ob As Object
 
  For Each ob In Me.Children
    If Object.Type(ob) = "<FONT color=gray>''Nome_della_'''Classe'''_del_Controllo_cercato''</font>" Then Print "L'Oggetto è presente nel Form !"
  Next
 
 End

===Usando La funzione "Str()" e l'operatore "Like"===
In questo caso il nome della Classe del Controllo cercato va posto fra due asterischi.
 Public Sub Button1_Click()
 
  Dim ob As Object
 
  For Each ob In Me.Children
    If Str(ob) Like "'''*'''<FONT color=gray>''Nome_della_'''Classe'''_del_Controllo_cercato''</font>'''*'''" Then Print "L'Oggetto è presente nel Form !"
  Next
 
 End

=Se si conosce il nome della variabile del Controllo==

===Usando [https://gambaswiki.org/wiki/comp/gb/object/isvalid?l=it Object.IsValid()]===
 Public Sub Button1_Click()
 
  If Object.IsValid(FMain["<FONT color=gray>''Nome_della_'''Variabile'''_del_Controllo''</font>"]) Then
    Print "L'oggetto è presente nel Form !"
  Endif
  
 End

===Usando IsNull()===
 Public Sub Button1_Click()
 
  If IsNull(Me.Controls["<FONT color=gray>''Nome_della_'''variabile'''_del_Controllo''</font>"]) = False Then
    Print "L'Oggetto è presente nel Form !"
  Endif
 
 <FONT color=gray>' ''oppure:''</font>
  If IsNull(Me["<FONT color=gray>''Nome_della_'''variabile'''_del_Controllo''</font>"]) = False Then
    Print "L'Oggetto è presente nel Form !"
  Endif
 
 End
Può essere utile nel caso in cui il Controllo possa essere stato distrutto. 

===Usando la Proprietà ".Name" dei Controlli===
 Public Sub Button1_Click()
 
  Dim ob As Object
  
  For Each ob In Me.Children
    If ob.Name = "<FONT color=gray>''Nome_della_'''Variabile'''_del_Controllo''</font>" Then
      Print "L'oggetto è presente nel Form !"
    Endif
  Next
 
 End


=Verifica di un oggetto a sé stante senza ''Genitore''=
Poniamo il caso di un Oggetto di tipo ''Window'' <SPAN style="text-decoration:underline">senza genitore</span>, creato ad esempio così:
 Private w As Window
 
 
 Public Sub Form_Open()
 
  With w = New Window As "w"
    .W = 100
    .H = 200
    .X = 300
    .Y = 300  
    .Background = Color.Yellow
    .Show
  End With
 
 End
Ne potremo verificare l'esistenza come segue:
 Public sub Button1_Click()
 
 <FONT color=gray>' ''All'interno della funzione "Object.IsValid()" verrà inserita la variabile del tipo dell'oggetto a sé stante, del quale cui si vuole verificare l'esistenza:''</font>
  If <FONT color=#B22222>Object.IsValid(w)</font> Then Print "Oggetto esistente !"
 
 End