05.ActiveX组件幻灯片.pptVIP

Advanced VB Programming/Chapter 5/Slide # of 23 第五章 ActiveX 组件技术 回顾 组件对象模型（COM） 创建 ActiveX 控件类 ActiveX 控件封装属性、方法和事件 组件注册和使用 ActiveX DLL的优点 可在应用程序之间方便地共享代码； 由于此组件位于进程内，因此可提供极佳的性能； 为模块化程序设计提供了强有力的支持； ActiveX DLL的缺点 增加了部署应用程序的复杂性； 组件和之间的依赖性导致产品的维护成本增加； 创建ActiveX DLL的方法和事件 Private var As String Public Event AfterGreet Public Sub Greet() MsgBox 你好 var ! RaiseEvent AfterGreet End Sub 创建ActiveX DLL的属性 Public Property Let Myname(name As String) var = UCase(name) End Property Public Property Get Message() Message = 这是一个 DLL End Property 调用ActiveX DLL的属性和方法 Dim C As New A.B B.MyName = “YYY” Call B.Greet Debug.Print B.Message Private PublicNotCreatable MultiUse SingleUse GlobalMultiUse GlobalSingleUse 使用Implements实现接口 使用接口的好处 接口和面向对象多态的实现 ’Server组件 Public Function WaitToImp(ByVal lngNumber As Long) End Function ’Client Implements clsInterface Public Function clsInterface_WaitToImp(ByVal lngNumber As Long) 。。。 End Function 进程外组件 可独立执行，但同时提供组件对象服务 使用App对象的StartMode属性 远程服务组件 ’服务器组件 Public Event AsynEvent(ByVal strTXT As String) Public Event CalculateReturn(ByVal lngValue As Long) ? Public Property Let Last(ByVal lngValue As Double) frmEditor.lblInfo.Caption = 计算结果是： CStr(lngValue) RaiseEvent AsynEvent(CStr(lngValue)) End Property ? Public Function FalseCalculate(ByVal lngValue As Long) As Long frmEditor.MousePointer = vbArrowHourglass RaiseEvent CalculateReturn(lngValue) frmEditor.MousePointer = vbDefault End Function ’客户程序 Private Sub cmdCalculate_Click() Call Editor.FalseCalculate(CLng(txtNum.Text)) End Sub Private Sub Editor_CalculateReturn(ByVal lngValue As Long) …’此处为真正的计算 Editor.Last = g_lngValue End Sub Private Sub Editor_AsynEvent(ByVal strTXT As String) Me.lblValue.Caption = strTXT End Sub 使用事件实现异步回调 组件实例化的三种方法 自动实例化 受控实例化 CreateObject 对象绑定 早期绑定 后期绑定 总结 进程内组件是“动态链接库”(DLL) 或“ActiveX 控件”(OCX)，与调用它的客户端运行于相同的地址空间中； 进程外组件是在自己的地址空间中运行的 .EXE文件，ActiveX EXE组件是进程外组件，进程外组件同时具有标准EXE和组件的特征； 设计ActiveX DLL需要规划其类模块的属性