|
|
| (5 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=
| |
| − | 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=#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'''
| |
