怎样屏蔽Alt+F4键

Question

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97屏蔽：Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, 0, 0)
恢复：Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, 0, 0)
 

Answer 1

to zyl910(910：分儿，我来了！) 只能屏蔽CTRL+ALT+DEL
不能屏蔽ALT+F4

Answer 2

cxhyrh(会做梦的大头) 可以的吧，好象还可以屏蔽ALT+TAB

Answer 3

就是对Alt+F4键无效！！！！！

Answer 4

FormQureyUnload()中写上
Cancel=True这样可以，我刚试过,在CSDN上看到的

Answer 5

因该这样
FormQureyUnload()中写上
Cancel=1

Answer 6

to zyl910(910：分儿，我来了！)加个按钮写入End不就行了

Answer 7

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode = 0 Then Cancel = 1
End Sub
对于你的问题,加上上面的代码就行了,这样就禁止了用窗体控件退出窗口,不论ALT+F4,还是窗口菜单,都无法退出程序,而代码里面的unload me,或者end等不会受影响你要屏蔽键盘就要用API,虽然可以实现,但很麻烦,而且兼容性不好