' 値が 0 より小さいか 255 より大きい場合、 ' 検証が失敗する条件を作成します。 Dim rc As Infragistics.Win.RangeCondition = _ New Infragistics.Win.RangeCondition(0, 255, GetType(Integer)) ' コントロールがどのように検証されるかを ' 決定する ValidationSettings オブジェクトを取得します。 Dim vs As Infragistics.Win.Misc.ValidationSettings = _ Me.UltraValidator1.GetValidationSettings(Me.UltraNumericEditor1) ' 条件を RangeCondition に設定します vs.Condition = rc