欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → [求助]文本框只输入数字

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


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

主题:[求助]文本框只输入数字

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


加好友 发短信
等级:标准版用户 帖子:39 积分:0 威望:0 精华:0 注册:2016/6/6 16:54:16
[求助]文本框只输入数字  发帖心情 Post By:2016/6/23 21:02:45 [显示全部帖子]

我在百度查了答案,但放在金字塔用似乎用不了。测试了一下,貌似是因为KEYPRESS事件没有响应。

我是这样测试的:
Sub UserForm1_txtWeight_KeyPress(KeyAscii)
    call application.MsgOut (1)
End Sub

按理如果有反应的话,消息框应该会显示1吧

为什么KEYPRESS事件没反应呢?

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


加好友 发短信
等级:标准版用户 帖子:39 积分:0 威望:0 精华:0 注册:2016/6/6 16:54:16
  发帖心情 Post By:2016/6/24 20:17:55 [显示全部帖子]

非常感谢

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


加好友 发短信
等级:标准版用户 帖子:39 积分:0 威望:0 精华:0 注册:2016/6/6 16:54:16
  发帖心情 Post By:2016/6/26 18:49:48 [显示全部帖子]

为何还是无法限制只输入数字呢?代码如下

Sub UserForm1_KeyPress(KeyAscii)
   If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub



 回到顶部