如何限制VB中的textbox中的数字

来源：百度知道 编辑：UC知道 时间：2024/07/04 08:52:20
比如在text1.text中有这些字符 -123.456abc ，请问怎么限制里面的数字个数为6个，而其他的符号还是可以打上去？就是说text1.text中最多只能出现6个数字，而其他的符号没有限制。附加的条件：整个过程不涉及到键盘。
呵呵，我就是做计算器，是用鼠标点击command来输入向对应的数字的。想现在里面的字数，但是前面的负号（-）和小数点不包括在个数限制里面。

不涉及键盘那你怎么输入
计算器吗

Option Explicit
dim Number as Integer
Private form_load()
number=0
end sub

Private Sub TxtBody_KeyPress( KeyAscii As Integer)
If Number <= 6 Then
If KeyAscii >= 48 And KeyAscii <= 57 Then
Number = Number + 1
End If

Else
If KeyAscii >= 48 And KeyAscii <= 57 Then
KeyAscii = 0
End If
End If

你做的是计算器，那么鼠标点击一个command后，会改变text1，同时检测是否是数字并计数。（这中间包括删除键、清零键等）