ADD IN VB6
Pessoal,
Preciso achar o evento la no Add In que seje disparado quando eu fechar o projeto ou o vb.
Eu quero que quando ele fechar, que feche todas as janelas do forms, codigo dos forms, classe. etc..eu ja sei como fazer isso.. mas nao consigo achar o evento que dispara quando eu fecho o vb.
Abraço
Preciso achar o evento la no Add In que seje disparado quando eu fechar o projeto ou o vb.
Eu quero que quando ele fechar, que feche todas as janelas do forms, codigo dos forms, classe. etc..eu ja sei como fazer isso.. mas nao consigo achar o evento que dispara quando eu fecho o vb.
Abraço
acho que vc procura o QueryUnload
abaixo um exemplo do msdn
Ejemplo del evento QueryUnload
Este ejemplo utiliza un objeto MDIForm que contiene dos formularios MDI secundarios. Cuando elige el comando Cerrar del menú Control para cerrar un formulario, se muestra un mensaje diferente del que aparecerÃa si eligiera el comando Salir del menú Archivo. Para probar este ejemplo, cree un MDIForm y utilice el Editor de menús para crear un menú Archivo que contenga un comando Salir llamado FileExit. Asegúrese de que este elemento de menú está activado. En Form1, establezca la propiedad MDIChild a True. Pegue el código en las secciones Declaraciones de los respectivos formularios y después presione F5 para ejecutar el programa.
[ô] Pegar en la sección Declaraciones de MDIForm1.
Private Sub MDIForm_Load ()
Dim NewForm As New Form1 [ô] Nueva instancia de Form1.
NewForm.Caption = [Ô]Form2[Ô] [ô] Establece el tÃtulo y lo muestra.
End Sub
Private Sub FileExit_Click ()
Unload MDIForm1 [ô] Sale de la aplicación.
End Sub
Private Sub MDIForm_QueryUnload (Cancel As Integer, UnloadMode As Integer)
Dim Msg [ô] Declara la variable.
[ô] Establece el texto del mensaje.
Msg = [Ô]¿Realmente desea salir de la aplicación?[Ô]
[ô] Si el usuario hace clic en el botón No, se detiene QueryUnload.
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub
[ô] Pegar en la sección Declaraciones de Form1.
Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
Dim Msg [ô] Declara la variable.
If UnloadMode > 0 Then
[ô] Si sale de la aplicación.
Msg = [Ô]¿Realmente desea salir de la aplicación?[Ô]
Else
[ô] Si sólo se cierra el formulario.
Msg = [Ô]¿Realmente desea cerrar el formulario?[Ô]
End If
[ô] Si el usuario hace clic en el botón No, se detiene QueryUnload.
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub
espero que te ajude
abaixo um exemplo do msdn
Ejemplo del evento QueryUnload
Este ejemplo utiliza un objeto MDIForm que contiene dos formularios MDI secundarios. Cuando elige el comando Cerrar del menú Control para cerrar un formulario, se muestra un mensaje diferente del que aparecerÃa si eligiera el comando Salir del menú Archivo. Para probar este ejemplo, cree un MDIForm y utilice el Editor de menús para crear un menú Archivo que contenga un comando Salir llamado FileExit. Asegúrese de que este elemento de menú está activado. En Form1, establezca la propiedad MDIChild a True. Pegue el código en las secciones Declaraciones de los respectivos formularios y después presione F5 para ejecutar el programa.
[ô] Pegar en la sección Declaraciones de MDIForm1.
Private Sub MDIForm_Load ()
Dim NewForm As New Form1 [ô] Nueva instancia de Form1.
NewForm.Caption = [Ô]Form2[Ô] [ô] Establece el tÃtulo y lo muestra.
End Sub
Private Sub FileExit_Click ()
Unload MDIForm1 [ô] Sale de la aplicación.
End Sub
Private Sub MDIForm_QueryUnload (Cancel As Integer, UnloadMode As Integer)
Dim Msg [ô] Declara la variable.
[ô] Establece el texto del mensaje.
Msg = [Ô]¿Realmente desea salir de la aplicación?[Ô]
[ô] Si el usuario hace clic en el botón No, se detiene QueryUnload.
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub
[ô] Pegar en la sección Declaraciones de Form1.
Private Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
Dim Msg [ô] Declara la variable.
If UnloadMode > 0 Then
[ô] Si sale de la aplicación.
Msg = [Ô]¿Realmente desea salir de la aplicación?[Ô]
Else
[ô] Si sólo se cierra el formulario.
Msg = [Ô]¿Realmente desea cerrar el formulario?[Ô]
End If
[ô] Si el usuario hace clic en el botón No, se detiene QueryUnload.
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub
espero que te ajude
Tópico encerrado , respostas não são mais permitidas