Alt + F4

[rodrigotnoma]

No meu codigo coloquei:

' Cancel if ReadyToClose is false.

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Cancel = Not ReadyToClose

End Sub

para desabilitar Alt + F4 li em alguns post que deveria fazer isso:

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Cancel = 1

End Sub

Mas tenho em um button isso:

ReadyToClose = True

Unload Me

Realmente o Alt + F4 esta desabilitado, mas quando clico no button o form não fecha, porque?

Se deixar o Cancel=NotReadyToClose

O form fecha quando clico no botao, mas também fecha com Alt+F4.

Obrigado

Rodrigo

[Graymalkin]

Posso perguntar o porquê de você querer desabilitar o uso do ALT+F4? As vezes o teclado é muito mais *rápido* e *prático* do que a utilização do mouse. Bom, de qualquer maneira, uma maneira tosca de fazer isso seria esta:

Private AltF4 As Boolean 'General Declarations

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Static alt As Boolean
    
    If KeyCode = 18 Then alt = True
    
    If alt And KeyCode = 115 Then
        AltF4 = True
    Else
        AltF4 = False
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    AltF4 = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Cancel = AltF4
End Sub

Ative a propriedade KeyPreview do form para que isso funcione.

Lembrando que deve existir uma forma melhor de se fazer isso (mesmo considerando que isso não é algo "bom").

Abraços,

Graymalkin

[rodrigotnoma]

Claro que pode....

No meu caso em especifico eu realmente "necessito" que o form seja fechado somente quando clicado no button, não podendo dar a possibilidade do usuario fechar o form atraves do "X" nem de alt+f4.também concordo com você que utilizando teclas de atalhos é bem mais rapido, mas no meu caso a agilidade não tem importancia alguma.

Obrigado pela resposta, deu tudo certo...

vlw

Rodrigo