SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: MeLaT en Jueves 8 de Marzo de 2007, 21:42

Título: Boton Cerrar
Publicado por: MeLaT en Jueves 8 de Marzo de 2007, 21:42
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.
Título: Re: Boton Cerrar
Publicado por: arielb en Jueves 8 de Marzo de 2007, 21:50
esto te debe servir

Código: Text
  1. Private Sub CommandButton1_Click()
  2.         Call cerrar
  3. End Sub
  4.  
  5. Private Sub UserForm_Terminate()
  6.     Call cerrar
  7. End Sub
  8.  
  9. Private Sub cerrar()
  10.     vPreg = MsgBox("Desea Salir", vbYesNo, "Salir del sistema")
  11.     If (vPreg = 6) Then
  12.        MsgBox ("Has salido del sistema")
  13.     Else
  14.        MsgBox ("No quisiste salir")
  15.     End If
  16. End Sub
  17.  
Título: Re: Boton Cerrar
Publicado por: MeLaT en Jueves 8 de Marzo de 2007, 23:02
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
  1.  
  2. Private Sub UserForm_Terminate()
  3.    Call cerrar
  4. End Sub
  5.  
  6.  

(Pense que ese era el código, lo probe, pero no me mostro el mensaje de pregunta y cierra el programa.)
Título: Re: Boton Cerrar
Publicado por: ElNapster en Jueves 8 de Marzo de 2007, 23:23
Prueba con esto

Código: Text
  1. Private Sub Form_Unload(Cancel As Integer)
  2. Dim valor As Integer
  3. valor = MsgBox("Realmente desea salir de la aplicacion", vbYesNo)
  4. If valor = 6 Then
  5.    Unload Me
  6. Else
  7.     Cancel = 1
  8. End If
  9. End Sub
  10.  

Suerte...  :comp:
Título: Re: Boton Cerrar
Publicado por: ArKaNtOs en Viernes 9 de Marzo de 2007, 06:58
Cita de: "elnapster"
Prueba con esto

Código: Text
  1. Private Sub Form_Unload(Cancel As Integer)
  2.  
  3. Dim valor As Integer
  4. valor = MsgBox("Realmente desea salir de la aplicacion", vbYesNo)
  5. If valor = 6 Then
  6.    Unload Me
  7. Else
  8.     Cancel = 1
  9. End If
  10. End Sub
  11.  

Suerte...  :comp:
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: