新增文章

文章标题分类内容

Private Sub m_ListInterface_MenuBarInitialize(ByVal oMenuBar As K3ClassEvents.MenuBar)  '添加菜单

Dim oTool As K3ClassEvents.BOSTool
    
  '---------------------------------------------------------------------------------------------------------------------------
    Set oTool = oMenuBar.BOSTools.Add("mnuMultiToOne")  ‘修改了标题，菜单会生效，工具栏没有变化
    With oTool
        .Caption = "生成凭证"
        .Description = "生成凭证"
    End With
    
  '---------------------------------------------------------------------------------------------------------------------------
    
    Dim oBand As K3ClassEvents.BOSBand: Set oBand = oMenuBar.BOSBands("BandToolBar")  '【工具栏】隐藏后，菜单里的按钮也会隐藏
    
    oBand.BOSTools("mnuFilePrint").Visible = False    '【 打印 】
    oBand.BOSTools("mnuFilePreview").Visible = False  '【 预览 】
    
    oBand.BOSTools("mnuEditStartMultiCheck").Visible = False  '【 启动审核 】
    oBand.BOSTools("mnuEditCheckRoad").Visible = False        '【 查看审核 】
    oBand.BOSTools("mnuVoucherOptions").Visible = False  '【 凭证选项 】
    
    oBand.BOSTools("mnuViewUnionQuery").Visible = False  '【 关联信息 】
    oBand.BOSTools("mnuDataAccessory").Visible = False   '【 附件 】
    oBand.BOSTools("mnuCaculate").Visible = False        '【 计算器 】
    
  '---------------------------------------------------------------------------------------------------------------------------
    oMenuBar.BOSBands("mnuEdit").BOSTools("mnuEditUnPassMultiCheck").Visible = False '【 审核不通过 】
    
  '---------------------------------------------------------------------------------------------------------------------------
    oMenuBar.BOSBands("mnuFile").BOSTools("mnuFilePrint").Visible = True   '【 打印 】显示后，工具栏里的按钮也会显示
    oMenuBar.BOSBands("mnuFile").BOSTools("mnuFilePreview").Visible = True '【 预览 】
    
    oMenuBar.BOSBands("mnuEdit").BOSTools("mnuEditStartMultiCheck").Visible = True '【 启动审核 】
    oMenuBar.BOSBands("mnuEdit").BOSTools("mnuEditCheckRoad").Visible = True       '【 查看审核 】
    oMenuBar.BOSBands("mnuEdit").BOSTools("mnuVoucherOptions").Visible = True       '【 凭证选项 】
    
    oMenuBar.BOSBands("mnuView").BOSTools("mnuViewUnionQuery").Visible = True      '【 关联信息 】
    oMenuBar.BOSBands("mnuView").BOSTools("mnuDataAccessory").Visible = True       '【 附件 】
    oMenuBar.BOSBands("mnuView").BOSTools("mnuCaculate").Visible = True            '【 计算器 】
    
'mnuFile 文件
'mnuEdit 编辑
'mnuView 查看
'mnuSelectBill 选单

'----------------------------------------------------------------------------------
    Set oBand = Nothing
    Set oTool = Nothing

End Sub