vbRichClient5_文本框不能输入中文的问题_20 first simple Widgets (GUI-Controls)

XiZhuXiVB 2014-10-10 04:20:06
vbRichClient5_文本框不能输入中文,会全部变成问号,在cwTextBox的类模块中,表现的问题如下:
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


没找到再哪里上传附件,所以把附件放到了百度网盘。请老师帮忙解答一下问题出在哪里
http://pan.baidu.com/s/1lgAdS

http://pan.baidu.com/s/1lgAdS
...全文
796 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
hYiBhYmMg 2015-09-19
  • 打赏
  • 举报
回复
是不是编码不对啊
XiZhuXiVB 2014-10-10
  • 打赏
  • 举报
回复
继续求解决方案。
XiZhuXiVB 2014-10-10
  • 打赏
  • 举报
回复
问题可能出在那个自定义控件上。把cwTextBox封装成一个独立的dll的话,就可以在其它用代码生成的窗体中使用。
赵4老师 2014-10-10
  • 打赏
  • 举报
回复
没准你这个控件本来就不是中文版的。

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