[VB6] Chiudere il programma su errore

[sanny82]

Ciao a tutti, ho un problema...

Ho un programma che qualche volta mi restituisce l'errore 70.
Io volevo fare in modo che quando mi compare l'errore il programma si chiude automaticamente.

Ho provato così:

Exit Sub
GestoreErrori:

If Err.Number = 70 Then
'Accesso Negato
End
End If

Ma non si chiude il programma e rimane visualizzato il form.

Come posso fare per uscire dal programma quando mi dà questo errore?

Grazie mille

[raffaeu]

Exit Sub
GestoreErrori:

If Err.Number = 70 Then
'Accesso Negato
Unload Me
End --> Questo end mi sembra di troppo ...
End If

[Brainjar]

Per curiosità, hai inserito una istruzione tipo :

On Error GoTo GestioneErrori
.....
.....

nella Sub dove si verifica l'errore?

Ciao,

[sanny82]

Sì, l'ho inserito...

Come detto prima, l'errore lo sente, và nella gestione errori ma il programma non si chiude...

[Brainjar]

Allora, come ti suggerisce raffaeu, dovresti scaricare TUTTE le forms
della tua applicazione coun Unload <NomeForm>.
Se hai un solo form, dovrebbe andar bene quanto ti dice raffaeu.
Se hai provato il suo suggerimento e continua a rimanere aperta la
tua applicazione ha più forms e qualcuno resta attivo.

prova con un qualcosa del genere :

GestoreErrori:

Dim oForm As Form

If Err.Number = 70 Then
    'Accesso Negato
    For Each oForm In Forms
        Unload oForm
    Next oForm
    End ' E' (forse) di troppo, ma non fa male.
End If

Ciao,

[raffaeu]

Se non ti si chiude ancora fai un bel

Kill Me al posto di Unload Me e tagli la testa al toro.

[Brainjar]

Bellissima battuta.

Istruzione Kill


Elimina i file specificati da un disco.

Sintassi

Kill nomepercorso

L'argomento obbligatorio nomepercorso è un'espressione stringa che specifica se uno o più nomi di file devono essere eliminati. Può includere la directory o cartella e l'unità.

Osservazioni

In Microsoft Windows Kill supporta i caratteri jolly per più caratteri (*) e per singoli caratteri (?) per indicare più file.

Ciao,

[sanny82]

Ok, grazie.

Ora provo con Unload Me, se non dovrebbe funzionare utilizzero Kill Me.

Grazie ancora

Ciao

[Brainjar]

Ora provo con Unload Me, se non dovrebbe funzionare utilizzero Kill Me. VVoVe:

Ciao,

[oregon]

Originariamente inviato da sanny82
Ok, grazie.

Ora provo con Unload Me, se non dovrebbe funzionare utilizzero Kill Me.

Grazie ancora

Ciao

Stai scherzando, vero?