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

傲世浮云

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

56180825

一般是在 ”KeyPress“事件中判断，如下代码
7 m) P8 N/ C. N; J  i8 j, F' p+ Z% K, Sprivate void textBox_KeyPress(object sender, KeyPressEventArgs e)
        {
            if (("0123456789." + (char)8).IndexOf(e.KeyChar) > -1)
) E/ O3 A/ @. j* Z/ Q( w            {
4 j( F0 w+ {5 N. Q* E' [                e.Handled = false;
            }
            else
            {
                e.Handled = true;
2 x! U( u2 I$ D            }
        }

傲世浮云

楼上那个是用什么程序语言写的，我用的是VB6.0里面没有这样的代码
9 k1 O' {5 m! ]0 ]  t/ |6 V我是这样做的
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
, C+ I& }  _" k6 p1 Q1 V3 p6 `    If Not IsNumeric(Text1(0).Text) Then
3 a& H, r5 m: n, E        MsgBox "输入数值", , "信息提示"
4 s6 H3 x4 Q3 a) B4 a        Text1(0).Text = ""
1 o/ p& s& K$ M$ r    End If
End Sub
  |( `- I/ o$ C' Q不过还是不能同时限定控件数组

hh749

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

傲世浮云

谢谢上面的两位
以实现了我的想法,现把代码贴出来，大家看看有没什么BUG
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  Select Case KeyAscii
0 h  p3 C3 C* L# u) H        Case 46 To 57
           Exit Sub
        Case Else
  a* f. v0 s# t7 q9 l4 @           KeyAscii = 0
: {/ K1 r  l8 F) X; Y           MsgBox "请输入数值", , "提示信息"
# a4 Z3 [3 u3 w0 ]2 @* }: N! D   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
9 `4 E# v' G7 z        Case Else
+ L4 w/ m) C" o1 D- X5 g5 O" w           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
8 v7 G( c2 o, h% h- L   End Select
1 s$ P* {3 O) `8 g$ Y! J. c; {& QEnd Sub
  p( J6 Z! [4 o/ o7 b0 B

; C' M$ @5 j5 _4 b+ }8 N- I这样写才是对的，上面47是/在键盘上.的旁边，还是容易按错。