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

傲世浮云

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

56180825

一般是在 ”KeyPress“事件中判断，如下代码
private void textBox_KeyPress(object sender, KeyPressEventArgs e)
! p$ u# e) v5 f        {
            if (("0123456789." + (char)8).IndexOf(e.KeyChar) > -1)
" K) E1 P9 X$ n* |$ m7 _: u            {
                e.Handled = false;
8 o7 y  k, ^! B. A# a+ O& |  V) L7 D            }
            else
            {
6 r5 ^4 P$ O9 K                e.Handled = true;
3 K5 l& B; Q$ d0 I/ r9 \6 m( D- v; v            }
        }

傲世浮云

楼上那个是用什么程序语言写的，我用的是VB6.0里面没有这样的代码
我是这样做的
' x7 |. b$ _5 s1 OPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
! Q* ?" G  N* K7 E4 c) _9 `: ~: S    If Not IsNumeric(Text1(0).Text) Then
        MsgBox "输入数值", , "信息提示"
3 d; Q2 H0 O5 h- K  n6 e# T6 ~2 F        Text1(0).Text = ""
* O* \% Z  Q9 E. h) l    End If
5 t3 Z+ V# r$ O" @0 ~1 m" ^End Sub
不过还是不能同时限定控件数组

hh749

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

傲世浮云

谢谢上面的两位
  t* @( r$ a  K( x: l! h以实现了我的想法,现把代码贴出来，大家看看有没什么BUG
% w" L$ e5 A( z/ e# l& [Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
* q  }, W5 n5 t0 O" I# w, Y0 s  Select Case KeyAscii
        Case 46 To 57
           Exit Sub
        Case Else
           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
3 Y8 A/ p  B8 l. [2 @2 H: ~   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
           Exit Sub
        Case Else
           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
   End Select
2 }/ C7 B* {! Z& B' sEnd Sub

- {" ~/ P5 ]4 V& A# \$ y, _
( G0 D& T, k9 u# E8 p( }这样写才是对的，上面47是/在键盘上.的旁边，还是容易按错。