EVENTO FECHAR FORM DO VB6
Galera to precisando de uma dica de voces..
Não posso deixar o usuário fechar o form sem salvar (clicando no X) sem salvar.. qual o evento do form fechar?seria o Unload?? queria que se o usuário não clicar no botão gravar e no X apareça uma mensagem informando que os items não foram salvos e não sair tipo exit sub.
Fiz dessa forma apenas para teste.. só que da um erro: vb6.exe The instruction at [Ô]0x7e4291bf[Ô] referenced memory at [Ô]0x000000000[Ô]. The memory could not be [Ô]read[Ô] e o vb6 fecha e o projeto encerra.
[th]
Não posso deixar o usuário fechar o form sem salvar (clicando no X) sem salvar.. qual o evento do form fechar?seria o Unload?? queria que se o usuário não clicar no botão gravar e no X apareça uma mensagem informando que os items não foram salvos e não sair tipo exit sub.
Fiz dessa forma apenas para teste.. só que da um erro: vb6.exe The instruction at [Ô]0x7e4291bf[Ô] referenced memory at [Ô]0x000000000[Ô]. The memory could not be [Ô]read[Ô] e o vb6 fecha e o projeto encerra.
[/th] |
Private Sub Form_Unload(Cancel As Integer) If MsgBox([Ô]Deseja mesmo sair?[Ô], vbYesNo + vbQuestion, [Ô]Sair[Ô]) = vbYes Then End Else Cancel = True End If End Sub |
Consegui 
[th]

[/th] |
Private Sub Form_Unload(Cancel As Integer) If MsgBox([Ô]Deseja mesmo encerrar o programa?[Ô], vbQuestion + vbYesNo, [Ô]Sair[Ô]) = vbNo Then Cancel = 1 End If End Sub |
Tópico encerrado , respostas não são mais permitidas