Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

VBA自定义菜单和菜单栏(二)

时 间:2009-09-04 12:02:50
作 者:江羽   ID:3967  城市:南昌
摘 要:之前发了第一篇
正 文:

五、菜单

5.1 Add方法用于CommandBarControls对象

新建一个 CommandBarControl 对象并添加到指定命令栏上的控件集合。

Expression.Add ( Type , Id , Parameter , Before , Temporary )

l         expression必需。该表达式返回一个 CommandBarControls 对象。

l         TypeVariant类型)可选。添加到指定命令栏的控件类型。可以为下列 MsoControlType常量之一:

常量

说明

msoControlButton

命令按钮

msoControlEdit

文本框

msoControlDropdown

下拉列表

msoControlComboBox

组合框

msoControlPopup

弹出菜单

l         Id Variant 类型)可选。指定内置控件的整数。如果该参数为1 ,或者忽略该参数,将在命令栏中添加一个空的指定类型的自定义控件。

l         Parameter Variant 类型)可选。对于内置控件,该参数用于容器应用程序运行命令。对于自定义控件,可以使用该参数向 Visual Basic 过程传递信息,或用其存储控件信息(类似于第二个 Tag 属性值)。

l         BeforeVariant 类型)可选。表示新控件在命令栏上位置的数字。新控件将插入到该位置控件之前。如果忽略该参数,控件将添加到指定命令栏的末端。

l         TemporaryVariant 类型)可选。设置为True 将使新命令栏为临时命令栏。临时命令栏在关闭容器应用程序时删除。默认值为 False

5.2向命令栏添加自定义菜单控件

以下代码示例将您通过编程方式添加的菜单名称添加到“工作表”菜单栏中。例如,此代码会将菜单名称“New Menu”添加到“工作表”菜单栏中。

注意:您可以根据需要为该菜单指定任何名称。

Sub Menu_Create()

Dim myMnu As Object

   Set myMnu = CommandBars("Worksheet menu bar").Controls. _

      Add(Type:=msoControlPopup, before:=3)

   With myMnu

   ' "&" 用以指定快捷键字符 (相当于Alt+M).

      .Caption = "New &Menu"

   End With

End Sub

5.3禁用命令栏上的菜单控件

禁用的菜单控件在命令栏中显示为灰色,并且不可用。以下示例禁用“New Menu”菜单:

Sub Menu_Disable()

   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False

End Sub

5.4启用命令栏上的菜单控件

以下代码示例启用您在“禁用命令栏上的菜单控件”一节中禁用的 New Menu 菜单:

Sub Menu_Disable()

   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = True

End Sub

5.5删除命令栏上的菜单控件

以下代码示例从“工作表”菜单栏中删除您在“向命令栏添加自定义菜单控件”一节中创建的“New Menu”菜单:

Sub Menu_Delete()

   CommandBars("Worksheet menu bar").Controls("New &Menu").Delete

End Sub

5.6还原命令栏上的菜单控件

以下代码示例还原“工作表”菜单栏上的内置“图表”菜单栏:

Sub Menu_Restore()

Dim myMnu As Object

   Set myMnu = CommandBars("Chart")

   myMnu.Reset

End Sub

  

   上一章  下一章



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助