Verificare l´esistenza di un oggetto: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
Nessun oggetto della modifica
(Redirect alla pagina Verificare l'esistenza di un oggetto)
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 1: Riga 1:
Analizzeremo il caso in cui si debba verificare l'esistenza di un oggetto su un ''Form'', e l'esistenza di un oggetto a sé stante privo di ''genitore''.
#REDIRECT [[Verificare_l'esistenza_di_un_oggetto]]
 
 
=Verifica sul form principale=
 
Per verificare l'esistenza di oggetto su un ''Form'', possiamo adottare almeno tre modalità:
 
 
====1<SUP>a</sup> modalità====
'''Public''' Sub Button1_Click()
  If Object.IsValid(FMain["<FONT color=gray>''Variabile_dell'oggetto''</font>"]) Then
    Print "L'oggetto è presente nel Form !"
  Endif
 
'''End'''
 
 
====2<SUP>a</sup> modalità:====
'''Public''' Sub Button1_Click()
 
  If IsNull(Me.Controls["<FONT color=gray>''Variabile_dell'oggetto''</font>"]) = False Then
    Print "L'oggetto è presente nel Form !"
  Endif
 
'''End'''
 
 
====3<SUP>a</sup> modalità:====
'''Public''' Sub Button1_Click()
  Dim obj As Object
 
  For Each obj In FMain.Children
    If obj.Name = "<FONT color=gray>''Variabile_dell'oggetto''</font>" Then Print "L'oggetto è presente nel Form !"
  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 !"
  Endif
'''End'''

Versione attuale delle 08:32, 6 set 2020

Reindirizza a:

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Verificare_l´esistenza_di_un_oggetto&oldid=27262"