Access VBA教程:ShortcutMenuBar属性

使用 ShortcutMenuBar属性可以指定以鼠标右键单击窗体、报表或窗体上的控件时所显示的快捷菜单。String 型,可读写。

expression.ShortcutMenuBar

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

指向“视图”菜单的“工具栏”,然后单击“自定义”,即可创建这些快捷菜单。有关创建自定义工具栏的详细信息,请参阅为当前数据库创建自定义快捷菜单

注意   ShortcutMenuBar属性只适用于窗体上的控件,不适用于报表上的控件。

另外,也可以使用 ShortcutMenuBar属性来指定菜单栏宏,用于显示数据库、窗体、窗体控件或报表的快捷菜单。

注意   在 Microsoft Access 97 之前的 Microsoft Access 版本中,创建自定义快捷菜单的方法是:将 ShortcutMenuBar属性设置为菜单栏宏的名称,然后创建一个包含该菜单的命令的宏组。Microsoft Access 仍然支持此项功能,但强烈推荐使用新的“自定义”对话框;指向“视图”菜单上的“工具栏”,然后单击“自定义”命令即可出现该对话框。

输入要显示的快捷菜单名称。快捷菜单可以是任何“类型”属性设置为“弹出式”的命令栏。如果将 ShortcutMenuBar属性设置留空,Microsoft Access 将显示内置(默认)的快捷菜单或应用程序的全局快捷菜单。如果设置的 ShortcutMenuBar属性值不是已有的快捷菜单或菜单栏宏的名称,则窗体、窗体控件或报表中将没有快捷菜单(不会显示默认的快捷菜单)。

使用对象的属性表Visual Basic,可以设置该属性。

在 Visual Basic 中,可以使用代表要显示的快捷菜单名称的字符串表达式来设置该属性。

如果要通过使用宏或 Visual Basic 显示数据库、窗体、窗体控件或报表的内置快捷菜单,请将该属性设置为空字符串 (" ")。

创建自定义快捷菜单步骤如下:首先创建一个工具栏,它包含了将在自定义快捷菜单上显示的全部命令,然后在“自定义”对话框中选择工具栏并单击“属性”按钮来打开“工具栏属性”对话框。在“工具栏属性”对话框中,将“类型”属性设置为“弹出式”。这样在窗体、窗体控件或报表属性表中的“快捷菜单栏”属性框中就可以使用该工具栏了。

当 ShortcutMenuBar属性和Application对象一起使用时,该属性可以将自定义快捷菜单作为全局快捷菜单显示。但是,如果已经在数据库中为窗体、窗体控件或报表设置了 ShortcutMenuBar属性,则该对象的自定义快捷菜单将在数据库全局快捷菜单的位置上显示。如果要对特定的窗体、窗体控件或报表显示不同的自定义快捷菜单,只需将其 ShortcutMenuBar属性设为不同的快捷菜单即可。当窗体、窗体控件或报表获得焦点时,用户单击鼠标右键即可显示对象的自定义快捷菜单;否则,将显示数据库的全局快捷菜单。

如果AllowShortcutMenus属性设置为 False,则快捷菜单对任何对象都无效。

VBA示例

下面的示例将指定自定义快捷菜单“Suppliers_Toolbar”,该菜单在用户以鼠标右键单击“Suppliers”窗体时显示。


Forms("Suppliers").ShortcutMenuBar = "Suppliers_Toolbar"

上页:Access VBA教程:Shape属性 下页:Access VBA教程:ShortcutMenu属性

Access VBA教程:ShortcutMenuBar属性

Access VBA教程:ShortcutMenu属性 Access VBA教程:ShowNavigationButtons属性(快照查看器)
Access VBA教程:SizeMode属性 Access VBA教程:SnapshotPath属性(快照查看器)
Access VBA教程:SortOrder属性 Access VBA教程:Source属性
Access VBA教程:SourceConnectStr、SourceDatabase属性 Access VBA教程:SourceDoc属性
Access VBA教程:SourceItem属性 Access VBA教程:SourceObject属性
Access VBA教程:SpecialEffect属性 Access VBA教程:StartupForm属性
Access VBA教程:StartupMenuBar属性 Access VBA教程:StartupShortcutMenuBar属性
Access VBA教程:StartupShowDBWindow属性 Access VBA教程:StartupShowStatusBar属性
Access VBA教程:StatusBarText属性 Access VBA教程:Style属性
Access VBA教程:SubAddress属性 Access VBA教程:SubdatasheetExpanded属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号