[Vb6] Ripristino di un form

[omissamf]

Buona sera a tutti. Scusate la domanda un po banale: ho un form nel quale ho inserito molte text e combo. Al click di un pulsante voglio che tutti campi tornino allo stato originale.

Private Sub Command1_Click()
Text1.Text= " "
Combo1.Text = "Inserisci Nome"
ecc..
ecc....
End Sub

Ho risolto in questo modo ma volevo sapere se esiste un comado che mi permette di ripristinare il tutto senza dover specificare elemento per elemento.
Potrei anche chiudere il form e riaprirlo ma lo sfarfallio che si crea non è carino.
Ringrazio tutti, buona serata, Massimo.

[gibra]

Se devi impostare un valore di default per ogni controllo allora la routine deve sapere quale valore deve essere assegnato a quel determinato controllo.

Potresti mantenere i valori predefiniti nella proprietà Tag di ogni singolo controllo, e poi con un ciclo sulla collection Controls del form riassegnarla al controllo stesso:

in fase di inizializzazione del form imposti la proprietà Tag, esempio:

Text1.Tag = " "
Combo1.Text = "Inserisci Nome"
ecc..

Poi creare la routine che reimposta i valori al default:

Dim ctl As Control
For Each ctl in Me.Controls
    ctl.Text = ctl.Tag
Next

Però se hai controlli che non hanno la proprietà Text, ad esempio i CheckBox, devi testare con un If/Then/Else/End If il tipo di controllo usando TypeOf (vedi la guida per i dettagli).

[omissamf]

Ciao gibra e scusa per il ritardo ma ho avuto un contrattempo dietro l'altro. Ho intanto risolto con questo codice:

Private Sub Command1_Click()
On Error Resume Next
For i = 0 To Controls.Count - 1
Controls(i).Text = ""
Next
End Sub

E' vero che non ripristina tutto come all'inizio però pulisce tutti gli elementi con proprietà text, ed era quello che cercavo. Ti ringrazio, un saluto, Massimo.