fechar um projeto e realizar uma ação

[luiz47 0]

Olá pessoal preciso da ajuda de vcs que sao conhecedores de vb6, tenho o seguinte problema, veja o codigo

 

Private Sub cmdsair_Click()

btnDBSaveFile_Click

Unload frmcad

End Sub

 

toda vez que clico neste bõtão ele fecha o projeto e realiza a sua tarefa certinho sem problema nenhum, o que eu preciso é que guando eu clicar no X ( SAIR DO FORMULARIO ) do form ele tabem realize a mesma tarefa, desde ja agradeço obrigado a todos e que Deus os abençõe.

 

luiz

[Ed Costa 0]

Luiz, bom dia.

 

Um código simples para isso:

 

Private sub Form_Unload(Cancel as Integer)

Call cmdsair_Click

End Sub

 

 

Resumindo, na ocorrência do evento Unload do Form, será executado o botão cmdsair, o evento click.

 

Espero ter ajudado...

 

Inté mais

[luiz47 0]

Luiz, bom dia.

 

Um código simples para isso:

 

Private sub Form_Unload(Cancel as Integer)

Call cmdsair_Click

End Sub

 

 

Resumindo, na ocorrência do evento Unload do Form, será executado o botão cmdsair, o evento click.

 

Espero ter ajudado...

 

Inté mais

 

 

 

Valeu ED

 

Ajudou muito Obrigado,

 

E que deus te de mais sabedoria para que você continue a nos ajudar . luiz

[Claudio Neto 3]

A idéia é essa, mas de forma mais organizada, deixe assim:

 

Private Sub cmdsair_Click()
  Unload frmcad
End Sub

Private Sub Form_unload()
  btnDBSaveFile_Click
End sub

Se mandar chamar a função cmdsair_Click no form_unload, e nela chamar a unload, uma rotina estará chamando a outra.