[VB6] Refresh al form e contenuti

[EngLab]

Originariamente inviato da MItaly
...
Per ripristinare lo stato iniziale del form devi reimpostare tutte le varie impostazioni manualmente (o distruggerlo e ricrearlo tramite Unload pag1 e pag1.Show()).
...

Non hai applicato il consiglio di MItaly?

[Kdue]

Originariamente inviato da Kdue
Premetto che l'unica cosa che non mi si aggiorna è la Label (contatore) chiamata TOTALE.

Nel FORM
Private Sub Form_Click()
PlayWAV (App.Path & "\wav\MISC1075.WAV") 'Richiama l'audio che indica fuori bersaglio
contaclick = contaclick + 1 'E' la variabile che alimenta il totale dei click
totale = contaclick & "" 'Mostra il risultato sulla label totale
If totale = 10 Then 'Se totale diventa 10
esatto.Show 'Appare il form "ESATTO"
Unload Me 'Chiude il form
End If
End Sub


Private Sub contenitore1_click() ' Contenitore è un frame che al suo interno ha 2 img.
PlayWAV (App.Path & "\wav\MISC1075.WAV")
contaclick = contaclick + 1
totale = contaclick & ""
If totale = 10 Then
esatto.Show
Unload Me
End If
End Sub

l'istruzione Unload come puoi notare è già presente nel from, quindi se il totale raggiunge 10 si chiude la pag1 e si apre la pagina Esatto.
così non va bene?. riesco ad aggiornare tutto tranne il contatore

[oregon]

    If totale = 10 Then 'Se totale diventa 10
        esatto.Show 'Appare il form "ESATTO"
        contaclick = 0
    Unload Me 'Chiude il form

[Kdue]

Che figura! mancava solo contaclick = 0
nel codice del form!
Visto ragazzi ora funge. Non è che non studio ma magari (essendo un principiante) mi sfugge qualche cosa e voi subito trovate l'inghippo.

Vi ringrazio molto. ciao