[VB 6.0]Come chiudere programma se già aperto

[XBarboX]

salve,
ho fatto un programma in vb ma ho notato che non si chiude alla fine del processo.
Devo fare in modo che se l'applicazione è già aperta si chiuda.
Io ho scritto così ma non va:

Sub Main()
   If App.PrevInstance Then   ' If already running, end the application.
      Unload Me
   End If
End Sub

[oregon]

Ma la

Unload Me

la scrivi nella Sub Main?

Semmai in un form ...

[Jeremy75]

ho fatto un programma in vb ma ho notato che non si chiude alla fine del processo.

questo è un'altro problema....

questo codice:

Sub Main()
   If App.PrevInstance Then   ' If already running, end the application.
      Unload Me
   End If
End Sub

per quanto sbagliato possa essere .... non c'entra con la risoluzione del tuo problema.

[StegcO]

Private Sub Form_Unload(Cancel As Integer)

If Forms.Count > 1 Then ScaricaTutteLeForm
    
End Sub

Private Sub ScaricaTutteLeForm()

Dim frm As Form
For Each frm In Forms
    If Not frm.Name = Me.Name Then Unload frm
Next frm

End Sub

[S0nic]

Originariamente inviato da XBarboX
salve,
ho fatto un programma in vb ma ho notato che non si chiude alla fine del processo.
Devo fare in modo che se l'applicazione è già aperta si chiuda.
Io ho scritto così ma non va:

Sub Main()
   If App.PrevInstance Then   ' If already running, end the application.
      Unload Me
   End If
End Sub

sostituisci Unload Me con End

[gibra]

Originariamente inviato da S0nic
sostituisci Unload Me con End

Ma che bel consiglio!!!

Io invece consiglio un approfondimento serio sulle conseguenze negative dell'uso di End, perchè peggior consiglio di questo non potevi dare.

[StegcO]

anche a me itneressa questa cosa dell'End, non riesco a trovare niente su google che spiega i problemi di questo comando

[KaNnA]

Al contrario di Unload, End non rilascia le risorse allocate dal form

[gibra]

Originariamente inviato da StegcO
anche a me itneressa questa cosa dell'End, non riesco a trovare niente su google che spiega i problemi di questo comando

L'istruzione End interrompe di brutto l'applicazione, quindi tutti gli oggetti istanziati dell'applicazione (non solo del form) non vengono rilasciati, e spesso e volentieri questo può generare un'errore alla chiusura dell'applicazione una volta compilata, senza conoscere il perchè avvenga.
Di norma questo non avviene quando si esegue il progetto dall'IDE di Visual Basic 6.0, in quanto VB stesso ha dei meccanismi interni che controllano eventuali errori e li risolvono in uscita, a meno che non sia attiva una routine di subclassing che in caso di errore di programmazione blocca inesorabilmente l'esecuzione, ed a quel punto non resta che annientare il processo VB.EXE.

Oltre a questo, ogni volta che il programma viene eseguito mantiene inutilmente occupata una quantità di memoria, che quindi non è più disponibile per il sistema.
Se esegui 5 volte il programma (EXE) e questo ogni chiusura mantiene 100kb di memoria occupata, alla fine avrai 500kb di memoria non più disponile.

Da specificare che questo comportamento può peggiorare con s.o. meno tolleranti come Vista e Seven, quindi End non è una soluzione, semmai aggiunge un problema al problema già esistente.

Se l'applicazione non si chiude correttamente, bisogna andare alla ricerca del perchè, qual'è l'errore che causa questo comportamento perchè, e su questo non c'è alcun dubbio, solo un errore di programmazione causa il malfunzionamento dell'applicazione.
E se non si correggono gli errori, non si sa più cosa può accadere in futuro.

Ecco perchè l'uso di End è sinonimo di cattiva programmazione.

Invece, occorre tirarsi su le maniche ed ispezionare l'esecuzione del codice passo-passo, e l'errore si trova, sempre.

[StegcO]

ottima spiegqazione, grazie