[VB6]: Intercettare modalità di chiusura di un form e impedirla

[nandoar]

salve volevo scrivere uan procedura per evitare la chiusura di un form quando si clikka sulla x ma ho letto cli altri treant ma nn ci ho capito nulla.
quindi vorrei
If Me.WindowState = "codice per la chiusura che nn conosco" Then

"lista di istruzioni che deve eseguire il programma invece di chiudersi perche lo metto in trayicon"


end if

[MItaly]

Basta intercettare l'evento Form_Closing e impostare il parametro Cancel a True; in questo modo il form non si chiuderà.

[nandoar]

come setto il cancel?
form1.cancel= true


fatto ma il problema quale è lo stato che identifica Me.WindowState di chiusura?

[Boolean]

devi sfruttare l'evento QueryUnload, che restituisce un parametro (UnloadMode) che ti permette di sapere il motivo per il quale il form è stato chiuso.
nel caso in vcui si tratti di una chiusura tramite la X (vbFormControlMenu) allora imposti il Cancel = 1 e fai eseguire tutto il codice che ti serve.

in pratica:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
    Cancel = 1
    ' ....
    ' Tutto il codice che ti serve
    ' ....
End If
End Sub

Boolean

[MItaly]

Vero, QueryUnload, non Closing (Closing è in VB.NET).