可以在工业单据的工具栏上增加或处理菜单 '下面的SUB是增加菜单的代码 Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long) With m_BillTransfer.BillForm.tlbTool.Buttons .Add .Count, "mnuTest", "测试", , 24 End With m_BillTransfer.BillForm.tlbTool.Buttons("PRINT").Enabled = False m_BillTransfer.BillForm.tlbTool.Buttons("PRINTVIEW").Visible = False End Sub '下面的SUB是响应点击事件的代码 Private Sub m_BillTransfer_RetEvents(ByVal Para As KFO.IDictionary) If Para("EventID") = "Bill_ButtonClick" And Para("EventIDProp") = 1 Then If Para("Para")("Button").Key = "mnuTest" Then MsgBox "Hello,World!" End If End If End Sub ---同时也找到点其他有用的东西。 之前在论坛上看到有人提问工具栏各按钮的内部名称，通过以下语句可控制工具栏的显示状态。 '使打印按钮不可用 m_BillTransfer.BillForm.tlbTool.Buttons("PRINT").Enabled = False '使打印预览按钮不可见 m_BillTransfer.BillForm.tlbTool.Buttons("PRINTVIEW").Visible = False 以下为销售订单工具栏的内部名称 新增,NEW 复制,COPY 保存,SAVE 恢复,BillUndo 清空,UNDO 打印,PRINT 预览,PRINTVIEW 下达,CONVEY 审核,CHECK 钩稽,Hook 批录,FullStockID 红字,RedBill 蓝字,BlueBill 删除,DelEntry 添加,AddEntry 首张,MOVEFIRST 前张,MOVEPRIVOUS 后张,MOVENEXT 末张,MOVELAST 刷新,REFRESH 查看,LOOKUP 正排,ArrangeUp SN号,mnuSNMgr 等级品,manuGradeItem 证照,manuCardWarn 倒排,ArrangeDown 替代,RepOper 分解,Schedule 退出,EXIT