[VB6] Alterazione pulsante chiusura

[keko9]

Ciao a tutti,
è possibile fare in modo che, premendo il tasto di chiusura "X" di una applicazione, quest'ultima invece di chiudersi richiami una determinata funzione?

[codo82]

certo devi sfruttare l'evento Unload

[keko9]

Rimane però un problema: come posso fare in modo che l'applicazione non si chiuda alla pressione della "X"?

[xegallo]

per VB6 (dal momento che non ti sei preoccupato di dircelo)
così puoi disabilitare la "X"

Private Const MF_REMOVE = &H1000&
Private Const SC_CLOSE = &HF060

Private Declare Function GetSystemMenu Lib "user32" _
    (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" _
    (ByVal hMenu As Long, ByVal nPosition As Long, _
    ByVal wFlags As Long) As Long

Private Sub Form_Load()
    'toglie la X dalla barra del titolo
    Call RemoveMenu(GetSystemMenu(Me.hwnd, 0), SC_CLOSE, _
        MF_REMOVE)
End Sub

se vuoi invece controllare l'evento http://forum.html.it/forum/showthrea...postid=3293487

[keko9]

Si,scusate intendevo VB6! Appena posso provo io codice,intanto grazie mille! ciauz!

[xegallo]

avviso chi sbaglia i titoli non lo aiuto più regolatevi

[buba88]

c'è un altro modo invece di usare una lunga funzione devi gestire l'evento form_queryunload ricordandto di ipostare cancel=true

esempio (invece di chiudersi manda un msgbox

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cancel = true
msgbox "ciao"
end sub

[keko9]

Uhm, pito...Appena posso lo provo. Penso ke quest'ultimo fosse proprio quello ke m serviva. Ancora grazie!