VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 创建接口来操作不同的对象
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:13770, 日期:2003-08-29
    继承的好处之一就是从一个相同的父对象继承下来的两个不同的对象可以用相同的方法处理。从“人”这个类继承的“雇员”对象和“顾问”对象,都可以当作——人。


在 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 接口的对象。同时它不会影响性能,因为这种引用的绑定很轻松。