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


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

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

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


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


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


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部