Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
' すべてのメニューを常に表示に設定すると、「カスタマイズ メニュー」の機能が無効になります
' このプロパティがデフォルト (false) に設定された場合、メニューに
' 最近使用した項目のみが最初に表示されます非表示される項目 (最近使用した項目以外の項目) を
' 遅延表示しますメニューの下にあるダブル シェブロンをクリックすると、
' 非表示の項目を表示できます
Me.UltraToolbarsManager1.AlwaysShowMenusExpanded = DefaultableBoolean.True
' ツールバー マネージャーの外観にデフォルト設定を指定します
Me.UltraToolbarsManager1.Appearance.BackColor = SystemColors.ActiveCaption
Me.UltraToolbarsManager1.Appearance.BackColor2 = SystemColors.InactiveCaption
Me.UltraToolbarsManager1.Appearance.BackGradientStyle = GradientStyle.HorizontalBump
' コードで使用可能な名前付きの外観を作成します
Me.UltraToolbarsManager1.Appearances.Add("StandardMenus")
Me.UltraToolbarsManager1.Appearances("StandardMenus").BackColor = Color.LightBlue
Me.UltraToolbarsManager1.Appearances("StandardMenus").ForeColor = Color.DarkBlue
Me.UltraToolbarsManager1.Appearances.Add("RestrictedMenus")
Me.UltraToolbarsManager1.Appearances("RestrictedMenus").BackColor = Color.DarkGray
Me.UltraToolbarsManager1.Appearances("RestrictedMenus").ForeColor = Color.Silver
' ツールバーをフォームに配置するためにツールバー マネージャーを設定しますツールバー マネージャーの DockWithinContainer プロパティを
' を設定します
Me.UltraToolbarsManager1.DockWithinContainer = Me
' フリー ツールバーが 20% 不透明度にフェードする前の遅延時間を決定する
' フリー ツールバーのフェード遅延時間 (ミリ秒) の値を指定します
Me.UltraToolbarsManager1.FloatingToolbarFadeDelay = 500
' 使用する画像リストを設定します
Me.UltraToolbarsManager1.ImageListLarge = Me.ImageList1
Me.UltraToolbarsManager1.ImageListSmall = Me.ImageList2
' 小さい画像のサイズ値を指定します (デフォルトは 16 x 16 です)
Me.UltraToolbarsManager1.ImageSizeSmall = New Size(24, 24)
' 大きい画像のサイズ値を指定します (デフォルトは 32 x 32 です)
Me.UltraToolbarsManager1.ImageSizeLarge = New Size(48, 48)
' ツール画像を表示するときに、「透明」の色を
' を指定します
Me.UltraToolbarsManager1.ImageTransparentColor = Color.Magenta
' 移動できないようにツールバーをロックしますグラブ ハンドルも
' 表示されません
Me.UltraToolbarsManager1.LockToolbars = True
' このツールバー マネージャーのツールバーおよびメニューを
' MDI 親のツールバーおよびメニューとマージすることを防止しますツールバー マネージャーに配置されたフォームは MDI の子フォーム
' (その MDI プロパティが設定されたフォーム) のみに
' 影響します
Me.UltraToolbarsManager1.MdiMergeable = False
' ランダムなメニュー アニメーションを有効にします
Me.UltraToolbarsManager1.MenuAnimationStyle = MenuAnimationStyle.Random
' すべてのメニューに適用する設定を指定します(注: この設定を指定した
' メニューでオーバーライドするには、関連付けられた PopupMenuTool オブジェクトの
' Settings オブジェクトにアクセスします)
Me.UltraToolbarsManager1.MenuSettings.Appearance.BackColor = Color.Red
' すべてのメニューで垂直のサイズ ストリップを表示します
Me.UltraToolbarsManager1.MenuSettings.IsSideStripVisible = DefaultableBoolean.True
' すべてのメニューをツールバーとして表示します
Me.UltraToolbarsManager1.MenuSettings.PopupStyle = PopupStyle.Toolbar
' すべてのメニューで会社名を含む垂直のサイド ストリップを表示します
Me.UltraToolbarsManager1.MenuSettings.SideStripText = "My Company Name"
' フォント名をそのフォントで表示します
Me.UltraToolbarsManager1.ShowFontNamesInFont = True
' カスタマイズ メニューがアクティブの場合にフル メニューを表示する延期期間値 (ミリ秒) を指定します
' (AlwaysShowFullMenus プロパティは False に設定されます)
Me.UltraToolbarsManager1.ShowFullMenusDelay = 500
' メニューの下にシャドーを表示しません
Me.UltraToolbarsManager1.ShowMenuShadows = DefaultableBoolean.False
' ツールバーにクイック カスタマイズ ツールを表示しません
Me.UltraToolbarsManager1.ShowQuickCustomizeButton = False
' ツールチップのショートカットを表示します
Me.UltraToolbarsManager1.ShowShortcutsInToolTips = True
' マウスがツールの上にホバーするときにツールチップを表示します
Me.UltraToolbarsManager1.ShowToolTips = True
' ツールバーおよびメニューのスタイルを設定します
Me.UltraToolbarsManager1.Style = ToolbarStyle.Office2000
' すべてのツールバーに適用する設定を指定します(注: この設定を指定した
' ツールバーでオーバーライドするには、関連付けられた UltraToolbar オブジェクトの
' Settings オブジェクトにアクセスします)
' 左側または右側へのツールバーのドッキングを無効にします
Me.UltraToolbarsManager1.ToolbarSettings.AllowDockLeft = DefaultableBoolean.False
Me.UltraToolbarsManager1.ToolbarSettings.AllowDockRight = DefaultableBoolean.False
' ツールバーのカスタマイズを無効にします
Me.UltraToolbarsManager1.ToolbarSettings.AllowCustomize = DefaultableBoolean.False
' ボタンの画像の下にすべてのツールバー ボタンのキャプションを表示します
Me.UltraToolbarsManager1.ToolbarSettings.CaptionPlacement = TextPlacement.BelowImage
' ツールバーでツールの間のスペースを 10 ピクセルに設定します
Me.UltraToolbarsManager1.ToolbarSettings.ToolSpacing = 10
' ツールバーおよびメニューで大きい画像を使用します
Me.UltraToolbarsManager1.UseLargeImagesOnToolbar = True
Me.UltraToolbarsManager1.UseLargeImagesOnMenu = True
End Sub