|
|
| (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'''
| |
