https://foro.gambas-es.org/viewtopic.php?f=1&t=3047&p=17228#p17228
-----------------------------------
jguardon
Martes, 09 Abril 2013, 01:33

Re: Evitar La Ejecución De Una Función
-----------------------------------
Hola

Primero hay que saber qué código se ejecuta en cada evento. [u]El código del evento form_close se ejecuta siempre[/u], por lo que tendrás que decidir qué es lo que quieres hacer en cada caso. Usando la instrucción Stop Event lo que haces es inhibir el evento, por lo que si lo pones en el botón click con un condicional podrás controlar mejor lo que hagas. Con un ejemplo lo verás mejor:

[code linenumbers=false syntax=gambas]
Private flag As Boolean

Public Sub Button1_Click()
    flag = True
    Me.Close
End

Public Sub Form_Close()
    If flag Then
        Stop Event
        Print "no se puede cerrar desde el botón"
        flag = False 'restauramos el flag a false para que podamos cerrar desde la X
    Endif
End[/code]

Si desde cualquier otra parte del formulario volvemos a poner flag = false, entonces el botón cerrará el formulario.

Ahora es cuestión de que apliques tu propia lógica, 

saludos.


