2016哪个生肖运气最好:工业单据叙事簿 添加菜单和现实在工具栏上VB插件
来源:百度文库 编辑:中财网 时间:2024/04/29 17:47:27
工业单据叙事簿 添加菜单和现实在工具栏上VB插件/*
t_bandtoolmapping解释:
FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup
FID 是放到那种类型下面 FID=82 表示外购入库
FID是这里的FmenuID :select FID,FmenuID,* from iclisttemplate where Fname LIKE '%外购入库%'
FBandID 是菜单的位置,1表示放到1级栏目下,2表示放在文件下面,3表示放在编辑下面,4表示放在查看下面,5表示放在格式下面,53表示放在工具栏上
*/
--增加一个按钮菜单,
insert into t_MenuToolBar ( FToolID,FName,FCaption,FCaption_CHT,FCaption_EN,FImageName,FToolTip,FToolTip_CHT,FToolTip_EN,FControlType,FVisible,FEnable,FChecked,FShortCut,FCBList,FCBList_CHT,FCBList_EN,FCBStyle,FCBWidth,FIndex,FToolCaption,FToolCaption_CHT,FToolCaption_EN)
values (10002,'FMenuPC1','序事簿菜单','序事簿菜单','序事簿菜单','39','序事簿菜单','序事簿菜单','序事簿菜单',0,0,1,0,0,'','','',0,0,0,'序事簿菜单','序事簿菜单','序事簿菜单')
--执行下面的代码才能在菜单上看到我们需要的效果,要不然,菜单是隐藏状态的(如果里面有"|V",则只能在后面加菜单项),可支持多个自定义菜单
Update IclistTemplate
set FLogicStr=FLogicStr+ Case When Right(FLogicStr,1)='|' then 'V:FMenuPC1' else '|V:FMenuPC1' end
where FID =1 and not FLogicStr like '%FMenuPC1%'
--加到菜单头上,可以不用的
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,1,10002,6,6,'|ICMOListBill.ListBill',0)
--加到文件菜单下面
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,2,10002,0,17,'|ICMOListBill.ListBill',0)
--加到编辑菜单下面
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,3,10002,0,18,'|ICMOListBill.ListBill',0)
--加到查看菜单下面
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,4,10002,0,70,'|ICMOListBill.ListBill',0)
--加到格式下面
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,5,10002,0,74,'|ICMOListBill.ListBill',0)
--加到工具栏上
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,53,10002,0,189,'|ICMOListBill.ListBill',0)
--好像没什么实际意思
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,56,10002,0,5,'|ICMOListBill.ListBill',0)
在ICMOListBill.ListBill里面主要实现一个MainFunction 方法
实例代码:
Public Sub MainFunction(ByVal sKey As String, oList As Object, ByRef bCancel As Boolean)
Dim vectors As KFO.Vector
If sKey = "FMenuPC1" Then
Set vectors = oList.getselected
MsgBox vectors.Item(1).finterid
MsgBox oList.ListSelectBillinfo(1)("FInterID")
end if
End Sub
只要在VB里面编辑成DLL,然后用我上面的代码注册下插件,然后我们进K3,就会在我们的工具栏上和菜单栏
t_bandtoolmapping解释:
FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup
FID 是放到那种类型下面 FID=82 表示外购入库
FID是这里的FmenuID :select FID,FmenuID,* from iclisttemplate where Fname LIKE '%外购入库%'
FBandID 是菜单的位置,1表示放到1级栏目下,2表示放在文件下面,3表示放在编辑下面,4表示放在查看下面,5表示放在格式下面,53表示放在工具栏上
*/
--增加一个按钮菜单,
insert into t_MenuToolBar ( FToolID,FName,FCaption,FCaption_CHT,FCaption_EN,FImageName,FToolTip,FToolTip_CHT,FToolTip_EN,FControlType,FVisible,FEnable,FChecked,FShortCut,FCBList,FCBList_CHT,FCBList_EN,FCBStyle,FCBWidth,FIndex,FToolCaption,FToolCaption_CHT,FToolCaption_EN)
values (10002,'FMenuPC1','序事簿菜单','序事簿菜单','序事簿菜单','39','序事簿菜单','序事簿菜单','序事簿菜单',0,0,1,0,0,'','','',0,0,0,'序事簿菜单','序事簿菜单','序事簿菜单')
--执行下面的代码才能在菜单上看到我们需要的效果,要不然,菜单是隐藏状态的(如果里面有"|V",则只能在后面加菜单项),可支持多个自定义菜单
Update IclistTemplate
set FLogicStr=FLogicStr+ Case When Right(FLogicStr,1)='|' then 'V:FMenuPC1' else '|V:FMenuPC1' end
where FID =1 and not FLogicStr like '%FMenuPC1%'
--加到菜单头上,可以不用的
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,1,10002,6,6,'|ICMOListBill.ListBill',0)
--加到文件菜单下面
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,2,10002,0,17,'|ICMOListBill.ListBill',0)
--加到编辑菜单下面
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,3,10002,0,18,'|ICMOListBill.ListBill',0)
--加到查看菜单下面
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,4,10002,0,70,'|ICMOListBill.ListBill',0)
--加到格式下面
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,5,10002,0,74,'|ICMOListBill.ListBill',0)
--加到工具栏上
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,53,10002,0,189,'|ICMOListBill.ListBill',0)
--好像没什么实际意思
insert into t_BandToolMapping(FID,FBandID,FToolID,FSubBandID,FIndex,FComName,FBeginGroup)
values(82,56,10002,0,5,'|ICMOListBill.ListBill',0)
在ICMOListBill.ListBill里面主要实现一个MainFunction 方法
实例代码:
Public Sub MainFunction(ByVal sKey As String, oList As Object, ByRef bCancel As Boolean)
Dim vectors As KFO.Vector
If sKey = "FMenuPC1" Then
Set vectors = oList.getselected
MsgBox vectors.Item(1).finterid
MsgBox oList.ListSelectBillinfo(1)("FInterID")
end if
End Sub
只要在VB里面编辑成DLL,然后用我上面的代码注册下插件,然后我们进K3,就会在我们的工具栏上和菜单栏
如何和在IE工具栏上添加网址的快捷方式???
如果在窗口菜单的工具栏中添加QQ?
怎样在右键菜单上添加输入法
怎样在右键菜单上添加输入法
怎样在右键菜单上添加输入法
怎么在ie工具栏上添加应用程序的图标啊~?
如何在WORD菜单边框上添加符号栏?
dreamweaer8无法在文本按钮上添加弹出式菜单
怎么在工具栏添加 输入法
在Word 2000中,在工具栏上,发现没有“常用”工具栏,要把它找出来,正确的菜单命令是选择( )菜单。
有什么办法用代码实现将浏览器上的菜单和工具栏隐藏?
IE打开没菜单和工具栏乍回事?
在新建菜单了添加~~~~
怎样在IE浏览器工具栏上添加QQ登陆器图标?
如何在IE工具栏添加QQ快捷方式?
怎么在自定义工具栏中添加快捷键
如何在工具栏中添加主页?
关于在窗口工具栏添加图标...
在傲游里怎么添加google工具栏?
如何在工具栏添加语言栏选项
在浏览器工具栏添加QQ按钮?
智能电动车在工业和民用上的发展情况
镜头内部蒙太奇与分割是蒙太奇在叙事特点和剪辑风格上有什么不同?
国际贸易做单据时,单据上的数额和实际数额必须一样吗?