vb點(diǎn)虐 讓相應(yīng)的textbox中只能輸入“中文字符、英文、數(shù)字”

每個(gè)textbox都有KeyPress事件（event），每次用戶輸入一個(gè)字符時(shí)檢測，如不滿足則清空

創(chuàng)新互聯(lián)建站從2013年成立，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命，1280元平樂做網(wǎng)站,已為上家服務(wù),為平樂各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:028-86922220

我現(xiàn)在不在vs下，你可以找到這個(gè)面板，綁定相應(yīng)的函數(shù)

比如只能顯示數(shù)字

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

做了一些小修改，不明白請及時(shí)追問，滿意敬請采納，O(∩_∩)O謝謝

vb點(diǎn)虐 的textbox中可以正常輸入英文數(shù)字切換到中文輸入法一按鍵就退出程序

PrivateSubText1_KeyPress(KeyAsciiAsInteger)If((KeyAscii=48AndKeyAscii=65AndKeyAscii=97AndKeyAscii=122))=FalseThenKeyAscii=0EndSub

VB點(diǎn)虐 做軟鍵盤輸入中文漢字,請問在VB點(diǎn)虐 不是VB6中.怎么做軟鍵盤輸入漢字.我現(xiàn)在能輸入英文但是漢字不行

既然你可以輸入英文，只要系統(tǒng)切換到中文輸入方式下，例如“谷歌拼音”，不就可以輸入中文了

VB.NET怎么限制中英文輸入長度

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

這個(gè)不太完善，是假設(shè)原來文本長度已經(jīng)有11就不允許繼續(xù)輸入，因?yàn)榕袛喈?dāng)下輸入的是漢字還是英文很麻煩。

e.KeyChar Chr(8)這句是保證任何時(shí)候Backspace鍵都要有效。

希望能對你有所幫助。