vb6不支持多重接口继承

VB 前端之家
前端之家收集整理的这篇文章主要介绍了vb6不支持多重接口继承，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
VB6 如何实现多重接口继承 [问题点数：20分，结帖人xxyj6450]
收藏
楼主 发表于： 2009-09-20 11:11:05
直接来代码
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'类C1
publicsubC()
end Sub
'类C2
Implements C1
publicsubC1_C()
end Sub
'C3
Implements C2
'C3要如何实现C2和C1中的接口？
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
回复次数：66
@H_404_269@
#1 得分：0 回复于： 2009-09-20 12:00:36
Visual Basic code
?
1
2
3
'ClassC3
Implements C1
Implements C2
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#2 得分：0 回复于： 2009-09-20 12:06:07
楼上的好像不行哦
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#3 得分：0 回复于： 2009-09-20 12:08:35
在javaEE中重载
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#4 得分：5 回复于： 2009-09-20 12:24:55
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
'---------------------------------------------------------------------------------------
'Module:Class1
'Author:Anna
'Date:2009-9-20
'Purpose:Abstractclass
'---------------------------------------------------------------------------------------
Option Explicit
Public Sub M1()
End Sub


Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'---------------------------------------------------------------------------------------
'Module:Class2
'Author:Anna
'Date:2009-9-20
'Purpose:ImplementsClass1
'---------------------------------------------------------------------------------------
Option Explicit
Implements Class1
Private Sub Class1_M1()
Debug.Print "Class2'simplementationofClass1'sM1"
End Sub
Public Sub M2()
End Sub


Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'---------------------------------------------------------------------------------------
'Module:Class3
'Author:Anna
'Date:2009-9-20
'Purpose:ImplementsClass1andClass2
'---------------------------------------------------------------------------------------
Option Explicit
Implements Class1
Implements Class2
Private Sub Class1_M1()
Debug.Print "Class3'simplementationofClass1'sM1"
End Sub
Private Sub Class2_M2()
Debug.Print "Class3'simplementationofClass2'sM2"
End Sub


Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
@H_502_1004@ 20
21
22
23
24
25
26
'---------------------------------------------------------------------------------------
'Module:Module1
'Author:Anna
'Date:2009-9-20
'Purpose:TestMulti-Inheritance
'---------------------------------------------------------------------------------------
Option Explicit
Sub Test_MultiInherit()
Dim aa As Class1
Dim bb As Class2
Dim cc As Class3
Set cc= New Class3
Set bb=cc
Call bb.M2
Set bb= Nothing
@H_502_1004@
Set aa=cc
Call aa.M1
Set aa= Nothing
Set cc= Nothing
End Sub
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#5 得分：0 回复于： 2009-09-20 12:33:28
如果你的意思是想在Class3里继承Class2里的Class1_M1()的话，据我所知，好像是不被VB支持的。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#6 得分：0 回复于： 2009-09-20 12:48:37
我感觉VB里并不支持爷孙继承，它不会了解这种隔一代的血缘关系。你看下面的例子（Class1和Class2的定义同4楼）：
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
'---------------------------------------------------------------------------------------
'Module:Class3
'Author:Anna
'Date:2009-9-20
'Purpose:ImplementsClass2only
'---------------------------------------------------------------------------------------
Option Explicit
Implements Class2
Private Sub Class2_M2()
Debug.Print "Class3'simplementationofClass2'sM2"
End Sub


Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
@H_502_1004@ 20
21
22
23
24
25
26
27
'---------------------------------------------------------------------------------------
'Module:Module1
'Author:Anna
'Date:2009-9-20
'Purpose:DoesVBknowanythingaboutGrandpa?
'---------------------------------------------------------------------------------------
Option Explicit
Sub Test_MultiInherit()
Dim aa As Class1
Dim bb As Class2
Dim cc As Class3
Set cc= New Class3
Set bb=cc
Call bb.M2
@H_502_1004@ 'Setbb=NewClass2
Set aa=bb 'TypeMisMatch,除非把上一句取消注释'
Call aa.M1
Set aa= Nothing
Set bb= Nothing
Set cc= Nothing
End Sub


上面这段代码说明，Class3能够了解自己继承自Class2，但是并不会进一步去了解Class2继承自Class1。所以你可以Setbb=cc，但是不能进一步Setaa=bb，更不能Setaa=cc。VB只能记录父类子类这样单层的继承关系。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#7 得分：0 回复于： 2009-09-20 12:54:09
引用5楼slowgrace的回复:
如果你的意思是想在Class3里继承Class2里的Class1_M1()的话，据我所知，好像是不被VB支持的。

