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


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

   

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

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

主题：[求助]文本框只输入数字
帅哥哟，离线，有人找我吗？
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事件没反应呢？
 回到顶部
帅哥哟，离线，有人找我吗？
pel46585
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：167 积分：661 威望：0 精华：1 注册：2009/12/25 23:43:24 		  发帖心情 Post By：2016/6/24 17:32:46 [只看该作者]

txtWeight是什么？
改为如下代码试下
Sub UserForm1_KeyPress(KeyAscii)
    call application.MsgOut (1)
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
c100011651
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

非常感谢

 回到顶部
帅哥哟，离线，有人找我吗？
c100011651
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
pel46585
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：167 积分：661 威望：0 精华：1 注册：2009/12/25 23:43:24 		  发帖心情 Post By：2016/7/11 13:31:05 [只看该作者]

Sub UserForm1_TextBox1_KeyPress(KeyAscii)
application.MsgOut KeyAscii
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
测试了下，确实无效。

可以通过Change事件，做些修改实现你的目的，我增加了个Lable控件。
Sub UserForm1_TextBox1_Change()
If UserForm1_TextBox1.Text <> "" Then
If Asc(UserForm1_TextBox1.Text) > 47 And Asc(UserForm1_TextBox1.Text) < 58 Then
UserForm1_Label1.Caption = UserForm1_Label1.Caption & UserForm1_TextBox1.Text
application.MsgOut UserForm1_Label1.Caption & UserForm1_TextBox1.Text
End If
UserForm1_TextBox1.Text = ""
End If
End Sub
版主评定：好评，获得20个金币奖励好评，获得20个金币奖励
(理由：奖励)
 回到顶部
帅哥哟，离线，有人找我吗？
jinn
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：217 积分：0 威望：0 精华：0 注册：2016/3/3 13:31:35 		  发帖心情 Post By：2016/7/18 18:03:15 [只看该作者]

请问一下输入，可以输入多内容吗？，比如下拉菜单之类的，还有勾选这类的

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.06250 秒, 5 次数据查询