以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何让一个NumericComboBox显示正整数呢? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103704) |
-- 作者:zhsenchzhi -- 发布时间:2017/7/14 20:58:00 -- 如何让一个NumericComboBox显示正整数呢? 一个 NumericComboBox 控件, 只想让用户输入正整数,请问该如何控制呢? 同理,一个 ComboBox, 也是只想让用户输入正整数,请问该如何控制呢?
[此贴子已经被作者于2017/7/14 20:59:54编辑过]
|
-- 作者:有点蓝 -- 发布时间:2017/7/14 21:21:00 -- NumericComboBox ,Validating事件 If e.Sender.Value <> CInt(math.Abs(e.Sender.Value)) msgbox("只能输入正整数") e.Cancel = True End If ComboBox ,Validating事件 Dim d As Integer If Integer.TryParse(e.Sender.Value,d) = False OrElse val(e.Sender.Value) <> CInt(math.Abs(val(e.Sender.Value))) msgbox("只能输入正整数") e.Cancel = True End If |