如何限定textbox数组控件中都只能输入数字或小数点

傲世浮云

如题，我有几个textbox控件里面只能输入数据，单个的控件好做，数组的就做不好，谁有经验分享一下

56180825

一般是在 ”KeyPress“事件中判断，如下代码
private void textBox_KeyPress(object sender, KeyPressEventArgs e)
# L% S6 x$ d5 O3 j& w, d8 |        {
            if (("0123456789." + (char)8).IndexOf(e.KeyChar) > -1)
            {
                e.Handled = false;
            }
  A( z4 N. q; V1 l1 w% n' D            else
            {
                e.Handled = true;
            }
0 X# x3 a6 W. [, o9 |9 v9 `# ]        }

傲世浮云

楼上那个是用什么程序语言写的，我用的是VB6.0里面没有这样的代码
8 B* M& H6 ]! l我是这样做的
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
$ q- y: r$ y: X* J. A) ?    If Not IsNumeric(Text1(0).Text) Then
+ K2 t8 k0 {' L9 C& T        MsgBox "输入数值", , "信息提示"
        Text1(0).Text = ""
    End If
End Sub
不过还是不能同时限定控件数组

hh749

在控件数组的循环中再加入判断不就行了吗?

傲世浮云

谢谢上面的两位
以实现了我的想法,现把代码贴出来，大家看看有没什么BUG
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
" c! Y* d% Z' O# b2 ~1 m  Select Case KeyAscii
        Case 46 To 57
# D+ c) ]; m/ |) a7 k           Exit Sub
, ~2 v  z* I# t* q* E' H- i- X        Case Else
8 X+ ]' c, O8 Y$ `1 e1 Y  u* _           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
   End Select
End Sub
这样在控件数组里可以用了

傲世浮云

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  Select Case KeyAscii
        Case 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
' `: s% A5 P8 ^& N' f: B           Exit Sub
8 d% w  x8 M* d4 f; E; g& h        Case Else
+ [, ~! W7 M/ i  N           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
   End Select
6 V# O7 }  O" E) O; R3 L" n& qEnd Sub


2 h5 f# M, N- ^1 x1 G- e% w. m$ D这样写才是对的，上面47是/在键盘上.的旁边，还是容易按错。