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

使用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 最后, 我们在控件中处理单据事件, 实现自己的功能. 例如, 当用户在单据体各行之间切换...