半岛外围网上直营

Codejock 软件的Xtreme Command Bars 提供非常漂亮的Office风格的命令条和One Note样式的Tab. 这种构架完全支持菜单和工具栏的个性化设置， 它将在应用程序工作台上给你更大的控制权， Xtreme Command Bars提供嵌入式主题支持,允许你选择预先定义的主题如Officexp、Office 2003、 Visual Studio .NET，或者自定义主题。它是Xtreme Suite的一部分。

点击下载Xtreme Command Bars最新试用版

CommandBar Action消除了使用Update事件来更新\更改在菜单和工具栏中出现多个位置的项目的状态和属性的需要。例如，您可能有一个菜单项也出现在工具栏中，那么用户可能已经创建了相同的按钮，并将其放置在用户创建的工具栏中。使用“Actions”，您可以简单地修改项目的操作，无论用户添加了多少用户，它都会更新所有出现的项目。

操作对于本地化也很有用，因为您可以为每个本地设置一组操作，这些操作可以轻松用于更新所有出现的项目，以确保所有项目都得到更新。

具体操作：

每个CommandBar项都有一个ID。然后，具有相同ID的项目可以共享一组公共属性。CommandBars Action对象（在下图中表示为“ Item Actions”）是一组指定ID的所有项目都可以共享的属性。添加操作时，您将指定操作的ID，标题，工具提示文本，描述文本和类别。Id是您将分配给CommandBar项目的ID，您无法使用操作的属性。现在，任何与动作具有相同ID的CommandBar项都将使用该动作的属性。更新操作的任何属性时，无论用户添加了多少（在弹出菜单中还是在工具栏中），它将自动更新所有出现的项目。

该EnableActions必须调用方法，以使操作能够使用。每个CommandBar项都有一个Action属性，该属性只是对与其关联的CommandBars Action项的引用。如果没有为项目添加任何操作或尚未启用操作，则将使用该项目的默认属性。

在下图中，“菜Menu Item”，“Toolbar Item”和“User Customized Item (user created toolbar)都共享相同的“Item Action”。修改操作的属性时，它将更新所有出现的项目。

'Constants used to identify controls
Const ID_FILE_NEW         = 100
Const ID_FILE_OPEN        = 101
Const ID_FILE_CLOSE       = 102
Const ID_FILE_SAVE        = 103
Const ID_FILE_EXIT        = 104
Const ID_FILE_PRINT       = 113
Const ID_FILE_PRINT_SETUP = 114

Private Sub Form_Load()

'Enable the use of actions
CommandBars.EnableActions

'Create Actions to be used by CommandBar items. You can create
'the action before or after the CommandBar Items are added, but
'if you create them before like this sample be sure not to 
'overwrite any of the 5 properties of the actions when the 
'CommandBar item is added.
CommandBars.Actions.Add ID_FILE_NEW, "&New", "New", _
    "Create a new document", "File"
CommandBars.Actions.Add ID_FILE_OPEN, "&Open", "Open", _
    "Open an existing document", "File"
CommandBars.Actions.Add ID_FILE_SAVE, "&Save", "Save", _
    "Save the active document", "File"
CommandBars.Actions.Add ID_FILE_PRINT, "&Print", "Print", _
     "Print the active document", "File"
CommandBars.Actions.Add ID_FILE_PRINT_SETUP, "&Print Setup", _
    "Print Setup", "Change the printing options", "File"
CommandBars.Actions.Add ID_FILE_CLOSE, "&Close", "Close", _
    "Close the active document", "File"
CommandBars.Actions.Add ID_FILE_EXIT, "&Exit", "Exit", _
    "Quit the application; prompts to save documents", "File"

Dim Control As CommandBarControl
Dim ControlFile As CommandBarPopup

'Add some CommandBar items.
Set ControlFile = CommandBars.ActiveMenuBar.Controls.Add( _
                                xtpControlPopup, 0, "&File")
With ControlFile.CommandBar.Controls
    .Add xtpControlButton, ID_FILE_NEW, ""
    .Add xtpControlButton, ID_FILE_OPEN, ""
    .Add xtpControlButton, ID_FILE_SAVE, ""
    Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "")
    Control.BeginGroup = True
    .Add xtpControlButton, ID_FILE_PRINT_SETUP, ""
    Set Control = .Add(xtpControlButton, ID_FILE_EXIT, "")
    Control.BeginGroup = True
End With

Dim ToolBar As CommandBar
Set ToolBar = CommandBars.Add("Standard", xtpBarTop)
With ToolBar.Controls
    .Add xtpControlButton, ID_FILE_NEW, ""
    .Add xtpControlButton, ID_FILE_OPEN, ""
    .Add xtpControlButton, ID_FILE_SAVE, ""
    Set Control = .Add(xtpControlButton, ID_FILE_PRINT, "")
    Control.BeginGroup = True
End With

'Disable ALL items with Id ID_FILE_SAVE
CommandBars.Actions(ID_FILE_SAVE).Enabled = False

'Change the Caption of ALL items with Id ID_FILE_PRINT
CommandBars.Actions(ID_FILE_PRINT).Caption = _
    "Print Document"

'Change the ToolTipText of ALL items with Id ID_FILE_OPEN
CommandBars.Actions(ID_FILE_OPEN).ToolTipText = _
    "Open an existing document"
End Sub