[VB6] Determinare se un controllo creato dinamicamente esiste

[Gumble]

creando un controllo cosi:

' Create a textbox and append it to fraSpecFields
name = "myTextBox"
Set txtNew = frmMain.Controls.Add("VB.TextBox", name, frmMain.fraSpecFields)

come posso determinare se esiste a run-time? mi serve perché lo creo in base a una scelta dell'utente. inoltre se provo a prendere il valore di un txtbox.text che non esiste il programma (come é ovvio) si blocca.

ci sto sbattendo la testa gia da ieri... qualche consiglio?

[oregon]

Per sapere se il controllo esiste basta cercarlo nella collezione Controls.

Ma non ho capito il secondo problema ...

[Gumble]

Originariamente inviato da oregon
Per sapere se il controllo esiste basta cercarlo nella collezione Controls.

Ma non ho capito il secondo problema ...

se io da codice creo un controllo txtbox e lo chiamo pippo.

msgbox pippo.text funziona

ma se per caso pippo non é stato creato

msgbox pippo.text blocca tutto perché vb non trova la txtbox.

é per evitare questo comportamento che devo controllare se un controllo txtbox di nome pippo esiste.

mi fai un esempio della soluzione che proponi?

[oregon]

Non ho capito come crei il textbox pippo ...

[Gumble]

Set txtNew = frmMain.Controls.Add("VB.TextBox", "pippo", frmMain.fraSpecFields)

ma come detto io non so a prescindere se il controllo sarà creato o meno. pero a un certo punto devo recuperarne il contenuto (sempre se il controllo é stato creato).

[oregon]

Il controllo viene creato e tu avrai accesso a tale controllo con l'oggetto

txtNew

e quindi, ad esempio

MsgBox txtNew.Text

Non ho ancora capito il problema ...

[Gumble]

Originariamente inviato da oregon
Il controllo viene creato e tu avrai accesso a tale controllo con l'oggetto

txtNew

e quindi, ad esempio

MsgBox txtNew.Text

Non ho ancora capito il problema ...

la cosa é molto semplice:

1) progr: "utente, quali textbox vuoi creare?" (pippo, pluto, paperino)
2) utente:" voglio creare solo pluto e paperino"
...)
n) progr: "voglio salvare i dati nel database, ma se un controllo non é stato creato non posso prenderne il testo. come faccio?"

infatti se provo:

val_pluto = pluto.text ' ok
val_paperino = paperino.text 'ok
val_pippo = pippo.text 'errore: il controllo pippo non esiste!

io voglio quindi fare

if pluto esiste then val_pluto = pluto.text
if paperino esiste then val_paperino = paperino.text
if pippo esiste then val_pippo = "null"

alla fine mi costruisco la mia query e inserisco i dati nel db.

capito?

ps: il fatto di sapere o no se é stato creato il controllo dipende da alcune scelte dell'utente, quindi io non posso sapere quali e quanti controlli lascierà da parte.
spero di essermi spiegato

edit:
ho a disposizione tutti i nomi dei controlli (che essi vengano creati o meno)... voglio solo testare se il controllo con il nome "pippo" (o quello che vogliamo) é stato creato o no.

[oregon]

Se ho capito bene ... se scrivi

    Dim t As TextBox
    
    On Error Resume Next
    Set t = Controls("pippo")
    If Err Then
        Err.Clear
        Print "Il controllo non esiste"
    Else
        Print "Il controllo esiste"
        MsgBox t.Name
    End If

ottieni l'informazione che cerchi ...

[Gumble]

grazie. ora provo