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