Controlar botones barra de titulo VB
¿Cómo se puede controlar el botón de cancelar de la barra de titulo del formulario?
¿Qué evento se desencadena cuando se pulsa?
Gracias.
¿Qué evento se desencadena cuando se pulsa?
Gracias.
1 respuesta
Respuesta de aja72
1
El evento que se dispara al pulsar el aspa es Form. QueryUnload. Este evento se dispara siempre que se intenta cerrar el formulario, y la forma de determinar como se esta cerrando lo determina el parámetro UnloadMode.
El siguiente ejemplo obliga a que pulses 3 veces el aspa antes de cerra el formulario:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Static contador As Integer
If UnloadMode = vbFormControlMenu Then
contador = contador + 1
If contador < 3 Then Beep: Cancel = True
End If
End Sub
El siguiente ejemplo obliga a que pulses 3 veces el aspa antes de cerra el formulario:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Static contador As Integer
If UnloadMode = vbFormControlMenu Then
contador = contador + 1
If contador < 3 Then Beep: Cancel = True
End If
End Sub
