Programación General > Visual Basic 6.0 e inferiores

 Boton Cerrar

(1/1)

MeLaT:
Hola, estoy empezando en esto de la programación ya he hecho algunos programas pero cada vez un poco mas complicados.

No tengo idea de como controlar que cuando un usuario le de clic al boton "cerrar", primero pregunte si en verdad desea cerrar todo el programa.

Ya se utilizar inputbox y msgbox, pero no sé como controlar cuando le de clic a el boton cerrar de la ventana o formulario.

Si alguien pudiera orientarme respecto que controles buscar.

Gracias.

arielb:
esto te debe servir


--- Código: Text ---Private Sub CommandButton1_Click()        Call cerrarEnd Sub Private Sub UserForm_Terminate()    Call cerrarEnd Sub Private Sub cerrar()    vPreg = MsgBox("Desea Salir", vbYesNo, "Salir del sistema")    If (vPreg = 6) Then       MsgBox ("Has salido del sistema")    Else       MsgBox ("No quisiste salir")    End IfEnd Sub 

MeLaT:
Gracias. Cuando le dan clic a un botón para cerrar, lo tengo en el menú para salir. Pero me refería al de cerrar que esta a un lado de los botones:

minimizar  |  maximizar/restarurar  | cerrar **

de la ventana o formulario.

** Cómo controlo el botón cerrar?

Del código que escribiste no sé que hace:
(Bueno, sé que manda llamar la función cerrar, pero no entendi el evento(UserForm_Terminate()). Tal vez eso sea lo que estoy buscando.)


--- Código: Text --- Private Sub UserForm_Terminate()   Call cerrarEnd Sub  
(Pense que ese era el código, lo probe, pero no me mostro el mensaje de pregunta y cierra el programa.)

ElNapster:
Prueba con esto


--- Código: Text ---Private Sub Form_Unload(Cancel As Integer)Dim valor As Integervalor = MsgBox("Realmente desea salir de la aplicacion", vbYesNo)If valor = 6 Then   Unload MeElse    Cancel = 1End IfEnd Sub 
Suerte...  :comp:

ArKaNtOs:

--- Cita de: "elnapster" --- Prueba con esto


--- Código: Text ---Private Sub Form_Unload(Cancel As Integer) Dim valor As Integervalor = MsgBox("Realmente desea salir de la aplicacion", vbYesNo)If valor = 6 Then   Unload MeElse    Cancel = 1End IfEnd Sub 
Suerte...  :comp:
--- Fin de la cita ---
de hecho el codigo anterior esta bien pero es preferible que lo uses en el evento query unload en ves de unload porque este evento sucede primero ;) ademas:
podrias dejarlo asi:

Dim valor As Integer
valor = MsgBox("Realmente desea salir de la aplicacion", vbYesNo)
If valor = vbno Then
    Cancel = 1
End If

Porque?, pues porque se supone que el objeto se va descargar entonces no necesitas dar de nuevo la instruccion :P :scream:

Navegación

[0] Índice de Mensajes