K3插件增加工具栏按钮

Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long)
 
    'TODO: 请在此处添加代码响应事件 LoadBillEnd
   With m_BillTransfer.BillForm.tlbTool.Buttons
  .Add .Count, "mnuEngPrint", "英文打印", , 24
  End With
  ' m_BillTransfer.BillForm.tlbTool.Buttons("PRINT").Enabled = False
  ' m_BillTransfer.BillForm.tlbTool.Buttons("PRINTVIEW").Visible = False

End 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 = "mnuEngPrint" Then
MsgBox "Shell你的打印程序"
End If
End If
End Sub