' Infragistics ValueList を作成します Dim theValueList As Infragistics.Win.ValueList = _ New Infragistics.Win.ValueList() ' 既知の名前、システム カラーを ValueList に移植します。 Dim color As String For Each color In [Enum].GetNames(GetType(System.Drawing.KnownColor)) theValueList.ValueListItems.Add(color) Next color ' 新しい ContainedInListCondition オブジェクトを作成し、そのリストを ' 上記で作成した ValueList に設定します。データ値ではなく ' ディスプレイ テキストを使用して、一致があるかどうかを ' 決定します。 Dim listCondition As Infragistics.Win.ContainedInListCondition = _ New Infragistics.Win.ContainedInListCondition( _ theValueList, _ Infragistics.Win.ListItemMatchMode.DisplayText) ' WinTextEditor コントロールと関連付けられた ValidationSettings ' オブジェクトを取得します。 Dim vs As Infragistics.Win.Misc.ValidationSettings = _ Me.UltraValidator1.GetValidationSettings(Me.UltraTextEditor1) ' WinTextEditor の条件を上記で作成した ' ContainedInListCondition に設定します。 vs.Condition = listCondition