Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
'注意:
'程序中,设置当活动控件为不是文本框时,屏蔽 del 键,但实际使用中,
'应考虑到 当活动控件为 combobox等等时, 也不能屏蔽 del 键.
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 46 Then
If Not TypeOf Screen.ActiveControl Is TextBox Then KeyCode = 0
End If
End Sub