Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 46 Then
'可以加更多控制条件于此
KeyCode = 0
End If
End SubPrivate Sub Form_Load()
Me.KeyPreview = True
End Sub
If KeyCode = 46 Then
'可以加更多控制条件于此
KeyCode = 0
End If
End SubPrivate Sub Form_Load()
Me.KeyPreview = True
End Sub
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head><body onkeydown=alert(event.keyCode)>
</body>
</html>