如何控制TextBox控件只能输入数值型字符串

1. Public Sub CheckKeyPress(ByVal TargetTextBox As TextBox, ByVal e As System.Windows.Forms.KeyPressEventArgs, Optional ByVal Minus As Boolean = False, Optional ByVal DecimalCount As Integer = 0)
2.         Dim blnHandled As Boolean
3.         blnHandled = False
4.         Select Case Asc(e.KeyChar)
5.             Case Asc("-")                   '   负号：只能在最前头
6.                 If Not (TargetTextBox.SelectionStart = 0 And Minus = True) Then blnHandled = True
7.             Case Asc(".")                   '   小数点：小数位数大于0；在字符串中没有“.”，且加了“.”后小数位能满足要求
8.                 If DecimalCount <= 0 Then
9.                     blnHandled = True
10.                 Else
11.                     If Not (InStr(TargetTextBox.Text, ".") = 0 And (Len(TargetTextBox.Text) - TargetTextBox.SelectionStart <= DecimalCount)) Then blnHandled = True
12.                 End If
13.             Case 8, 13                      '   退格键，回车键
14.             Case Asc("0") To Asc("9")       '   0-9
15.                 If InStr(TargetTextBox.Text, ".") > 0 Then
16.                     If TargetTextBox.SelectionStart > InStr(TargetTextBox.Text, ".") Then
17.                         '   当前字符位置在小数点后，则小数点后的字符数必须小于小数位
18.                         If Len(TargetTextBox.Text) - InStr(TargetTextBox.Text, ".") >= DecimalCount Then blnHandled = True
19.                     Else
20.                         '   当前字符位置在小数点前，则小数点后的字符数必须不大于小数位
21.                         If Len(TargetTextBox.Text) - InStr(TargetTextBox.Text, ".") >= DecimalCount Then blnHandled = True
22.                     End If
23.                 End If
24.             Case Else
25.                 blnHandled = True
26.         End Select
27.         e.Handled = blnHandled
28.     End Sub

调用如下：

  Private Sub txtJE_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJE.KeyPress
        CheckKeyPress(sender, e, False, 0)
    End Sub