Question

vb.net 让相应的textbox中只能输入“中文字符、英文、数字”

Answer 1

每个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谢谢

追问

不行呀

追答

好久没用过VB了，可能是函数中访问不到TextBox，你试试用Me.NumBox访问

追问

不行

追答

或者用传两个参数的函数，第一个是object

追问

没明白，那个keypress是自己打出来的，还是点击事件自动生成的啊

追答

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If Not IsNumeric(sender.Text) Then
        sender.Text=""
    End If
End Sub

 如果有问题就强转一下：

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    Dim txtBox As TextBox = DirectCast(sender, TextBox)
    
    If Not IsNumeric(txtBox.Text) Then
        txtBox.Text=""
    End If
End Sub

不明白请继续追问~

追问

变成只能输入一个英文字母，两段一样

追答

试试在ID_Num_textbox.Text=""
后加一句e.SuppressKeyPress = True
如果不想清空，直接把ID_Num_textbox.Text=""改成e.SuppressKeyPress = True

追问

追答

不是Me，是e

追问

加q聊吧：827245512

追答

好吧，没得话改成e.Handled=True