Differenze tra le versioni di "Verificare l´esistenza di un oggetto"
Da Gambas-it.org - Wikipedia.
| 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 | + | 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''. |
=Verifica sul form principale= | =Verifica sul form principale= | ||
| − | Per verificare l'esistenza di oggetto su un | + | Per verificare l'esistenza di oggetto su un ''Form'', possiamo adottare almeno tre modalità: |
| Riga 10: | Riga 10: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
| − | + | If Object.IsValid(FMain["<FONT color=gray>''Variabile_dell'oggetto''</font>"]) Then | |
| − | + | Print "L'oggetto è presente nel Form !" | |
| − | + | Endif | |
| − | + | ||
| − | |||
| − | |||
'''End''' | '''End''' | ||
| Riga 21: | Riga 19: | ||
====2<SUP>a</sup> modalità:==== | ====2<SUP>a</sup> modalità:==== | ||
'''Public''' Sub Button1_Click() | '''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''' | '''End''' | ||
| Riga 33: | Riga 33: | ||
For Each obj In FMain.Children | For Each obj In FMain.Children | ||
| − | + | If obj.Name = "<FONT color=gray>''Variabile_dell'oggetto''</font>" Then Print "L'oggetto è presente nel Form !" | |
| − | |||
| − | |||
Next | Next | ||
| Riga 44: | Riga 42: | ||
=Verifica di un oggetto a sé stante senza ''genitore''= | =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ì: | 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 | |
| Riga 63: | Riga 61: | ||
'''Public''' sub Button1_Click() | '''Public''' sub Button1_Click() | ||
| − | <FONT color= | + | <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> | ' ''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 | If <FONT color=#B22222>Object.IsValid(w)</font> Then | ||
Versione delle 15:26, 12 apr 2016
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.
Indice
Verifica sul form principale
Per verificare l'esistenza di oggetto su un Form, possiamo adottare almeno tre modalità:
1a modalità
Public Sub Button1_Click()
If Object.IsValid(FMain["Variabile_dell'oggetto"]) Then
Print "L'oggetto è presente nel Form !"
Endif
End
2a modalità:
Public Sub Button1_Click()
If IsNull(Me.Controls["Variabile_dell'oggetto"]) = False Then
Print "L'oggetto è presente nel Form !"
Endif
End
3a modalità:
Public Sub Button1_Click()
Dim obj As Object
For Each obj In FMain.Children
If obj.Name = "Variabile_dell'oggetto" 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 senza genitore, 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 Object.IsValid(w) Then
Print "Oggetto esistente !"
Endif
End
