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)
 
(4 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à:
 
 
====1a modalità====
'''Public''' Sub Button1_Click()
  If Object.IsValid(FMain["Nome_dell'oggetto"]) Then
  Print "L'oggetto è presente nel Form !"
Endif
'''End'''
 
 
====2a modalità:====
'''Public''' Sub Button1_Click()
  Print IsNull(Me.Controls["Nome_dell'oggetto"])
'''End'''
 
 
====3a modalità:====
'''Public''' Sub Button1_Click()
  Dim obj As Object
 
  For Each obj In FMain.Children
    Print obj.Name
  Next
'''End'''
 
 
 
=Verifica su un form secondario=
 
Se la verica dovrà essere compiuta su un form secondario, si potrà adottare il seguente algoritmo:
 
'''Public''' Sub Button1_Click()
  If Object.IsValid(FMain.classeSecondaria.FormSecondario["nome_oggetto"]) Then
    Print "L'oggetto è presente nel Form secondario !"
  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 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"