VB6下接口的实现

一、接口的实现

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 Property

Private Property Get IDog_Name() As String
   IDog_Name = mName
End Property

Private 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 CBeagle

  mDog.RollOver i
  MsgBox i

 
End Sub