Pagina 1 di 3 1 2 3 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 29
  1. #1
    Utente di HTML.it L'avatar di sanny82
    Registrato dal
    Mar 2003
    Messaggi
    689

    Chiudere il programma quando dà errore [Vb 6]

    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
    una parola è poca e due sono troppe

  2. #2
    codice:
    Exit Sub
    GestoreErrori:
    
    If Err.Number = 70 Then
    'Accesso Negato
    Unload Me
    End --> Questo end mi sembra di troppo ...
    End If

  3. #3
    Utente di HTML.it L'avatar di Brainjar
    Registrato dal
    Nov 2004
    Messaggi
    1,162
    Per curiosità, hai inserito una istruzione tipo :

    codice:
    On Error GoTo GestioneErrori
    .....
    .....
    nella Sub dove si verifica l'errore?

    Ciao,
    Ciao, Brainjar

  4. #4
    Utente di HTML.it L'avatar di sanny82
    Registrato dal
    Mar 2003
    Messaggi
    689
    Sì, l'ho inserito...

    Come detto prima, l'errore lo sente, và nella gestione errori ma il programma non si chiude...
    una parola è poca e due sono troppe

  5. #5
    Utente di HTML.it L'avatar di Brainjar
    Registrato dal
    Nov 2004
    Messaggi
    1,162
    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 :

    codice:
    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,
    Ciao, Brainjar

  6. #6
    Se non ti si chiude ancora fai un bel

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

  7. #7
    Utente di HTML.it L'avatar di Brainjar
    Registrato dal
    Nov 2004
    Messaggi
    1,162
    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,
    Ciao, Brainjar

  8. #8
    Utente di HTML.it L'avatar di sanny82
    Registrato dal
    Mar 2003
    Messaggi
    689
    Ok, grazie.

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

    Grazie ancora

    Ciao
    una parola è poca e due sono troppe

  9. #9
    Utente di HTML.it L'avatar di Brainjar
    Registrato dal
    Nov 2004
    Messaggi
    1,162
    Ora provo con Unload Me, se non dovrebbe funzionare utilizzero Kill Me. VVoVe:

    Ciao,
    Ciao, Brainjar

  10. #10
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Originariamente inviato da sanny82
    Ok, grazie.

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

    Grazie ancora

    Ciao
    Stai scherzando, vero?

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.