[vb6] Esiste il comando onUnload?

[ianstilo]

perchè vorrei mettere un msgbox quando uno chiude l'applicazione...solo che non so come farlo se uno chiude cliccando la x in alto a destra..

[Boldan]

Esiste l'vento Unload del Form.

Private Sub Form_Unload(Cancel As Integer)
   If MsgBox("Confermi uscita?", vbInformation + vbYesNo, "USCITA") = vbNo Then Cancel = 1
End Sub

[ianstilo]

esce lo stesso senza visualizzare il messaggio...

[Oscar87k]

Non è esattamente corretto.
Questo testato e funziona

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If (MsgBox("Vuoi uscire?", vbYesNo, "Domanda") = vbNo) Then Cancel = True
End Sub

____________
You enjoy...

[ianstilo]

mi dice Rilevato nome non univoco: Form_QueryUnload..........

[Oscar87k]

dio!! Impossibile! L'ho testao, perchè l'ho fatto con il vb! ho fatto nuovo exe e nella form ho messo la proprietà QueryUnload e funziona. Io ho Vb5 non è ke sia per quello? però strano perchè credo ke anke su vb6 ci sia query unload...

:master:

[ianstilo]

io ho il sei...e mi dice così..

[MMarzia]

hai controllato per caso se nel codice ci sono due funzioni QueryUnload?

[Oscar87k]

Io in vb5 ho 2 proprietà di uscita della form: QUERYUNLOAD e UNLOAD.
Ho provato il codice ke ti ho dato io e funziona con entrambe le proprietà. Dunque, guarda le proprietà ke hai della form per la chiusura e prova queste proprietà con la riga di codice ke ti ho dato io.

Private ....... .PROPRIETA' (ecc. ecc....)
     If (MsgBox("Vuoi uscire?", vbYesNo, "Domanda") = vbNo) Then Cancel = True 
End Sub

[ianstilo]

risolto grazie!