关于屏蔽关闭按钮的问题!

Question

我想把窗体上的关闭按钮屏蔽了,但我需要有个热键(ctrl+w)来关闭窗体??不知道怎么来实现,我用
Private Sub Form_Unload(Cancel As Integer)
          Cancel = 1
  End Sub
屏蔽后就不可以用热键了,怎么才可以实现啊??对了.是要在98系统下用的.
   谢谢了!

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode <> 1 Then
        Cancel = 1
    End If
End Sub

Answer 2

你把窗体的KeyPreview设置成TRUE,然后Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 87 And Shift = vbCtrlMask Then
        MsgBox "OK"
    End IfEnd Sub

Answer 3

把control box设为false
把keypreview设为true在窗体的keyup时间中编写代码
...

Answer 4

lzhzxl(云中人) 
谢谢您!但是关闭按钮屏蔽不了啊!!

Answer 5

pzlk(蜗牛狂奔☆☆☆☆☆) 
您狠~把最大化,最小化也屏蔽了!~
谢谢您了!

Answer 6

一楼的朋友以及说对了
keypreview设为truePrivate Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 87 And Shift = vbCtrlMask Then
        Unload Me
    End If
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If UnloadMode <> 1 Then
        Cancel = 1
    End If
End Sub