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

傲世浮云 · 发表于 2010-8-28 12:26:10

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

56180825 · 发表于 2010-8-28 20:22:16

一般是在 ”KeyPress“事件中判断，如下代码
private void textBox_KeyPress(object sender, KeyPressEventArgs e)
      {
         if (("0123456789." + (char)8).IndexOf(e.KeyChar) > -1)
         {
            e.Handled = false;
         }
         else
         {
            e.Handled = true;
         }
      }

傲世浮云 · 发表于 2010-8-28 22:36:30

楼上那个是用什么程序语言写的，我用的是VB6.0里面没有这样的代码
我是这样做的
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If Not IsNumeric(Text1(0).Text) Then
MsgBox "输入数值", , "信息提示"
Text1(0).Text = ""
End If
End Sub
不过还是不能同时限定控件数组

hh749 · 发表于 2010-8-28 23:16:48

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

傲世浮云 · 发表于 2010-8-29 11:01:19

谢谢上面的两位
以实现了我的想法,现把代码贴出来，大家看看有没什么BUG
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  Select Case KeyAscii
      Case 46 To 57
         Exit Sub
      Case Else
         KeyAscii = 0
         MsgBox "请输入数值", , "提示信息"
End Select
End Sub
这样在控件数组里可以用了

傲世浮云 · 发表于 2010-8-29 11:26:22

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
      Case Else
         KeyAscii = 0
         MsgBox "请输入数值", , "提示信息"
End Select
End Sub

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

		自动登录	找回密码
密码			注册

通知

[已解决] 如何限定textbox数组控件中都只能输入数字或小数点

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。