以文本方式查看主题

-  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=81198)
--  作者：zhsenchzhi
--  发布时间：2016/2/20 19:47:00
--  关于NumericComboBox
关于NumericComboBox，有两个问题需要请教：

1  如何控制  一个NumericComboBox，只能输入正数，和整数

2  一个NumericComboBox，在属性设置了格式为 0.00， 也就是保留两位小数， 但是在输入时，仍然能输入多位小数，请问，怎样设置才能保证输入最多2位小数，不能多输入呢？
--  作者：大红袍
--  发布时间：2016/2/21 11:09:00
--  

1、Validating事件

 

If val(e.Sender.Text) < 0 OrElse e.Sender.Text.indexof(".") > -1 Then
    msgbox("只能输入正整数")
    e.cancel = True
End If

 

2、不能控制输入的，只能在离开的时候判断输入是否正确。Validating事件

 

Dim idx As Integer = e.sender.text.indexof(".")
If idx > -1 AndAlso e.sender.Text.length - idx - 1 > 2 Then
    msgbox("只能输入两位小数")
    e.cancel = True
End If