class2里的class1_m1是class1里m1接口的实现，class3如果要继承class2里的class1_m1的话直接去实现class1里的m1接口好了。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#8 得分：0 回复于： 2009-09-20 12:57:44
学习
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#9 得分：0 回复于： 2009-09-20 13:14:43
引用7楼citybird的回复:
class2里的class1_m1是class1里m1接口的实现，class3如果要继承class2里的class1_m1的话直接去实现class1里的m1接口好了。


但是Class3就不能继承Class2里的实现了。

打个比方说，Class1是动物类，有个方法叫做吃（M1）；Class2是哺乳动物类，Class2继承吃的方法（Class1_M1），加入自己的实现“弄死了再吃”；Class3是人，它要继承吃的方法，比较省力的办法是继承Class2的“弄死了再吃”的步骤，自己再加一个语句叫“烧熟了再吃”就可以了。

可是，在VB中并 不支持这样的爷孙继承。

Class3如果直接继承Class2的话，它就不能继承Class2吃的方法。因为在Class2里，它继承的Class1的吃的方法是私有的（PrivateSubClass1_M1）。所以，它只能直接继承Class1的M1方法，并且只好重复写上“弄死再吃”、然后加上“烧熟再吃”。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#10 得分：0 回复于： 2009-09-20 13:21:16
当然你可以试着把Class2里的PrivateSubClass1_M1改成PublicSubClass1_M1。之后在Class3里再实现Class2的方法Class1_M1，但是你会发现VB编译器会无法理解你的实现，因为你的实现现在叫Class2_Class1_M1，这个有二义性的名字会把VB编译器绕晕。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#11 得分：0 回复于： 2009-09-20 13:24:25
C2中实现的C1中的方法不能被公开，不支持多重继承关系，鄙视一下VB
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#12 得分：0 回复于： 2009-09-20 13:40:31
6.0无法实现
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
@L_502_171@ 得分：3 回复于： 2009-09-20 13:41:08
引用9楼slowgrace的回复:
但是Class3就不能继承Class2里的实现了。

打个比方说，Class1是动物类，有个方法叫做吃（M1）；Class2是哺乳动物类，Class2继承吃的方法（Class1_M1），加入自己的实现“弄死了再吃”；Class3是人，它要继承吃的方法，比较省力的办法是继承Class2的“弄死了再吃”的步骤，自己再加一个语句叫“烧熟了再吃”就可以了。

可是，在VB中并不支持这样的爷孙继承。

Class3如果直接继承Class2的话，它就不能继承Class2吃的方法。因为在Class2里，它继承的Class1的吃的方法是私有的（PrivateSubClass1_M1）。所以，它只能直接继承Class1的M1方法，并且只好重复写上“弄死再吃”、然后加上“烧熟再吃”。

这个问题虽然了解一些但是从来没在实际的项目中应用过，所以研究得不是很深，不知道能不能在Class2里面再加一个吃的方法(M1),Class3继承Class2的吃的方法（Class2_M1）,并实现“烧熟了再吃”，这样Class3在Class2“弄死了再吃”的基础上再实现“烧熟了再吃”
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#14 得分：0 回复于： 2009-09-20 14:08:42
引用13楼citybird的回复:
这个问题虽然了解一些但是从来没在实际的项目中应用过，所以研究得不是很深，不知道能不能在Class2里面再加一个吃的方法(M1),并实现“烧熟了再吃”，这样Class3在Class2“弄死了再吃”的基础上再实现“烧熟了再吃”


这样做虽然可以，但是假如Class1的吃的方法有一个步骤“抓住一个动物再吃”，用你的方法就无法继承了。

就是说，如果我希望既继承Class1的“抓住一个动物再吃”，也希望继承Class2的“弄死了再吃”，并且希望加上自己的“烧熟了再吃”，VB6是不支持的。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#15 得分：0 回复于： 2009-09-20 21:48:36
书上说了，不支持。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#16 得分：5 回复于： 2009-09-26 09:31:24
Implements与聚合配合是可以实现继承功能的.

class1代码:
Visual Basic code
?
1
2
3
4
5
Option Explicit
Public Sub M1()
Debug.Print "吃"
End Sub

class2代码:
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Implements Class1
Private mobjClass1 As New Class1
Public Sub M1()
Call mobjClass1.M1
Debug.Print "弄死再吃"
End Sub
Private Sub Class1_M1()
Call M1
End Sub

class3代码:
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Implements Class1
Private mobjClass2 As New Class2
Public Sub M1()
Call mobjClass2.M1
Debug.Print "烧熟再吃"
End Sub
Private Sub Class1_M1()
Call M1
End Sub

