VB.net中限制TextBox只能输入数字（小数、负数）

最新推荐文章于 2024-04-08 18:48:47 发布

原创最新推荐文章于 2024-04-08 18:48:47 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#VB.NET #VB #.net #Windows

T_L_.NET、C#、VisualStudio 专栏收录该内容

25 篇文章

订阅专栏

本文介绍了一个简单的VB.NET程序，该程序使用KeyPress事件处理程序来限制用户在三个文本框中只能输入数字、小数点和负号，并确保每个文本框内的小数点唯一。

Private Sub TextBox1_KeyPress(ByVal sender As Object,
                                                   ByVal e As System.Windows.Forms.KeyPressEventArgs)
                     Handles Textbox1.KeyPress,Textbox2.KeyPress,Textbox3.KeyPress
 

    '判断输入的是否是数字、小数点或“BackSpace”符号

    If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

         '判断输入的小数点是否唯一
          If e.KeyChar = "." And InStr(CType(sender, TextBox).Text, ".") > 0 Then
               e.Handled = True
          Else
               e.Handled = False
          End If

     '判断输入的负号是否是在第一位
     ElseIf e.KeyChar = "-" And CType(sender, TextBox).Text = "" Then
          e.Handled = False
     Else
          e.Handled = True
     End If
End Sub