最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
对 Microsoft Office 命令栏进行更多编程(2)
时间：2022-07-02 11:29:01 编辑：袖梨 来源：一聚教程网
可以使用如下所示的代码测试该函数：
Public Sub TestAddComboBoxToCommandBar()
' 用途：测试 AddComboBoxToCommandBar 函数。
Dim strChoices(4) As String
strChoices(1) = "Vanilla"
strChoices(2) = "Chocolate"
strChoices(3) = "Strawberry"
strChoices(4) = "Other"
If AddComboBoxToCommandBar("Tools", "Favorite Ice Cream", _
strChoices) = True Then
MsgBox "组合框已成功添加。"
Else
MsgBox "未能添加组合框。"
End If
End Sub
禁用和隐藏命令栏与命令栏控件
开发 Office 解决方案时，您可能需要防止用户在与该解决方案关联的某些命令栏和命令栏控件上单击。例如，您可能需要防止用户单击“窗体”工具栏上的任何控件，以免修改您在 Microsoft Word 中创建的自定义窗体。您也可能需要为给定的解决方案禁用“工具”菜单上的“宏”命令。
将命令栏或命令栏控件的 Enabled 属性设置为 False 可禁用命令栏或命令栏控件；同样，将命令栏或命令栏控件的 Enabled 属性设置为 True 可启用命令栏或命令栏控件。
Public Sub TestAddComboBoxToCommandBar()
' 用途：测试 AddComboBoxToCommandBar 函数。
Dim strChoices(4) As String
strChoices(1) = "Vanilla"
strChoices(2) = "Chocolate"
strChoices(3) = "Strawberry"
strChoices(4) = "Other"
If AddComboBoxToCommandBar("Tools", "Favorite Ice Cream", _
strChoices) = True Then
MsgBox "组合框已成功添加。"
Else
MsgBox "未能添加组合框。"
End If
End Sub
禁用和隐藏命令栏与命令栏控件
开发 Office 解决方案时，您可能需要防止用户在与该解决方案关联的某些命令栏和命令栏控件上单击。例如，您可能需要防止用户单击“窗体”工具栏上的任何控件，以免修改您在 Microsoft Word 中创建的自定义窗体。您也可能需要为给定的解决方案禁用“工具”菜单上的“宏”命令。
将命令栏或命令栏控件的 Enabled 属性设置为 False 可禁用命令栏或命令栏控件；同样，将命令栏或命令栏控件的 Enabled 属性设置为 True 可启用命令栏或命令栏控件。
相关文章
- 王者荣耀侦探能力大测试攻略 王者荣耀侦探能力大测试怎么过 11-22
- 无期迷途主线前瞻兑换码是什么 11-22
- 原神欧洛伦怎么培养 11-22
- 炉石传说网易云音乐联动怎么玩 11-22
- 永劫无间手游确幸转盘怎么样 11-22
- 无期迷途主线前瞻兑换码是什么 无期迷途主线前瞻直播兑换码介绍 11-22