以文本方式查看主题

-  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