金蝶vb插件开发工具栏按钮对于英文名

可以在工业单据的工具栏上增加或处理菜单
'下面的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