以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如何让一个NumericComboBox显示正整数呢？  (http://foxtable.net/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