BOS插件中在附件菜单按钮插入工具栏插件示例方法

Private Sub m_BillInterface_MenuBarInitialize(ByVal oMenuBar As K3ClassEvents.MenuBar)

    Dim oTool   As K3ClassEvents.BOSTool

    Dim oBand   As K3ClassEvents.BOSBand

'*************** 开始设置 BOS 原有菜单 ***************

    '获得 mnuDataAccessory 菜单对象，并设置属性

    Set oBand = oMenuBar.BOSBands("mnuData")

    Set oTool = oBand.BOSTool