Cancelar Eventos

[zXxOsirisxXz]

Buenas ^^ kisiera saber..

Es posible cancelar los efectos de los comandos como por ejemplo Alt+F4.. con esto:

Private Declare Function GetAsyncKeySta te Lib "user32" _
    (ByVal vKey As Long) As Integer

Private Sub Form_Load()
    Form1.Hide
   
    Timer1.Interva l = 1
End Sub

Private Sub Timer1_Timer()
    If GetAsyncKeySta te(vbKeyF4) Then
        MsgBox "Not Allowed =D", vbCritical, "Error"
    End If
End Sub

[Ya k no me se el VBKey de Alterno.. lo ise solo con el F4]
de esta forma, sale un msgbox cada vez k le de a F4, pero.. por ejemplo, si doy un Alt+F4 el mensaje aparece.. pero el efecto de cerrar ventanas como quiera actua.

Quisiera que aparesca el mensaje, y luego que no pasara nada.

es esto posible?

[ranefi]

Buenas ^^ kisiera saber..

Es posible cancelar los efectos de los comandos como por ejemplo Alt+F4.. con esto:

[Ya k no me se el VBKey de Alterno.. lo ise solo con el F4]
de esta forma, sale un msgbox cada vez k le de a F4, pero.. por ejemplo, si doy un Alt+F4 el mensaje aparece.. pero el efecto de cerrar ventanas como quiera actua.

Quisiera que aparesca el mensaje, y luego que no pasara nada.

es esto posible?

Buena tarde zXxOsirisxXz. Aquí te dejo el código que requieres.

Agregar 1 control CommandButton e insertar el siguiente código en un...

Formulario

Código:

Private Sub Command1_Click()
    End
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = vbFormControlMenu Then
        Cancel = True 'PARA CANCELAR EL EVENTO CERRAR
       
        MsgBox "Not Allowed =D", vbCritical, "Error"
    End If
End Sub

No está de más el pedirte buscar un poquito más, esto para evitar la redundancia de mensajes. Nos vemos.

[zXxOsirisxXz]

Muchas gracias por el codigo, pero no era exactamente lo que preguntaba..
Era usar el Alt+F4 en termino general no en mi form..

Igual gracias =P

[ranefi]

Muchas gracias por el codigo, pero no era exactamente lo que preguntaba..
Era usar el Alt+F4 en termino general no en mi form..

Igual gracias =P

Entonces lo que necesitas es lo siguiente:

Agregar 1 control Timer e insertar el siguiente código en un...

Formulario

Código:

Private Declare Function GetAsyncKeyState Lib "user32" _
    (ByVal vKey As Long) As Integer

Private Sub Form_Load()
    Form1.Hide
   
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyMenu) And GetAsyncKeyState(vbKeyF4) Then
        Shell "notepad", vbMaximizedFocus
    End If
End Sub

Espero esto sí te sirva. Nos vemos.

[zXxOsirisxXz]

Gracias otra vez, es otra forma de hacer el Alt+F4 con el notepad.. pero aun asi se cierran las ventanas.. luego sale el notepad.. ya intente con msgbox y el resultado es igual.. Acaso.. es posible la cancelacion total?