窗口代码:
Visual Basic code
?
1
2
3
4
5
6
Option Explicit
Private Sub Form_Load()
Dim cls As New Class3
Call cls.M1
End Sub
对我有用[1] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#17 得分：5 回复于： 2009-09-26 09:49:34
又完善了一下:

Class1代码:
Visual Basic code
?
1
2
3
4
5
Option Explicit
Public Sub M1()
Debug.Print "吃"
End Sub

Class2代码:
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Implements Class1 'Class2实现了Class1的默认接口
Private mobjClass1 As New Class1 'Class2聚合了Class1的一个实例
'调用基类方法,同时添加自己的内容
Public Sub M1()
Call mobjClass1.M1
Debug.Print "弄死再吃"
End Sub
'实现基类接口
Private Sub Class1_M1()
Call M1
End Sub

Class3代码:
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
@H_502_1004@ 20
Option Explicit
Implements Class1 'Class3实现了Class1的默认接口
Implements Class2 'Class3实现了Class2的默认接口
Private mobjClass2 As New Class2 'Class3聚合了Class2的一个实例
'调用基类方法,同时添加自己的内容
Public Sub M1()
Call mobjClass2.M1
Debug.Print "烧熟再吃"
End Sub
'实现基类接口
Private Sub Class1_M1()
Call M1
End Sub
'实现基类接口
Private Sub Class2_M1()
Call M1
@H_502_1004@ End Sub

Form1代码:
Visual Basic code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
@H_502_1004@ 20
21
22
23
24
25
26
27
28
29
30
Option Explicit
Private Sub Form_Load()
Debug.PrintvbCrLf& "p3->Class3"
Dim p3 As Class3 'Class3的默认接口
Set p3= New Class3 'Class3对象
Call p3.M1
Debug.PrintvbCrLf& "p2->Class3"
Dim p2 As Class2 'Class2接口
Set p2= New Class3 'Class3对象
Call p2.M1
Debug.PrintvbCrLf& "p1->Class3"
Dim p1 As Class1 'Class1接口
Set p1= New Class3 'Class3对象
Call p1.M1
Debug.PrintvbCrLf& "p2->Class2"
@H_502_1004@ Set p2= New Class2 'Class2对象
Call p2.M1
Debug.PrintvbCrLf& "p1->Class2"
Set p1= New Class2 'Class1对象
Call p1.M1
Debug.PrintvbCrLf& "p1->Class1"
Set p1= New Class1 'Class1对象
Call p1.M1
End Sub

对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#18 得分：0 回复于： 2009-09-26 10:53:34
做QI接口hook...自己弄....
多重接口继承好像是不支持.
对我有用[1] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#19 得分：0 回复于： 2009-09-26 13:15:41
引用16楼sonic_andy的回复:
Implements与聚合配合是可以实现继承功能的.

class1代码:
VBcodeOptionExplicitPublicSubM1()
Debug.Print"吃"EndSub
class2代码:
VBcodeOptionExplicit
ImplementsClass1PrivatemobjClass1AsNewClass1PublicSubM1()CallmobjClass1.M1
Debug.Print"弄死再吃"EndSubPrivateSubClass1_M1()CallM1EndSub
class3代码:
VBcodeOptionExplicit
ImplementsClass1PrivatemobjClass2AsNewClass2PublicSubM1()CallmobjClass2.M1
Debug.Print"烧熟再吃"EndSubPrivateSubClass1_M1()CallM1EndSub
窗口代码:
VBcodeOptionExplicitPrivateSubForm_Load()DimclsAsNewClass3Callcls.M1EndSub



这方法不错,支持!
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#20 得分：0 回复于： 2009-09-26 13:27:01
聚合？aggregate
@L_403_257@ 丢个板砖[0] 引用 | @L_404_260@|
编辑 删除
管理
#21 得分：0 回复于： 2009-09-26 14:11:48
引用20楼slowgrace的回复:
聚合？aggregate

其实是在用聚合模拟继承。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#22 得分：0 回复于： 2009-09-27 21:34:07
引用21楼wangmu7206的回复:
引用20楼slowgrace的回复:
聚合？aggregate

其实是在用聚合模拟继承。

