Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.oleDbDataAdapter1.Fill(Me.DataSet11)
' 以下のコードはコントロールを初期化します
' コンボをデータ ソースにバインドします
Me.ultraCombo1.DataSource = Me.DataSet11
Me.ultraCombo1.DataMember = ""
' ValueMember および DisplayMember を適切な列キーに設定します
Me.ultraCombo1.ValueMember = "ProductID"
Me.ultraCombo1.DisplayMember = "ProductName"
' UltraCombo の BorderStyle プロパティを設定して、
' 編集領域の境界線スタイルを設定しますDisplayLayout の BorderStyle プロパティは
' ドロップダウン ウィンドウの境界線を変更します
Me.ultraCombo1.BorderStyle = UIElementBorderStyle.Solid
Me.ultraCombo1.DisplayLayout.BorderStyle = UIElementBorderStyle.Solid
' 自動編集を有効にします有効にすると、ユーザーがテキストを入力するときに、
' UltraCombo が自動的に一致する項目を検索します
Me.ultraCombo1.AutoEdit = True
' ドロップダウンのスタイルを設定します
Me.ultraCombo1.DropDownStyle = UltraComboStyle.DropDown
' UltraCombo の編集領域の外観を設定します
Me.ultraCombo1.Appearance.FontData.Bold = DefaultableBoolean.True
Me.ultraCombo1.Appearance.ForeColor = Color.Maroon
' UltraCombo のドロップダウン領域の外観を設定します
Me.ultraCombo1.DisplayLayout.Appearance.ForeColor = Color.DarkBlue
' ドロップダウン項目の最小値および最大値を設定します
Me.ultraCombo1.MinDropDownItems = 5
Me.ultraCombo1.MaxDropDownItems = 10
End Sub