[VB6] Modifica codice X di chiuisura

[VioletFairy]

Vorrei modificare il codice della X di chiusura di una form. Sapete dirmi come posso fare?
Grazie mille.

[dvbman]

Devi guardare l'evento Form_QueryUnload e precisamente il parametro unloadmode

L'argomento unloadmode restituisce i seguenti valori:

vbFormControlMenu =0 È stato scelto il comando Chiudi dal menu di controllo del form.
vbFormCode =1 L'istruzione Unload viene richiamata dal codice.
vbAppWindows =2 La sessione corrente dell'ambiente operativo Microsoft Windows è conclusa.
vbAppTaskManager =3 L'applicazione è stata chiusa tramite Task Manager di Microsoft Windows.
vbFormMDIForm =4 Il form secondario MDI viene chiuso in quanto viene chiuso il form MDI principale.
vbFormOwner =5 Il form viene chiuso in quanto viene chiuso il proprietario.

[VioletFairy]

Devi guardare l'evento Form_QueryUnload e precisamente il parametro unloadmode

L'argomento unloadmode restituisce i seguenti valori:

vbFormControlMenu =0 È stato scelto il comando Chiudi dal menu di controllo del form.
vbFormCode =1 L'istruzione Unload viene richiamata dal codice.
vbAppWindows =2 La sessione corrente dell'ambiente operativo Microsoft Windows è conclusa.
vbAppTaskManager =3 L'applicazione è stata chiusa tramite Task Manager di Microsoft Windows.
vbFormMDIForm =4 Il form secondario MDI viene chiuso in quanto viene chiuso il form MDI principale.
vbFormOwner =5 Il form viene chiuso in quanto viene chiuso il proprietario.

Quindi dovrei fare una cosa del genere:

Private Sub Form_QueryUnload()
Dim Pulsante As Integer
Dim SqlStringa As String
If unloadmode = vbFormControlMenu Then
....bla bla bla....
End If
End Sub


Ma se ci provo mi dice :
"Procedure declaration does not match description of event or procedure having the same name"

[dvbman]

Private Sub Form_QueryUnload()
Ma unloadmode è un parametro passato dall'evento Form_QueryUnload, che nel tuo codice non vedo..

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select case UnloadMode
Case vbFormControlMenu:
Case vbFormCode:
.
.
.
End Select
End Sub

[dvbman]

hai risolto? :mbe: