Visual Basic Cerrar
Como le hago para que no se pueda cerrar la aplicación solo con el botón de end
1 Respuesta
Respuesta de ifrancoz
1
La pregunta está un poco ambigua, creo que lo que quiere es que la aplicación solo se cierre con un botón de Finalizar para que se cierre la base de datos.
Para ello utilizamos estas variables :
Global Finalizar as Booolean
Global Respuesta as String
En el formulario MDI colocamos lo siguiente para que no nos cierren el formulario con el control Cerrar del angulo superior derercho :
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Respuesta As VbMsgBoxResult
vbYesNo, Me.Caption)
If Not swFinalizar Then
Respuesta = MsgBox("Por favor utilice la opción apropiada en el menú Salir", vbOKOnly, Me.Caption)
If Respuesta = vbOK Then
Cancel = 1
End If
End If
End Sub
En el botón Salir del formulario MDI colocamos algo así :
Private Sub Salir_Click()
Finalizar = True
' Cerramos base de datos
Unload FormaMDI
Unload Frinicial
End
End Sub
Suerte !
Para ello utilizamos estas variables :
Global Finalizar as Booolean
Global Respuesta as String
En el formulario MDI colocamos lo siguiente para que no nos cierren el formulario con el control Cerrar del angulo superior derercho :
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Respuesta As VbMsgBoxResult
vbYesNo, Me.Caption)
If Not swFinalizar Then
Respuesta = MsgBox("Por favor utilice la opción apropiada en el menú Salir", vbOKOnly, Me.Caption)
If Respuesta = vbOK Then
Cancel = 1
End If
End If
End Sub
En el botón Salir del formulario MDI colocamos algo así :
Private Sub Salir_Click()
Finalizar = True
' Cerramos base de datos
Unload FormaMDI
Unload Frinicial
End
End Sub
Suerte !
Querido experto no funciona yo creo que uds se confundió pero estamos hablando de visual basic 6.0
¿Qué es lo que desea hacer?
1 - Cerrar la aplicacion solo con el botón END
¿2 - Permitir cerrar la aplicación con el Control Cerrar del angulo superior derecho?
Si, estamos hablando de Visual Basic 6.0
1 - Cerrar la aplicacion solo con el botón END
¿2 - Permitir cerrar la aplicación con el Control Cerrar del angulo superior derecho?
Si, estamos hablando de Visual Basic 6.0
1- solo con el boton de End
Lo que te envié si funciona, lo que ocurre es que hay unos errores, por favor crea un nuevo proyecto con un botón Salir y copia el siguiente código :
Dim Finalizar As Boolean
Dim Respuesta As String
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Respuesta As VbMsgBoxResult
If Not Finalizar Then
Respuesta = MsgBox("Por favor utilice la opción apropiada en el botón Salir", vbOKOnly, Me.Caption)
If Respuesta = vbOK Then
Cancel = 1
End If
End If
End Sub
Private Sub Salir_Click()
Finalizar = True
' Cerramos base de datos
End
End Sub
Luego lo ejecutas y lo vas a entender.
Suerte !
Dim Finalizar As Boolean
Dim Respuesta As String
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Respuesta As VbMsgBoxResult
If Not Finalizar Then
Respuesta = MsgBox("Por favor utilice la opción apropiada en el botón Salir", vbOKOnly, Me.Caption)
If Respuesta = vbOK Then
Cancel = 1
End If
End If
End Sub
Private Sub Salir_Click()
Finalizar = True
' Cerramos base de datos
End
End Sub
Luego lo ejecutas y lo vas a entender.
Suerte !
