Foxtable(狐表)用户栏目专家坐堂 → [求助]怎样只允许文本框输入数字与回车?


  共有4803人关注过本帖树形打印复制链接

主题:[求助]怎样只允许文本框输入数字与回车?

帅哥哟,离线,有人找我吗?
jnletao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:943 积分:7802 威望:0 精华:0 注册:2013/7/7 13:37:00
[求助]怎样只允许文本框输入数字与回车?  发帖心情 Post By:2013/11/20 11:25:00 [只看该作者]

怎样只允许文本框输入数字与回车?
特别是不能含有空格及连续回车,也就是说文本框内每一行都必须是数字,不允许文本行之间有空行和空格
[此贴子已经被作者于2013-11-20 11:57:21编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/11/20 11:27:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:943 积分:7802 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/11/20 11:35:00 [只看该作者]

不允许文本行之间有空行 该怎样处理?

 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:943 积分:7802 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/11/20 11:42:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/11/20 11:45:00 [只看该作者]

在Validating事件中将回车换行之类的字符替换为""

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/11/20 11:46:00 [只看该作者]

试试 Contains(" ")

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/11/20 11:51:00 [只看该作者]

或者在keypress事件中去掉换行:

 

if e.keychar = chr(13) orelse e.keychar= chr(10) then

   e.cancel = true

end if


 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:943 积分:7802 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/11/20 11:57:00 [只看该作者]

不行

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
jnletao
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:943 积分:7802 威望:0 精华:0 注册:2013/7/7 13:37:00
  发帖心情 Post By:2013/11/20 12:43:00 [只看该作者]

OK!

e.sender.basecontrol.lines肯定是狐爸的独门秘技,多谢

 回到顶部