andre
|
DIVINÓPOLIS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2007 13:10 hs
Quero programar no botao fechar do formulario. Como faço isso? |
|
|
|
|
|
Korn
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2007 13:40 hs
Como assim ? oque voce quer programar no botao Fechar do Formulario , voce diz o X que tem no alto no canto direito , ou voce quer um botao que feche o Formulario tipo isso General Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
botao ExitProcess 1 ou oce quer atribuir mais Funções ao X ???
Jesus Cristo é O Senhor!!!
|
|
|
|
andre
|
DIVINÓPOLIS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/03/2007 14:39 hs
quero atribuir mais funcoes ao "X" |
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/03/2007 10:29 hs
Olha pelo que entendi, vc quer fazer alguma coisa quando o form fecha, se for isso, vc pode usar o even to unload...
|
|
|
|
andre
|
DIVINÓPOLIS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/03/2007 18:30 hs
quero que seja exibida uma mensagem de confirmação para fechar ou nao o form.... |
|
|
|
Shel
|
GOIÂNIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/03/2007 20:06 hs
André, coloque assim: Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'mensagem de confirmação de saída
If MsgBox("Deseja realmente sair do Sistema?", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
End
Else
Cancel = True
End If
End Sub |
|
|
|
