Programación General > Visual Basic 6.0 e inferiores

 Deshabilitar El Cierre De Un Mdichild

<< < (2/2)

jcae83:
Cuando des clic en la X  aparecera un mensaje cerrar si o no

 yo coloco en el formulario que deseo cerrar el sigte codigo:

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

solo copia y pega

Navegación

[0] Índice de Mensajes

[*] Página Anterior