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

傲世浮云

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

56180825

一般是在 ”KeyPress“事件中判断，如下代码
private void textBox_KeyPress(object sender, KeyPressEventArgs e)
        {
            if (("0123456789." + (char)8).IndexOf(e.KeyChar) > -1)
6 B, ^. M; W" r; `            {
                e.Handled = false;
& m2 t. m; m+ Z9 Z2 ^2 ]            }
# Y2 f' p. f  M6 Q            else
            {
                e.Handled = true;
( F) U3 ?6 `) D, ]9 a9 H+ `2 Q            }
: Y3 d0 W" d$ ~* g, }) I        }

傲世浮云

楼上那个是用什么程序语言写的，我用的是VB6.0里面没有这样的代码
我是这样做的
# e& C3 Q) d  i. L8 _4 o- R/ }3 jPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
6 B0 A" j+ i, T- I: S, U: o    If Not IsNumeric(Text1(0).Text) Then
        MsgBox "输入数值", , "信息提示"
2 R3 Q$ R: ?( x% S. B        Text1(0).Text = ""
    End If
# ]8 r! c5 j5 v+ X( M$ C; [/ sEnd Sub
8 v5 ?: I. d) c2 l/ X6 {$ |2 O不过还是不能同时限定控件数组

hh749

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

傲世浮云

谢谢上面的两位
以实现了我的想法,现把代码贴出来，大家看看有没什么BUG
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
1 J% b8 l. N5 @# K4 ~9 C" Y  Select Case KeyAscii
        Case 46 To 57
% _; N' T3 [5 _1 ]0 q. |5 j           Exit Sub
) z- w' X- ]: c# ]) F0 D  \        Case Else
/ Y. h" H2 ^" P8 R: Y           KeyAscii = 0
" U+ c% C% n" n9 z6 _           MsgBox "请输入数值", , "提示信息"
   End Select
End Sub
7 l/ h- Y' s; q/ V0 E5 [. G这样在控件数组里可以用了

傲世浮云

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
- D+ ]0 C- q! _: ?  Select Case KeyAscii
        Case 46, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
( B1 B  ?% u; X: l; G7 z: u           Exit Sub
        Case Else
4 y% a$ F: ^$ @; h5 U! s% @  W5 y4 n8 [5 T           KeyAscii = 0
" t* s& P/ n$ ~3 t" T, x" \0 S           MsgBox "请输入数值", , "提示信息"
   End Select
End Sub


这样写才是对的，上面47是/在键盘上.的旁边，还是容易按错。