Impedir cerrar un formulario
Publicado por Fernando Navarro (1 intervención) el 08/05/2001 07:12:05
Necesito que un formulario en ejecucio, no sea cerrado, amenos de que se de una clave de acceso.
Usen el QueryUnload pero al usar el CTRL-ALT-DEL y finalizar la tarea, esta a pesar de que se le diga que no, aparece el mensaje donde se le pide si quieres cerrar o no ya que la aplicacion no a dado respuest.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Msg ' Declara la variable.
If UnloadMode > 0 Then
' Si sale de la aplicación.
Msg = "¿Realmente desea salir de la aplicación?"
Else
' Si sólo se cierra el formulario.
Msg = "¿Realmente desea cerrar el formulario?"
End If
' Si el usuario hace clic en el botón No, se detiene QueryUnload.
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub
Usen el QueryUnload pero al usar el CTRL-ALT-DEL y finalizar la tarea, esta a pesar de que se le diga que no, aparece el mensaje donde se le pide si quieres cerrar o no ya que la aplicacion no a dado respuest.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Msg ' Declara la variable.
If UnloadMode > 0 Then
' Si sale de la aplicación.
Msg = "¿Realmente desea salir de la aplicación?"
Else
' Si sólo se cierra el formulario.
Msg = "¿Realmente desea cerrar el formulario?"
End If
' Si el usuario hace clic en el botón No, se detiene QueryUnload.
If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub
Valora esta pregunta
0