1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub W_KeyPress(KeyAscii As Integer)
RaiseEvent KeyPress(KeyAscii)
Debug.Print KeyAscii, ChrW(KeyAscii), Chr(KeyAscii)
On Error Resume Next
Select Case KeyAscii
Case vbKeyBack
DeleteText True
Case Else
If KeyAscii >= vbKeySpace Or KeyAscii < -128 Then '添加代码 Or KeyAscii < -128 ,解决不能输入中文的问题
Debug.Print KeyAscii, ChrW(KeyAscii), Chr(KeyAscii) '输入中文时KeyAscii出来的值,始终是63,输入英文或数字完全正常
InsertText ChrW$(KeyAscii)
End If
End Select
If Err Then Err.Clear
EnsureVisible
End Sub