Imports Infragistics.Win.UltraWinToolbars
...
Private Sub CreatingGroupsofMutuallyExclusiveStateButtons_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' PopupMenuTool を作成します。
Dim menu1 As New PopupMenuTool("menu1")
menu1.SharedProps.Caption = "Layout"
' 新しい OptionSet を作成します。
' AllowAllUp を True に設定すると、すべての状態ボタンを同時にチェック解除できます。
Me.UltraToolbarsManager1.OptionSets.Add(True, "option1")
' 3 つの新しい状態ボタン ツールを作成します。
Dim Left As New StateButtonTool("Left")
Left.SharedProps.Caption = "Left"
Dim Center As New StateButtonTool("Center")
Center.SharedProps.Caption = "Center"
Dim Right As New StateButtonTool("Right")
Right.SharedProps.Caption = "Right"
' ツールを Tools コレクションに追加します。
Me.UltraToolbarsManager1.Tools.Add(Left)
Me.UltraToolbarsManager1.Tools.Add(Center)
Me.UltraToolbarsManager1.Tools.Add(Right)
' 同じ OptionSet に必要となる 3 つの状態ボタン ツールを設定します。
Left.OptionSet = Me.UltraToolbarsManager1.OptionSets("option1")
Center.OptionSet = Me.UltraToolbarsManager1.OptionSets("option1")
Right.OptionSet = Me.UltraToolbarsManager1.OptionSets("option1")
' ツールをメニューに追加します。
menu1.Tools.Add(Left)
menu1.Tools.Add(Center)
menu1.Tools.Add(Right)
' チェックマークがメニューの状態ボタン ツールの隣りに表示されます。
Left.MenuDisplayStyle = StateButtonMenuDisplayStyle.DisplayCheckmark
Center.MenuDisplayStyle = StateButtonMenuDisplayStyle.DisplayCheckmark
Right.MenuDisplayStyle = StateButtonMenuDisplayStyle.DisplayCheckmark
' PopupMenuTool を Tools コレクションに追加します。
Me.UltraToolbarsManager1.Tools.Add(menu1)
' PopupMenuTool をツールバーの Tools コレクションに追加します。
Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(menu1)
End Sub