asignar procedimientos al boton X de cerrar formulario

10/12/2006 - 23:15 por Ivan | Informe spam
hola a todos de nuevo

me gustaria saber si es posible asignarle al 'boton' X de cerrar el
formulario el mismo procedimiento que le tengo asignado al de
'Cancelar'. Se trata de deshacer las acciones que se hayan podido
realizar con el form. abierto.

se que se puede inhabilitar (¿o quitar?), pero me gustaria que
siguiera siendo valido, como en cualquier programa, un poco por
cuestion de habitos de usuario.

no se si existe una forma sencilla, o hay que recurrir a las APIs, y,
de ser asi, si seria muy complicado

si podeis echarme una mano una vez mas os lo agradezco

un saludo y hasta pronto
Ivan

Preguntas similare

Leer las respuestas

#1 Ivan
10/12/2006 - 23:26 | Informe spam
creo que hoy (casi nunca) no doy pie con bola

posiblemente sea mas sencillo utilizar una variable booleana junto con
el evento Terminate (o similar) del formulario. Voy a tantearlo

aunque de todas formas, si sabeis como hacer lo de la X, no deja de ser
un dato interesante a conocer

un saludo de nuevo
Ivan
Respuesta Responder a este mensaje
#2 Héctor Miguel
11/12/2006 - 03:31 | Informe spam
hola, Ivan !

me gustaria saber si es posible asignarle al 'boton' X de cerrar el formulario
el mismo procedimiento que le tengo asignado al de 'Cancelar'.
Se trata de deshacer las acciones que se hayan podido realizar con el form abierto.
se que se puede inhabilitar (o quitar?), pero me gustaria que siguiera siendo valido
como en cualquier programa, un poco por cuestion de habitos de usuario.
no se si existe una forma sencilla, o hay que recurrir a las APIs, y, de ser asi, si seria muy complicado..



prueba con una variable 'global' [que por omsion se inicializa en false] y el evento '_terminate' +/- como sigue:
[obviamente] en el modulo de codigo del formulario con botones de 'aceptar' (1) y 'cancelar' (2) ==Dim Procesado As Boolean
Private Sub CommandButton1_Click() ' el boton de aceptar... '
' aqui las acciones normales del proceso... '
Procesado = True
Unload Me
End Sub
Private Sub CommandButton2_Click() ' el boton de cancelar... '
MsgBox "Ejecutando las acciones de cancelacion..."
Procesado = True
Unload Me
End Sub
Private Sub UserForm_Terminate()
If Not Procesado Then CommandButton2_Click
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#3 Ivan
11/12/2006 - 04:28 | Informe spam
la sencillez y efectividad personificadas,

muchas gracias de nuevo, Hector Miguel

un saludo y hasta pronto
Ivan
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida