无忧岛

很多时候特别是用来接收价格类的数据的时候,我们需要限制下文本框录入的值.下面就是针对这种情况贴出的一段代码. 都是多年前整理的一些算法和应用,以后慢慢得往BLOG上整理吧,虽然很简单,不过的确比较实用.
新建个窗体,在窗体上画个TextBox控件,然后输入下面代码,看看是不是OK了?

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Numbers As String
Numbers = "1234567890" + Chr(8) + Chr(46)
If InStr(Numbers, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub