很简单
再在KeyPress加上:
If KeyAscii=Asc(".") Then
If InStr(1,Text1.Text,".") Then'如果存在小数点
KeyAscii=0
End If
End If
再在KeyPress加上:
If KeyAscii=Asc(".") Then
If InStr(1,Text1.Text,".") Then'如果存在小数点
KeyAscii=0
End If
End If
解决方案 »
- 谁有用vb结合access数据库制作查询、修改、添加、删除等功能操作的实例!急用!
- winsock 服务器向指定客户端发送问题
- 我们公司的一个女孩,挺漂亮的,追过一段时间,但没同意。今天中午我请她吃完饭,她噗嗤一乐,对我说:傻样。大家说是不是有戏了,在线等
- 又一问: 调用com总出错,请帮忙!!!
- 求逐行对比打字程序的制作方法和思路
- DataGrid的问题
- 使用菜单的时候能不能隐藏标题栏?
- 有点奇怪:SQL引擎版本不一致吗?
- vb6.0中为什么不能访问officeXP的access创建的数据库类型?
- 请问expsrv.dll有什么作用?为什么我的程序安装时,出现expsrv.dll无法注册的提示?
- 请问怎样在程序中运行一个帮助文件?谢谢
- 谁知道这个问题是怎么回事????(在线等待)
if keyascii<48 or keyascii>57 then
keyascii=0
end if