有谁知道让vb的textbox控件里面只能输入数值型数据的方法???????????急用，快告诉我，谢谢了！！！！！

添加一个 TextBox 控件，命名为 Text1。
代码:
Private Sub Text1_KeyPress(ByVal KeyAscii As Integer, ByVal Shift As Integer)
   If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
      KeyAscii = 0
      Beep                '播放警告声音
   End If
End Sub

另外一种方法 Private Sub Text1_KeyPress(ByVal KeyAscii As Integer, ByVal Shift As Integer) On Error Resume next If VarType(Cint(text1.text))<>vbInteger then Beep '播放警告声音 End If End Sub 函数解释： VarType()函数能够测定数据类型，vbInteger是VB已经定义好的常量有vbInteger、vbString等。 加On Error是因为Cint()函数，不加如果输入非整型就会报错。

谢谢楼上的帮助，这样的话里面还是可以输入非数据型的数据，只不过不能输入不是0-9和.的字符了，比如111.12.22,能不能让用户在里面只能输入123.23这种类型的数据，并且小数点位数不变！！！

什么意思?

有谁知道啊。帮帮忙嘛。我在线等呢！！！！！！！！！！！！！！

有谁知道啊。帮帮忙嘛。我在线等呢！！！！！！！！！！！！！！

晕，这个太简单了吧？

简单你告诉我呀！我笨还不行嘛！！！

我不知道楼主是不是想要这个代码，因为楼主没有表达清楚……
Private Sub Text1_KeyPress(ByVal KeyAscii As Integer, ByVal Shift As Integer)
   If Format(Text1.Text, "###.##") &lt;&gt; Text1.Text Then '格式是否为 xxx.xx
      KeyAscii = 0
      Beep                '播放警告声音
   End If
End Sub