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

傲世浮云

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

56180825

一般是在 ”KeyPress“事件中判断，如下代码
1 U, O, F. \! C1 V3 M- q1 qprivate void textBox_KeyPress(object sender, KeyPressEventArgs e)
        {
0 v, j7 _4 k$ `# k% B3 \: _/ I            if (("0123456789." + (char)8).IndexOf(e.KeyChar) > -1)
            {
                e.Handled = false;
" {; e3 U* a$ }0 Q5 ]; t' V            }
0 b( v1 n7 k4 t" z            else
3 X& t6 }/ Q5 L0 R( |  ?            {
* r. m& A' y, @# \0 }( r% q                e.Handled = true;
" q; v6 I$ \5 n) o            }
        }

傲世浮云

楼上那个是用什么程序语言写的，我用的是VB6.0里面没有这样的代码
2 o/ ?+ w% L8 |$ H6 }5 I3 b我是这样做的
+ f8 F" @, |. j6 d2 r! pPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
5 E/ w) I' ^" l) E: O( K    If Not IsNumeric(Text1(0).Text) Then
# Y. D0 G1 l, u8 g) E        MsgBox "输入数值", , "信息提示"
        Text1(0).Text = ""
' s: W, v$ z8 O; G' P+ Y    End If
End Sub
不过还是不能同时限定控件数组

hh749

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

傲世浮云

谢谢上面的两位
' Z6 Y2 D) K- b/ [以实现了我的想法,现把代码贴出来，大家看看有没什么BUG
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  Select Case KeyAscii
4 X: v$ Z( ?! T$ O        Case 46 To 57
           Exit Sub
        Case Else
           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
   End Select
2 v; X! M" I( e4 c' mEnd Sub
. d# H5 a  X0 |' H这样在控件数组里可以用了

傲世浮云

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  v. O8 d; q  @& B  Select Case KeyAscii
        Case 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
           Exit Sub
6 V7 y7 L9 {: Z( N        Case Else
           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
& f7 p# {3 Y& i6 i! D   End Select
End Sub
# U/ L2 T/ q. h7 h6 q0 I
- x# m0 _5 M5 u' E- R, n# d, t5 C
" ], b2 c7 X- v这样写才是对的，上面47是/在键盘上.的旁边，还是容易按错。