An
|
PORTO FERREIRA
SP - BRASIL
|
|
Postada em 09/11/2005 09:58 hs
Eai blz, eu to tentando a algum tempo fazer uma rotina, que quando clicar no botão fechar do form [ X ], ele tem que dar a opção para o usuário se ele realmente quer fechar ou não. mais não consigo, se alguem puder me ajudar, obrigado.
Anderson Leal
|
|
|
|
|
|
Erico
|
SALVADOR
BA - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/11/2005 10:23 hs
An, Existe alguns eventos que são executados antes do fechamento do form. Um deles é form_unload. Coloque seu código nele e veja o que acontece.
A.Erico S.Peixoto -------------------- Analista de Sistemas
|
|
|
|
Erico
|
SALVADOR
BA - BRASIL
|
|
Postada em 09/11/2005 10:23 hs
An, Existe alguns eventos que são executados antes do fechamento do form. Um deles é form_unload. Coloque seu código nele e veja o que acontece.
A.Erico S.Peixoto -------------------- Analista de Sistemas
|
|
|
|
Erico
|
SALVADOR
BA - BRASIL
|
|
Postada em 09/11/2005 10:23 hs
An, Existe alguns eventos que são executados antes do fechamento do form. Um deles é form_unload. Coloque seu código nele e veja o que acontece.
A.Erico S.Peixoto -------------------- Analista de Sistemas
|
|
|
|
Martini
|
PAROBÉ
RS - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/11/2005 06:49 hs
Dim blnPodeFazerUnLoad As Boolean 'identifica se o formulário pode fazre unload Private Sub Form_KeyPress(KeyAscii As Integer)
'DesligaAjuda 'digitou algo... Deliga ajuda
If KeyAscii = vbKeyEscape Then 'se teclou ESC
Unload Me 'tira este form da memória
End If
End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'verifica se pode fazer unload (valor inicial é false)
'se entrou aqui é porque tentou fazer unload
'verifica se pode fazer unload (valor inicial é false)
'se entrou aqui é porque tentou fazer unload
If blnPodeFazerUnLoad = False Then
If MsgBox("Deseja fechar o formulário?", vbQuestion + vbYesNoCancel, "Aviso") = vbYes Then
Cancel = False
Else
Cancel = True
End If
If Cancel = False Then 'se não tem atualização
Cancel = True 'retorna true
tmrUnLoad.Enabled = True 'ativa o timer para fazer o unload
End If
End If
End Sub Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub Private Sub tmrUnLoad_Timer()
tmrUnLoad.Enabled = False 'desabilita o timer
blnPodeFazerUnLoad = True 'pode fazer unload
Unload Me 'finaliza formulário
End Sub
|
|
|
|
|
|
Postada em 10/11/2005 12:32 hs
Se for MDI_Form Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Tem certeza que deseja sair do Sistema?", vbExclamation + vbYesNo, "Sair") <> vbYes Then Cancel = True
End Sub se for Form
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("Tem certeza que deseja sair do Sistema?", vbExclamation + vbYesNo, "Sair") <> vbYes Then Cancel = True
End Sub
dsmn
|
|
|
|
