Differenze tra le versioni di "Verificare l´esistenza di un oggetto"

Da Gambas-it.org - Wikipedia.
(Redirect alla pagina Verificare l'esistenza di un oggetto)
 
(3 versioni intermedie di uno stesso utente non sono mostrate)
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 che non abbia genitore.
+
#REDIRECT [[Verificare_l'esistenza_di_un_oggetto]]
 
 
 
 
=Verifica sul form principale=
 
 
 
Per verificare l'esistenza di oggetto su un form, possiamo adottare tre modalità:
 
 
 
 
 
====1<SUP>a</sup> modalità====
 
'''Public''' Sub Button1_Click()
 
 
  If Object.IsValid(FMain["Nome_dell'oggetto"]) Then
 
 
  Print "L'oggetto è presente nel Form !"
 
 
Endif
 
 
'''End'''
 
 
 
 
 
====2<SUP>a</sup> modalità:====
 
'''Public''' Sub Button1_Click()
 
 
  Print IsNull(Me.Controls["Nome_dell'oggetto"])
 
 
'''End'''
 
 
 
 
 
====3<SUP>a</sup> modalità:====
 
'''Public''' Sub Button1_Click()
 
 
  Dim obj As Object
 
 
 
  For Each obj In FMain.Children
 
 
    Print obj.Name
 
 
  Next
 
 
'''End'''
 
 
 
 
 
====4<SUP>a</sup> modalità====
 
'''Public''' Sub Button1_Click()
 
 
  If Object.IsValid(FMain["nome_oggetto"]) Then
 
 
    Print "L'oggetto è presente nel Form !"
 
 
  Endif
 
 
'''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=#006400>' ''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 07:32, 6 set 2020