Disable keypress

Du finder Ascii-koden og laver en select case og sætter den til at være =0

Du kan kun se om ALT-tasterne bliver trykket ned, derfor kan du ikke kigge specielt efter de kombinationer, som du angiver...

Følgende forhindrer tryk på ALT-tasterne:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 18 And (Shift = 4 Or Shift = 6) Then
    KeyCode = 0
    Shift = 0
  End If
End Sub

HUSK at sætte KeyPreview på formularen til True

UNDSKYLD, Dette ændrer kun på ALT+F4, IKKE på ALT+TAB og ALT+ESC !!!

Jeg kan kun løse 1. del af spørgsmålet:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim shiftkey
    shiftkey = Shift And 7
    If shiftkey = vbAltMask And KeyCode = vbKeyF4 Then
        MsgBox \"Du har trykket ALT+F4\"
    End If
End Sub

Private Declare Function SystemParametersInfo Lib \"user32\" Alias \"SystemParametersInfoA\" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Sub Screensaver(Enabled As Boolean)
If Enabled = True Then: SystemParametersInfo 97, False, 0, 0
If Enabled = False Then: SystemParametersInfo 97, True, 0, 0
End Sub

Jeg syntes ikke der er nogen af forslagene der disabler Alt+F4 ?

Og mmp hvordan en case ? Kan du komme med et exempel ?

Ovenstående fjerner alle system taster når den er slået til. Alstå Screensaver True