关于屏蔽关闭按钮的问题!
我想把窗体上的关闭按钮屏蔽了,但我需要有个热键(ctrl+w)来关闭窗体??不知道怎么来实现,我用
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
End Sub
屏蔽后就不可以用热键了,怎么才可以实现啊??对了.是要在98系统下用的.
谢谢了!
[解决办法]
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode <> 1 Then
Cancel = 1
End If
End Sub
[解决办法]
你把窗体的KeyPreview设置成TRUE,然后
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 87 And Shift = vbCtrlMask Then
MsgBox "OK "
End If
End Sub
[解决办法]
把control box设为false
把keypreview设为true
在窗体的keyup时间中编写代码
...
[解决办法]
一楼的朋友以及说对了
keypreview设为true
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 87 And Shift = vbCtrlMask Then
Unload Me
End If
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode <> 1 Then
Cancel = 1
End If
End Sub
