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

傲世浮云

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

56180825

一般是在 ”KeyPress“事件中判断，如下代码
private void textBox_KeyPress(object sender, KeyPressEventArgs e)
        {
2 s/ K/ w1 D+ c            if (("0123456789." + (char)8).IndexOf(e.KeyChar) > -1)
- y" d" B( _! c3 z            {
                e.Handled = false;
            }
            else
            {
, e9 `7 Z5 K& W& s. A6 ]                e.Handled = true;
. e! \: I: M. S' _, R            }
        }

傲世浮云

楼上那个是用什么程序语言写的，我用的是VB6.0里面没有这样的代码
我是这样做的
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
* H# A* e6 O4 _2 L5 r    If Not IsNumeric(Text1(0).Text) Then
7 |1 g4 W; L: m6 f/ F  n        MsgBox "输入数值", , "信息提示"
        Text1(0).Text = ""
    End If
End Sub
不过还是不能同时限定控件数组

hh749

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

傲世浮云

谢谢上面的两位
以实现了我的想法,现把代码贴出来，大家看看有没什么BUG
8 t& x( I1 m8 J+ ^7 {Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  Select Case KeyAscii
  |# ]6 f3 _, s  ^  a        Case 46 To 57
           Exit Sub
6 C. {9 N& N6 G5 ~  V/ z. k7 R        Case Else
           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
   End Select
% L: i  N0 C7 GEnd Sub
这样在控件数组里可以用了

傲世浮云

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
/ y+ P, X2 M: h, d' T/ ]' a  Select Case KeyAscii
' _4 h% a7 s) D; u- p6 s7 \        Case 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
           Exit Sub
3 z, R  S0 j. `2 J; I        Case Else
- x# C% [& i  i, D& U* _5 X           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
   End Select
End Sub
1 n9 L9 x0 X2 T! }

  n( q: c& o1 t+ Z/ A这样写才是对的，上面47是/在键盘上.的旁边，还是容易按错。