VB基于接口的编程初步 - VB6论坛

ioriliao

来　自：广东
等　级：贵宾
威　望：32
帖　子：2829
专家分：647
注　册：2006-11-30
结帖率：78.95%

楼主

问题点数：0 回复次数：15

VB基于接口的编程初步

源码:

object.rar (31.41 KB)

运行效果:

图片附件: 游客没有浏览图片的权限，请登录或注册

程序代码：

'作者:ioriliao
'2008.10.19
'CarInterface.dll
'接口的完全限定名称:car_interface.CarInterface
'定义两个接口
'接口是没有任何实现的
'是由别的类继承而实现
Public Sub CarRun()
    
End Sub

Public Sub CarStop()

End Sub

程序代码：

Implements CarInterface   '继承接口

'实现接口:
Private Sub CarInterface_CarRun()
    MsgBox "Benz Car Run"
End Sub

Private Sub CarInterface_CarStop()
    MsgBox "Benz Car Stop"
End Sub

程序代码：

Implements car_interface.CarInterface '继承接口

'实现接口:

Private Sub CarInterface_CarRun()
     MsgBox "FordCar Run"
End Sub

Private Sub CarInterface_CarStop()
    MsgBox "FordCar Stop"
End Sub

程序代码：


'创建并返回一个对 ActiveX 对象的引用。
'
'语法
'
'CreateObject(class,[servername])
'
' CreateObject 函数的语法有如下部分:
'
'部分 描述
'class 必需的； Variant (String). 要创建的应用程序名称和类。
'servername 可选的； Variant (String). 要在其上创建对象的网络服务器名称。
'
'
'class 参数使用 appname.objecttype 这种语法，包括以下部分：
'
'部分 描述
'appname 必需的；Variant（字符串）。提供该对象的应用程序名。
'objecttype 必需的；Variant（字符串）。待创建对象的类型或类。

Private Sub Command1_Click()
    Dim inf As CarInterface             '声明一个接口
    Set inf = CreateObject(Text1.Text)  '后期绑定(指定为何种类型的操作)
    inf.CarRun
    inf.CarStop
End Sub