Può capitare, anche non lavorando necessariamente con oggetti creati a run-time, di dover verificare se all'interno della nostra form esiste già un determinato controllo.
Per l'occorrenza ecco qui una routine un po' datata, ma sempre efficace.
Ad esempio, supponiamo di dover verificare se esiste l'elemento di indice 5 di un array di controlli.
If Exists(mioControllo(K)) Then mioControllo(K).Caption = "Esiste"
Ecco la funzione.
Buon VB a tutti.
Private Function Exists(ByVal myCtr As Control) As Boolean
'***********************************************************
' Func.: Exists (Creazione: SB 20061129 Mod: )
' Desc.: Questa routine verifica se nalla form attuale esiste già
' il controllo indicato
' Para.: myCtr Controllo da verificare
' Note:
'***********************************************************
On Error Resume Next
If myCtr.Name <> "" Then
End If
Exists = (Err.Number = 0)
On Error GoTo 0
End Function