| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [分享]限定文本框输入数字一法 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3128) |
| -- 作者：擎天柱 -- 发布时间：2009/6/13 0:01:00 -- [分享]限定文本框输入数字一法 【限定文本框中输入数字一法】 近日翻查一些VB代码，偶然得到的,这个思路跟一般的思路有点不同，适当完善了一下，搬到foxtable上用了，感觉还行，简单易懂。这个估计很多会用到，于是贴出来了。 可在leave事件里设置（注意.text与.value的异同 ） Dim i As Integer On Error GoTo Error1 i = Forms("窗口1").Controls("TextBox1").text Exit Sub Error1: MsgBox ("请输入数字!") Forms("窗口1").Controls("TextBox1").value="" |
| -- 作者：擎天柱 -- 发布时间：2009/6/13 0:03:00 -- 以前论坛里有关于这方面的贴的提问，不妨参考本帖。 |
| -- 作者：擎天柱 -- 发布时间：2009/6/13 0:22:00 -- 如果限定输入日期，dim i为日期就可以啦！ （不过有时候，输入正确的后，仍然有对话框弹出，不知何故） |
| -- 作者：八婺 -- 发布时间：2009/6/13 0:25:00 -- 感觉还是直接用IsNumeric来的方便。 if IsNumeric(e.Form.Controls("TextBox1").text) = false Then MsgBox ("请输入数字!") e.Form.Controls("TextBox1").value="" End If |
| -- 作者：mr725 -- 发布时间：2009/6/13 14:15:00 -- 1、3楼的代码如果连小数点都不许输入的话，就不行了～ （也就是只能输入整数时） |