EVENTO TERMINEITE FORM MDI

USUARIO.EXCLUIDOS 23/08/2006 10:49:57
#166734
alguem sabe como barra o usuário não clicar controle ((X)Fechar) do form
MDI?
No Formulário normal temos a propriedades controlBox é só colocar false beleza , mais e no Form MDI como fazemos isso?
Grato desde já pela atenção.

USUARIO.EXCLUIDOS 23/08/2006 12:31:48
#166774
Ainda tem este outro código que bloqueia não só a saida através do botão x, mas tmabém através do menu de controle e do TasKManager do windows

Veja abaixo o exemplo e as explicações

'Coloque esta parte no módulo geral do seu mdi form
Option Explicit

Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As Long

'Aqui terminou o que deve ser colocado no módulo geral

'O código abaixo é relativo a opçai QueryUnload do mdi form
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
   Case 0
      MsgBox "O usuario tentou deixar o sistema a partir do control menu. Tente novamente da maneira correta!"
      Cancel = True
   Case 2
      MsgBox "O usuario temtou deixar o Windows antes de sair do sistema. Tente novamente da maneira correta!"
      Cancel = True
   Case 3
      MsgBox "O usuario temtou deixar o sistema a partir da lista de terefas. Tente novamente da maneira correta!"
      Cancel = True
   End Select
  
End Sub


'Aqui o código que coloquei na opção sair do menu que criei para realizar o
'teste
Private Sub Sair_Click()
    Unload Me
End Sub


Espero que te ajude.
Tópico encerrado , respostas não são mais permitidas
Voltar