电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

使用K3BOS自定义控件示例实现助手视图

使用K3BOS自定义控件示例实现助手视图_第1页
1/8
使用K3BOS自定义控件示例实现助手视图_第2页
2/8
使用K3BOS自定义控件示例实现助手视图_第3页
3/8
使用K3BOS(v12+)实现助手视图 [仅供内部开发研究交流] K3BOS 从 V12 起提供了自定义控件支持. 下面我们开发一个控件, 加入 BOS 单据中, 实现的"助手视图"的功能. 第一步, 我们先开发出一个控件. 1. 启动 VB, 利用BOS 插件向导, 创建一个插件, 命名为 K3TestDll.CBillPlugin. 2. 添加一个"控件"工程, 命名为 K3TestCtrl.CtlHelper 3. 调整控件外观. 我们将把这个控件添加到单据上, 所以你想要在单据上展示什么, 就可以在控件上添加什么. 我添加了一个文本框 txtInfo, 准备用于展示物料信息; 添加一张图片, 用于展示物料图片; 此外还添加了一些按钮, 用于调用其他附加的功能. 修改控件的 UserControl_Resize() 方法, 以免大小改变时, 控件界面发生混乱. 4. 为了在控件中响应插件事件, 获取单据信息, 我们需要在控件中添加插件支持: 4.1 引用 k3classevents.dll, kfo10.dll, ms ado 2.8 库 4.2 添加插件接口对象: Private WithEvents m_BillInterface As K3ClassEvents.BillEvent 4.3 添加一个公开接口, 以便初始化插件接口对象: Public Function Init(ByVal obj As Object) On Error Resume Next Set m_BillInterface = obj Debug.Assert Err.Number = 0 End Function 4.4 插件本身的初始化: Private WithEvents m_BillInterface As K3ClassEvents.BillEvent Public Sub Show(ByVal obj As Object) If UCase$(TypeName(obj)) = "BILLEVENT" Then Set m_BillInterface = obj Else MsgBox "Interface not supported!" End If End Sub 这样, 当单据加载时, 会初始化插件; 而插件又将单据接口对象委托给控件,我们可以在控件中处理单据的种种事件,获取单据信息。 4.5 当单据加载自定义控件时, 在插件事件中初始化控件: '加载自定义控件时, 触发 AfterLoadDynamicCtl 事件 Private Sub m_BillInterface_AfterLoadDynamicCtl( _ ByVal sKey As String, ByVal objDynamicCtl As Object) 'sKey 是单据上自定义控件的 FKey 'objDynamicCtl 指向控件实例 If sKey = "FUserDefineCtl" Then Call objDynamicCtl.Init(m_BillInterface) '调用控件初始化方法, 将插件接口对象传递过去 End If End Sub 4.6 最后, 我们在控件中处理单据事件, 实现自己的功能. 例如, 当用户在单据体各行之间切换...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

使用K3BOS自定义控件示例实现助手视图

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部