最新下载
热门教程
- 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 中创建的自定义窗体。您也可能需要为给定的解决方案禁用“工具”菜单上的“宏”命令。
将命令栏或命令栏控件的 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 中创建的自定义窗体。您也可能需要为给定的解决方案禁用“工具”菜单上的“宏”命令。
将命令栏或命令栏控件的 Enabled 属性设置为 False 可禁用命令栏或命令栏控件；同样，将命令栏或命令栏控件的 Enabled 属性设置为 True 可启用命令栏或命令栏控件。
相关文章
- 代号速降手游在哪下 代号速降下载渠道分享 06-09
- 代号莲正版手游下载地址分享 代号莲正版手游下载渠道推荐 06-09
- 恶魔轮盘最新版下载地址分享 恶魔轮盘联机版下载渠道推荐 06-09
- 开个洗脚店手游公测时间在什么时候 开个洗脚店手游怎么下 06-09
- 方舟生存进化手机版下载地址分享 方舟生存进化下载手机版渠道推荐 06-09
- 逃往南方下载地址分享 逃往南方下载渠道推荐 06-09