- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]怎样只允许文本框输入数字与回车？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42722)
-- 发布时间：2013/11/20 11:25:00
-- [求助]怎样只允许文本框输入数字与回车？
怎样只允许文本框输入数字与回车？
特别是不能含有空格及连续回车，也就是说文本框内每一行都必须是数字，不允许文本行之间有空行和空格
[此贴子已经被作者于2013-11-20 11:57:21编辑过]
-- 发布时间：2013/11/20 11:27:00
--
http://www.foxtable.com/help/topics/0739.htm
-- 发布时间：2013/11/20 11:35:00
--
不允许文本行之间有空行 该怎样处理？
-- 发布时间：2013/11/20 11:42:00
--
-- 发布时间：2013/11/20 11:45:00
--
在Validating事件中将回车换行之类的字符替换为""
-- 发布时间：2013/11/20 11:46:00
--
试试 Contains(" ")
-- 发布时间：2013/11/20 11:51:00
--
或者在keypress事件中去掉换行：
if e.keychar = chr(13) orelse e.keychar= chr(10) then
e.cancel = true
end if
-- 发布时间：2013/11/20 11:57:00
--
不行
-- 发布时间：2013/11/20 12:31:00
--
validating事件：
For Each ln As String In e.sender.basecontrol.lines
If ln = "" OrElse IsNumeric(ln) = False Then
e.cancel = True
messagebox.show("存在空行或者非数字")
End If
Next
-- 发布时间：2013/11/20 12:43:00
--
OK!
e.sender.basecontrol.lines肯定是狐爸的独门秘技，多谢