是的,虽然稍微麻烦一些,但还是可以实现继承的特性的.
原理是一样的,只是一个是编译器(或者运行环境)来实现的,一个是通过代码来实现的..
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#23 得分：2 回复于： 2009-09-27 21:57:41
Implements语句
指定要在包含该语句的类模块中实现的接口或类。
语法
Implements[InterfaceName|Class]
所需的InterfaceName或Class是类型库中的接口或类的名称，该类型库中的方法将用与VisualBasic类中相一致的方法来实现。
说明
所谓接口就是代表接口封装的成员（方法以及属性）的原型集合；也就是说，它只包含成员过程的声明部分。一个类提供一个或多个接口的所有方法以及属性的一种实现方案。类的控制者每次调用函数时，该函数所执行的代码由类来提供。每个类至少应实现一个缺省接口。在VisualBasic中，一个已实现的接口中任何没有显式声明的成员都是缺省接口的隐式成员。
当VisualBasic类实现接口时，都会提供该接口的类型库中说明的所有Public过程的版本。除了提供接口原型与自编过程之间的映射关系之外，Implements语句还使这个类接收对指定接口ID的COMQueryInterface调用。

注意VisualBasic不能实现派生出来的类或接口。

在实现接口或类时，必须包括所用到的Public过程。如果在实现接口或类时遗漏了成员，就会产生错误。如果正在实现的类中某个过程还没有代码，则可以产生一个适当的错误信息(ConstE_NOTIMPL=&H80004001)，以便用户意识到该成员还没有实现。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#24 得分：0 回复于： 2009-09-27 23:05:43
记下VisualBasic不能实现派生出来的类或接口。

感觉也不是绝对的。
@L_26_301@ 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#25 得分：0 回复于： 2009-09-28 11:03:57
注意VisualBasic不能实现派生出来的类或接口。

Implements只是实现不是派生
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#26 得分：0 回复于： 2009-09-28 11:23:02
其实是在用聚合模拟继承啊。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#27 得分：0 回复于： 2009-09-28 11:27:30
印象中vb6好像不支持啊
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#28 得分：0 回复于： 2009-09-28 11:29:49
太棒了太棒了太棒了太棒了太棒了太棒了太棒了
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#29 得分：0 回复于： 2009-09-28 12:00:37
在Class3里继承Class2里的Class1_M1(
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#30 得分：0 回复于： 2009-09-28 12:30:26
手工收藏
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#31 得分：0 回复于： 2009-09-28 12:31:54
这样啊,不错啊,爽啊,我晕的啊
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#32 得分：0 回复于： 2009-09-28 12:35:39
dddddddddddddddddddddddd
对我有用[0] @L_404_391@ 引用 | 举报 |
编辑 删除
管理
#33 得分：0 回复于： 2009-09-28 12:49:38
该回复于2009-09-28 14:23:05被版主删除
编辑 删除
管理
#34 得分：0 回复于： 2009-09-28 13:07:32
MARK
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#35 得分：0 回复于： 2009-09-28 13:23:04
OptionExplicit
ImplementsClass1'Class3实现了Class1的默认接口
ImplementsClass2'Class3实现了Class2的默认接口
PrivatemobjClass2AsNewClass2'Class3聚合了Class2的一个实例
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#36 得分：0 回复于： 2009-09-28 13:27:22
看着vb就是不如vc舒服呢
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
@H_821_5027@
#37 得分：0 回复于： 2009-09-28 13:41:58
该回复于2009-09-29 09:21:51被版主删除
编辑 删除
管理
#38 得分：0 回复于： 2009-09-28 13:42:29
参考一下
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#39 得分：0 回复于： 2009-09-28 14:15:59
GOOD
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#40 得分：0 回复于： 2009-09-28 15:34:09
sdafsdfsdfdsf
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#41 得分：0 回复于： 2009-09-28 16:13:01
学习
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#42 得分：0 回复于： 2009-09-28 17:04:48
实现和继承是两种模型，实现的耦合度低容易控制，继承自动化程度高。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
@L_591_502@ 得分：0 回复于： 2009-09-28 17:48:35
关注.
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
#44 得分：0 回复于： 2009-09-28 18:01:48
该回复于2009-09-29 10:20:43被版主删除
编辑 删除
管理
#45 得分：0 回复于： 2009-09-28 18:08:01
vb不支持，楼主别折腾了。
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理
原文链接：https://www.f2er.com/vb/256994.html

猜你在找的VB相关文章

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTi...
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的...
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，...
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m...
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DELETE）
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Di...
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5...
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时...
PHPJavaJava SEPythonC#C&C++RubyVBasp.NetGoPerlnettyDjangoDelphiJsp.NET CoreSpringFlaskSpringbootSpringMVCLuaLaravelMybatisAspGroovyThinkPHPYiiswoole
文件时间pythonm相等性PHP Warning时间问题问题解决pcntl_signal采样点wav模块动态文本调用频率限制对外暴露多个访问请求更新数据表模型结构type()方法比较速度手写体sobel算子保存模型Image类nn.Conv2dpytorch1.0kaggleDCGAN交并比range()用法打印模型反卷积卷积