一、接口的实现
1、创建一ActiveX Dll Project,命名为ICom
2、添加一类(接口),命名为IDog,设置一下属性和方法:
Public Property Get Name() As String
End Property
Public Property Let Name(ByVal vNewValue As String)
End Property
Public Sub Bark()
End Sub
Public Sub RollOver(ByRef Rolls As Integer)
End Sub
3、添加另一个类(接口的实现),命名为CBeagle,对IDog的实现如下:
Implements IDog
Private mName As String
Private Sub IDog_Bark()
End Sub
Private Property Let IDog_Name(ByVal RHS As String)
mName = RHS
End PropertyPrivate Property Get IDog_Name() As String
IDog_Name = mName
End PropertyPrivate Sub IDog_RollOver(Rolls As Integer)
Rolls = Rolls + 12
End Sub
二、通过接口IDog对CBeagle的引用
1、新建一标准工程,对ICom进行引用
2、添加一Form1,画上一按钮Command1,实现代码如下:
Private Sub Command1_Click()
Dim i As Integer
i = 12
'方法一
'Dim mDog As ICom.IDog
'Set mDog = CreateObject("ICom.CBeagle")'方法二
Dim mDog As IDog
Set mDog = New CBeaglemDog.RollOver i
MsgBox i
End Sub