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