vb文本框只能输入数字和小数点

juanzi_86 2010-09-26 10:07:13

要求文本框中只能输入数字和小数点，怎么编程序呢？？~~~
我看论坛上好多都是只要求输入数字的，没有小数点

在线等~~~~

...全文

426 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

icansaymyabc 2010-09-27

打赏
举报

[Quote=引用 2 楼 juanzi_86 的回复:]
并且还要求其他的文本框也是同样的功能，怎么共同设置呢？
[/Quote]

Private Sub Text2_KeyPress(KeyAscii As Integer)
Text1_KeyPress(KeyAscii)
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
Text1_KeyPress(KeyAscii)
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
Text1_KeyPress(KeyAscii)
End Sub
....

[Quote=引用 4 楼 juanzi_86 的回复:]
还有要求能输入空格忘啦
[/Quote]
Private Sub Text1_KeyPress(KeyAscii As Integer)
If keyascii <> asc(" ") and keyascii <> 8 and KeyAscii <> Asc(".") And (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) Then
KeyAscii = 0
End If
End Sub

juanzi_86 2010-09-26

打赏
举报

我要晕掉啦不能编辑帖子吗我怎么找不到呢
应该是回格那个键啦

juanzi_86 2010-09-26

打赏
举报

还有要求能输入空格忘啦

现在还是人类 2010-09-26

打赏
举报

让TextBox只允许输入数字
http://blog.csdn.net/SupermanKing/archive/2008/08/20/2799053.aspx

让TextBox只输入金额或数字的方法，显示的时候很漂亮，输入的时候很方便
http://blog.csdn.net/SupermanKing/archive/2008/09/22/2959044.aspx

juanzi_86 2010-09-26

打赏
举报

并且还要求其他的文本框也是同样的功能，怎么共同设置呢？

icansaymyabc 2010-09-26

打赏
举报

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> Asc(".") And (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) Then
KeyAscii = 0
End If
End Sub