MSG AO FECHAR
Galera como eu faço para aparecer uma caixa de confirmçao de saida, qnd o usuario clicar no "x" do form/??
faça assim:
Private Sub Form_Unload(Cancel As Integer)
If MsgBox(" deseja sair?", vbYesNo) = vbYes Then
End
Else
Cancel = True
End If
End Sub
finalize o topico.
Private Sub Form_Unload(Cancel As Integer)
If MsgBox(" deseja sair?", vbYesNo) = vbYes Then
End
Else
Cancel = True
End If
End Sub
finalize o topico.
Sub Form_QueryUnload(cancel as integer)
If MsgBox("Deseja sair?") = vbNo Then Cancel = True
End Sub
If MsgBox("Deseja sair?") = vbNo Then Cancel = True
End Sub
Opa.. respondemos juntos =P
mais eu respondi primeiro.
encerre o topico.
Tópico encerrado , respostas não são mais permitidas