Sandro Bizioli


Chi sogna di giorno conosce molte cose che sfuggono a chi sogna soltanto di notte. (E.A.Poe)
Mappa

Verificare l'esistenza di un controllo in VB6 (Exists)

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

Categoria: VB6
martedì, 14 apr 2009 Ore. 11.29
Statistiche
  • Views Home Page: 105.750
  • Views Posts: 530.738
  • Views Gallerie: 88.833
  • n° Posts: 227
  • n° Commenti: 222
Copyright © 2002-2007 - Blogs 2.0
dotNetHell.it | Home Page Blogs
ASP.NET 2.0 Windows 2003