Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
' ----------------------------------------------------------------------------
' ツールバーを作成し、UltraToolbarManager のツールバー コレクションに追加します
Me.UltraToolbarsManager1.Toolbars.AddToolbar("GreatComposers")
' ----------------------------------------------------------------------------
' ComboBoxTool および LabelTool を作成し、ツールバーに追加します。
Dim comboBoxTool As New ComboBoxTool("GreatComposersList")
Dim labelTool As New LabelTool("GreatComposersLabel")
' メニューまたはツールバーに追加する前に、常に新しいツールを
' UltraToolbarManager のルート ツール コレクションに追加します
Me.UltraToolbarsManager1.Tools.AddRange(New ToolBase() {comboBoxTool, labelTool})
' ツールバーにツールを追加します
Me.UltraToolbarsManager1.Toolbars("GreatComposers").Tools.AddTool("GreatComposersLabel")
Me.UltraToolbarsManager1.Toolbars("GreatComposers").Tools.AddTool("GreatComposersList")
' ----------------------------------------------------------------------------
' ラベルのキャプションを設定し、テキストを右揃えします
LabelTool.SharedProps.Caption = "Select Composer"
LabelTool.SharedProps.AppearancesSmall.Appearance.FontData.Bold = DefaultableBoolean.True
LabelTool.SharedProps.AppearancesSmall.Appearance.TextHAlign = HAlign.Right
' ----------------------------------------------------------------------------
' エントリをコンボボックスに追加します
comboBoxTool.ValueList.ValueListItems.Add("Mozart")
comboBoxTool.ValueList.ValueListItems.Add("Beethoven")
comboBoxTool.ValueList.ValueListItems.Add("Bach")
comboBoxTool.ValueList.ValueListItems.Add("Vivaldi")
comboBoxTool.SelectedIndex = 0
comboBoxTool.DropDownStyle = DropDownStyle.DropDown
comboBoxTool.Value = "<Select a comnposer>"
comboBoxTool.SharedProps.ToolTipText = "Great Composers"
comboBoxTool.AutoComplete = True
End Sub