阿杰 发表于 2007-5-22 09:59:34

[推荐]禁止使用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

马大哈 发表于 2007-5-22 13:35:59

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

billypon 发表于 2007-5-22 18:22:32

为什么我禁止输入的时候，使用KeyDown事件，让KeyCode=0却不起作用的
页: [1]
查看完整版本: [推荐]禁止使用Alt+F4关闭窗体