在 VB6 中,通过使用接口可以得到这方面的很多好处。接口可以容许你利用相同的方法操作不同的对象。通过使用对象变量类型也可以完成这样的工作,但是应用接口可以提高性能,因为可以更容易的绑定。
为了创建接口,首先创建一个名为 Iperson 的类(带有前缀 I 接口的命名标准),然后,加入两个公共属性 FirstName 和 LastName。这两个属性没有任何代码,仅仅是定义接口。
Public Property Get FirstName() As String
End Property
Public Property Get LastName() As String
End Property
现在建立一个名为 Employee 的类。在声明部分,加入如下代码:
Implements IPerson
关键字Implements 告诉编译器这个类支持Iperson 的接口并作为其默认接口。通过加入下面的代码,就可以运行这个接口。
Private Property Get IPerson_FirstName() As String
IPerson_FirstName = "John"
End Property
Private Property Get IPerson_LastName() As String
IPerson_LastName = "Smith"
End Property
Public Property Get Salary() As Currency
Salary = "35000"
End Property
可以通过创建 Iperson 类型的变量来操作接口。为了操作默认接口,建立一个 Employee 类型的变量。
Dim objEmployee As Employee
Dim objPerson As IPerson
Set objEmployee = New Employee
Set objPerson = objEmployee
MsgBox objPerson.FirstName & " " &
objPerson.LastName & _
" "
& objEmployee.Salary
可以用一模一样的方法,操作任何一个执行 Iperson 接口的对象。同时它不会影响性能,因为这种引用的绑定很轻松。