Impedir que el usuario cierre un
formulario
Esto es posible usando el evento QueryUnload del
formulario a bloquear:
Private Sub Form_QueryUnload(Cancel as Integer, UnloadMode As Integer)
MsgBox "No puede cerrar la ventana, lo siento"
If UnloadMode = vbFormControlMenu Then
Cancel = True
End If
End Sub
Valores de UnloadMode :
- vbFormControlMenu, (0)
El usuario eligió el comando Cerrar del menú Control del formulario.
- vbFormCode, (1)
Se invocó la instrucción Unload desde el código.
- vbAppWindows, (2)
La sesión actual del entorno operativo Microsoft Windows está finalizando.
- vbAppTaskManager, (3)
El Administrador de tareas de Microsoft Windows está cerrando la aplicación.
- vbFormMDIForm, (4)
Un formulario MDI secundario se está cerrando porque el formulario MDI también se está cerrando.