[推荐]禁止使用Alt+F4关闭窗体

阿杰

<strong>禁止使用Alt+F4关闭窗体<br/></strong>Private Sub Form_Load()<br/>&nbsp;&nbsp;&nbsp;&nbsp;Me.KeyPreview = True<br/>End Sub<br/><br/>Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)<br/>&nbsp;&nbsp;&nbsp;&nbsp;If (Shift = vbAltMask) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Select Case KeyCode<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case vbKeyF4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;KeyCode = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End Select<br/>End If<br/>End Sub

马大哈

<p>顶一下</p><p>设置窗体样式,以及使用子类化技术也可以达到这效果,不过麻烦一些[em01]</p>

billypon

为什么我禁止输入的时候，使用KeyDown事件，让KeyCode=0却不起作用的