InitFormMenuBar 函数

根据窗体菜单的定义，加载图标和文字，隐藏无权限的菜单项，并自适应调整各菜单的位置。

语法

InitFormMenuBar(InitForm)

输入参数

返回值

无

说明

根据“数据模块自动生成器”中窗体菜单的定义，自动加载窗体菜单项的图标和文字。一般放在窗体“打开”事件（Open）或“加载”事件（Load）中调用即可。

注意事项：

1. 可能和多语言功能起冲突，要留意和 LoadLocalLanguage 函数调用的顺序。
2. 如果在开发者设置中开启了“隐藏无权限的窗体菜单”功能，此函数会将“启用”属性（Enabled）为“否”的窗体菜单项隐藏，因此需要在权限控制处理完成之后调用此函数。

相关

LoadLocalLanguage 函数

EnableButton 函数

示例

Private Sub Form_Open(Cancel As Integer)
    ApplyTheme Me          '主题风格处理。
    LoadLocalLanguage Me   '多语言指定语言资源加载处理。

    'mdb格式默认使用“按钮+图像+标签”3种控件来实现窗体菜单效果。accdb格式默认只
    '使用“按钮”控件来实现窗体菜单效果。为了兼顾这2种情况，这里使用EnableButton
    '函数来设置菜单项的启用/禁用显示效果。
    EnabledButton Me.btnAdd, HasPermission("Customers","Add")
    EnabledButton Me.btnEdit, HasPermission("Customers","Edit")
    EnabledButton Me.btnDelete, HasPermission("Customers","Delete")
    EnabledButton Me.btnImport, HasPermission("Customers","Import")
    EnabledButton Me.btnExport, HasPermission("Customers","Export")

    '为了实现自动隐藏无权限（Enabled = False）菜单项的效果，InitFormMenuBar函数
    '必须在权限控制处理完成之后调用。（v2.6.4之前的平台，默认生成的代码这个顺序
    '是相反的。）
    InitFormMenuBar Me    

End Sub

修订记录

2021-06-03 v2.6.0 添加
2021-10-29 v2.6.4.539 增加隐藏无权限菜单项功能。