Transparancy 5课件.pptVIP

第五章;回顾;目标;组件和组件设计;ActiveX DLL组件 2 - 1;ActiveX DLL组件 2 - 2;创建ActiveX DLL组件 4 - 1;创建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 C.MyName = “YYY” Call C.Greet Debug.Print C.Message;调试ActiveX DLL;客户程序与组件服务的例子;组件对象的Instancing属性;MultiUse和SingleUse;组件兼容性设置 4 - 1;? ;’Server组件 Public Function WaitToImp(ByVal lngNumber As Long) End Function ’Client Implements clsInterface Public Function clsInterface_WaitToImp(ByVal lngNumber As Long) 。。。 End Function ;异步机制和使用接口实现异步;注册和引用ActiveX DLL组件;ActiveX EXE组件及特点;封装ActiveX EXE组件 4 - 1;;’客户程序 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 对象绑定 早期绑定 后期绑定 ;总结