屏蔽ALT+F4,参考下吧 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown If e.Alt = True Then If e.KeyCode = Keys.F4 Then e.Handled = True End If End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.KeyPreview = True End Sub
http://hi.baidu.com/__%B6%C0%B9%C2%B2%D0%D4%C6__/blog/item/b2d151eeaea304212cf5342e.html
System.Windows.Forms.Keys.LMenu;//左Alt
System.Windows.Forms.Keys.LShiftKey;//左Shift
System.Windows.Forms.Keys.LButton;//鼠标左键 参考
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.Alt = True Then
If e.KeyCode = Keys.F4 Then
e.Handled = True
End If
End If
End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub