Visual Basic - Ayuda Por fa

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda Por fa

Publicado por Every (3 intervenciones) el 16/08/2005 22:10:39
Hola..bueno estoy trabajando con vb, realmente necesito es un codigo que no recuerdo, para trabajarlo en el formulario MDI para cerrar la aplicacion una vez que este lista. Estos son los codigo que estoy utilizando ahora:
Private Sub mnusalir_Click()
Call Salir
End Sub

Private Sub Salir()
Dim Salir As Integer
Salir = MsgBox("¿Desea Salir del Sistema?", vbYesNo, "Sistema de Inscripcion")
If Salir = 6 Then
Unload Me
End
End If
End Sub

Lo que quiero es que cuando le de click en el boton cerrar (X) me salga el mismo mensaje, con estos codigo no lo hace, estoy segura que algo falta pero no recuerdo...si me pueden ayudar se los agradezco.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda Por fa

Publicado por Christian (675 intervenciones) el 16/08/2005 22:30:37
El: Call Salir
ponlo en el unload de tu mdi form, nada mas.
en vez de unload me utiliza end.

Suerte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Por fa

Publicado por Every (3 intervenciones) el 16/08/2005 22:49:21
Gracias!!!...no se como se me pudo pasar por alto..realmente tenia tiempo que no tomaba el vb
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Por fa

Publicado por Gustavo (181 intervenciones) el 16/08/2005 22:32:12
Private Sub MDIForm_Unload(Cancel As Integer)
Call Salir
End Sub

Private Sub mnusalir_Click()
Unload Me
End Sub

Private Sub Salir()
Dim Salir As Integer
Salir = MsgBox("¿Desea Salir del Sistema?", vbYesNo, "Sistema de Inscripcion")
If Salir = 6 Then
Unload Me
End
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda Por fa

Publicado por Every (3 intervenciones) el 16/08/2005 22:52:02
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar