发信人: glassprogrammer()
整理人: gzwsh(2001-10-26 23:05:25), 站内信件
|
【 在 yyc163 的大作中提到：】
:【 在 gimmy 的大作中提到：】
::最近看一关于COM+的例程，发现有在vb6中有implement interface的用法，
::然而翻查MSDN却不得要领。谁在程序中用过，给简单介绍一下？
::......
: 是不是指的是vb.net呀
:
:......
VB6 就有，原理是：
1）定义一个接口,如 ISample
定义一些属性或方法, 如 WhoAmI() As String ，但不用实现(里面是空的)。 .
2) 这个接口其实可以看作一个通用的类
你可以对这个接口做一些公用操作，这个操作适用于所有Implements了这个接口的类，如
Sub MsgboxWhoIsTheObj ( byref obj As ISample )
...
MsgBox "我是 " & obj.WhoAmI()
...
End Sub
3) 定义一个类,如 cGlassProgrammer
在开头加上一句 Implements ISample ,
再完善里面所有的属性和方法(否则编译会报错)，如
Public Function WhoAmI() As String
WhoAmI = "GlassProgrammer"
End Function
4) 可以这样调用
Private Sub Command1_Click()
Dim oGlassProg as New cGlassProgrammer
...
MsgboxWhoIsTheObj oGlassProg
...
End Sub
有什么优点呢？你可以定义一组类，这些类也许各不相同，但可以采用共同的方式调用。 |
|