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

傲世浮云

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

56180825

一般是在 ”KeyPress“事件中判断，如下代码
private void textBox_KeyPress(object sender, KeyPressEventArgs e)
        {
8 m8 q3 y7 B4 j4 x  n. z            if (("0123456789." + (char)8).IndexOf(e.KeyChar) > -1)
            {
, ~% ~6 }! E) |) _7 W5 z4 S                e.Handled = false;
            }
( O3 o. l1 N8 m2 A1 r: b            else
0 m0 L* i! b/ e- D            {
; j9 I0 w. f& p                e.Handled = true;
4 C  c4 k3 B$ Z            }
" `# ^) U# _6 m6 c( z2 n7 |        }

傲世浮云

楼上那个是用什么程序语言写的，我用的是VB6.0里面没有这样的代码
: B+ l5 m; w0 T+ h, L+ C我是这样做的
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
5 c- O# K: h' Y* M    If Not IsNumeric(Text1(0).Text) Then
        MsgBox "输入数值", , "信息提示"
        Text1(0).Text = ""
    End If
End Sub
不过还是不能同时限定控件数组

hh749

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

傲世浮云

谢谢上面的两位
+ d5 s& w; ^+ o! m, t$ v' Q以实现了我的想法,现把代码贴出来，大家看看有没什么BUG
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  Select Case KeyAscii
, G2 |* C( V0 K  l5 _& H; H' }' h        Case 46 To 57
- l% H* _) o" H4 F1 c           Exit Sub
) V( g5 X, H2 ?# k2 ^: w        Case Else
3 u* f; L  `+ K6 Z) ?2 x; N+ h           KeyAscii = 0
$ p8 q6 x' X2 |; l           MsgBox "请输入数值", , "提示信息"
   End Select
/ d3 @# K# ?& {/ K+ I5 UEnd Sub
. y$ L4 W% b+ Q这样在控件数组里可以用了

傲世浮云

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
  G4 X6 j; J7 B, C! x# w7 ]. S' |           Exit Sub
" ?+ m4 u2 M" c* q7 J- G        Case Else
           KeyAscii = 0
           MsgBox "请输入数值", , "提示信息"
   End Select
End Sub
3 G4 r8 j4 O" b- a" D

+ K" [* d8 s% h0 Y0 l; H这样写才是对的，上面47是/在键盘上.的旁边，还是容易按错。