新增文章

文章标题分类内容

Private Sub m_BillInterface_AfterLoadBill()

Dim oBand As K3ClassEvents.BOSBand: Set oBand = m_BillInterface.MenuBar.BOSBands("BandToolBar")   '【 BandToolBar 工具栏 】
    Dim oTool As K3ClassEvents.BOSTool
    
    If m_BillInterface.BillStatus = Enu_BillStatusExt_View Then  '【Enu_BillStatusExt_View  查看】【 Enu_BillStatusExt_New 新增 】【 Enu_BillStatusExt_Modify 修改 】
    
        oBand.BOSTools("mnuFileSave").Visible = False           '【 保存 mnuFileSave 】
        oBand.BOSTools("mnuRecover").Visible = False            '【 恢复 mnuRecover 】
        oBand.BOSTools("mnuEditResetOrder").Visible = False     '【 单序 mnuEditResetOrder 】
    End If
End Sub

Private Sub m_BillInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean)

aToolName = BOSTool.ToolName
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub m_BillInterface_AfterLoadBill()

Dim oMenuBar As K3ClassEvents.MenuBar: Set oMenuBar = m_BillInterface.MenuBar
    Dim oBand As K3ClassEvents.BOSBand
    Dim oTool As K3ClassEvents.BOSTool
    
    If m_BillInterface.BillStatus = Enu_BillStatusExt_View Then  '【Enu_BillStatusExt_View  查看】
    
        Set oBand = oMenuBar.BOSBands("BandToolBar"): Set oTool = oBand.BOSTools("mnuFileSave")  '【 BandToolBar 工具栏 】【 mnuFileSave 保存 】
        With oTool
            .Visible = False    '隐藏  .Enabled = False  锁定
        End With
    End If
    
End Sub