阿杰 发表于 2007-2-14 09:40:13

禁止使用Alt+F4关闭窗体

<p>Private Sub Form_Load()<br/>&nbsp;&nbsp;&nbsp;&nbsp;Me.KeyPreview = True<br/>End Sub<br/><br/><br/>Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)<br/><br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;If (Shift = vbAltMask) Then<br/><br/><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>
页: [1]
查看完整版本: 禁止使用Alt+F4关闭窗体