[VB6] Non avviare il prog se è già in esecuzione

[Harry]

Come da titolo avrei bisogno di un qualcosa che, se l'applicazione è già in esecuzione, non me ne avvii un'altra identica nel caso che l'utente la riesegua. Cioè, ora se rifaccio doppio click sull'icona del programma, anche se questo è già aperto, me ne apre un altro identico. Come posso evitarlo? Magari avvertendo con una msgbox che il programma è già in esecuzione oppure semplicemente non facendo niente.

Grazie

[chipdb]

If App.PrevInstance Then
    MsgBox "l'applicazione è già stata avviata"
    End
End If

[Harry]

Originariamente inviato da chipdb

If App.PrevInstance Then
    MsgBox "l'applicazione è già stata avviata"
    End
End If

Ho provato a metterlo nel form load e funzionerebbe, il testo della msgbox lo dà, ma fa una cosa stranissima. In pratica al posto di terminare il programma "duplicato" lo avvia ma senza la presenza di moltissimi oggetti...

[oregon]

Meglio

Private Sub Form_Load()
  If App.PrevInstance Then
    MsgBox "l'applicazione è già stata avviata"
    Unload Me
  Else
    ' Il resto della tua Form_Load
  End If
End Sub

[Harry]

Originariamente inviato da oregon
Meglio

Private Sub Form_Load()
  If App.PrevInstance Then
    MsgBox "l'applicazione è già stata avviata"
    Unload Me
  Else
    ' Il resto della tua Form_Load
  End If
End Sub

Grazie oregon, con l'unload funziona; unico problema:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = (MsgBox("Vuoi davvero uscire dal programma?", vbYesNo, "Uscire?") = vbNo)
End Sub

Ergo anche in questo caso mi chiede se voglio davvero uscire dal programma. Come faccio a fargli fare un'eccezione e farlo uscire e basta?

[wallrider]

prova a guardare se cambia il valore di UnloadMode quando lo chiudi da codice o in esecuzione

[oregon]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode <> vbFormCode Then
        Cancel = (MsgBox("Vuoi davvero uscire dal programma?", vbYesNo, "Uscire?") = vbNo)
    End If
End Sub

[MItaly]

O in alternativa puoi sempre mettere come oggetto di avvio una Sub Main siffatta:

Public Sub Main()
    If App.PrevInstance Then
        MsgBox "l'applicazione è già stata avviata"
    Else
        NomeForm.Show True
    End If
End Sub

.

[Harry]

Alla fine ho preferito la soluzione di oregon, ma grazie a tutti per l'aiuto