既然你可以輸入英文,只要系統切換到中文輸入方式下,例如“谷歌拼音”,不就可以輸入中文了
10年積累的成都網站設計、成都網站建設經驗,可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你,你也不認識我。但先網站設計后付款的網站建設流程,更有頭屯河免費網站建設讓你可以放心的選擇與我們合作。
每個textbox都有KeyPress事件(event),每次用戶輸入一個字符時檢測,如不滿足則清空
我現在不在vs下,你可以找到這個面板,綁定相應的函數
比如只能顯示數字
Private?Sub?NumBox_KeyPress(KeyAscii?As?Integer)
If?Not?IsNumeric(NumBox.Text)?Then
NumBox.Text?=?""
End?If
End?Sub
只能顯示英語(a-z 97-122; A-Z 65-90;?8(退格)和13(換行))
Private?Sub?EngBox_KeyPress(KeyAscii?As?Integer)
If?Not?(KeyAscii?=?97?And?KeyAscii=122)?Or?(KeyAscii?=?90?And?KeyAscii=65)?Or?=?8?Then
EngBox.Text?=?""
End?If
End?Sub
只能顯示漢字(漢字的ASCII值要么小于0,要么是8(退格)和13(換行))
Private?Sub?ChineseBox_KeyPress(KeyAscii?As?Integer)
If?Not?KeyAscii??0?Or?KeyAscii?=?8?Or?KeyAscii?=?13?Then
ChineseBox.Text=""
End?If
End?Sub
做了一些小修改,不明白請及時追問,滿意敬請采納,O(∩_∩)O謝謝
Dim wz As New StreamReader(wjm) 'wz文字 這一句改一下: Dim wz As New StreamReader(wjm,System.Text.Encoding.GetEncoding("gb2312")) 'wz文字
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If System.Text.Encoding.Default.GetByteCount(TextBox1.Text) = 11 And e.KeyChar Chr(8) Then
e.Handled = True
Else
e.Handled = False
End If
End Sub
這個不太完善,是假設原來文本長度已經有11就不允許繼續輸入,因為判斷當下輸入的是漢字還是英文很麻煩。
e.KeyChar Chr(8)這句是保證任何時候Backspace鍵都要有效。
希望能對你有所幫助。
PrivateSubText1_KeyPress(KeyAsciiAsInteger)If((KeyAscii=48AndKeyAscii=65AndKeyAscii=97AndKeyAscii=122))=FalseThenKeyAscii=0EndSub
VB中TEXT框是可以輸入漢字的,如果不能輸入漢字,可能是電腦的操作系統是英文版或其他語種版,而不是中文版造成的。