新的限制Text文本只能输入数字的方法

最新推荐文章于 2023-09-28 16:50:17 发布

原创最新推荐文章于 2023-09-28 16:50:17 发布 · 806 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#textbox #microsoft #integer #string #windows #object

本文介绍了一种在Visual Basic应用程序中限制文本框输入仅为数字的方法。通过使用TextChanged事件检查输入内容，确保只有数字能够被接受，同时允许Windows快捷键正常使用。

在大部分的Text文本限制只能输入数字的程序,是使键盘除了数字外的所有的按键失效的,可是这样做也会使得Microsoft Windows的快捷键也同时失效(例如:Ctrl+C或Ctrl+V).
下面我介绍的这个方法避免了这样的情况:

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim str As String = ""
        Dim num As Integer = 0
        Dim temp As String = ""
        While num < TextBox1.Text.Length
            temp += "[0-9]"
            num += 1
        End While

        If Not (TextBox1.Text Like temp) Then
            TextBox1.Text = str
            TextBox1.Focus()
        Else
            Str = TextBox1.Text
        End If
    End Sub