加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 （https://www.lidatong.com.cn/）- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置： 首页 > 百科 > 正文

VB6 如何实现多重接口继承

发布时间：2020-12-17 07:39:13 所属栏目：百科 来源：网络整理
导读：发表于： 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中的接口？ 回复于： 2009-09-20 1

发表于： 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中的接口？


回复于： 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
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
Set aa=cc
Call aa.M1
Set aa= Nothing
Set cc= Nothing
End Sub
对我有用[0] 丢个板砖[0] 引用 | 举报 |
编辑 删除
管理

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
    相关内容
      推荐文章
        站长推荐
        热点阅读

          【免责声明】本站内容转载自互联网，其发布内容言论不代表本站观点，如果其链接、内容的侵犯您的权益，烦请提交相关链接至邮箱bqsm@foxmail.com我们将及时予以处理。

          建议您使用1920×1080分辨率、谷歌浏览器Google Chrome、Microsoft Edge以获得本站的最佳浏览效果

          Copygight © 2008-2022 https://www.lidatong.com.cn/ All Rights Reserved. 李大同