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
uj5u.com熱心網友回復:
沒準你這個控制元件本來就不是中文版的。uj5u.com熱心網友回復:
問題可能出在那個自定義控制元件上。把cwTextBox封裝成一個獨立的dll的話,就可以在其它用代碼生成的表單中使用。uj5u.com熱心網友回復:
繼續求解決方案。uj5u.com熱心網友回復:
是不是編碼不對啊轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/88073.html
標籤:控件
上一篇:求用VB編程立象列印機的代碼
