VB6 如何实现多重接口继承

来源：互联网发布：交大知行大厦邮编编辑：程序博客网时间：2024/05/23 23:39

发表于： 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
public sub C()
 
end Sub
 
'类C2
Implements C1
public sub C1_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   : Abstract class
'---------------------------------------------------------------------------------------
 
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   : Implements Class1
'---------------------------------------------------------------------------------------
 
Option Explicit
 
Implements Class1
 
Private Sub Class1_M1()
    Debug.Print "Class2's implementation of Class1's M1"
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   : Implements Class1 and Class2
'---------------------------------------------------------------------------------------
 
Option Explicit
Implements Class1
Implements Class2
 
Private Sub Class1_M1()
    Debug.Print "Class3's implementation of Class1's M1"
End Sub
 
Private Sub Class2_M2()
    Debug.Print "Class3's implementation of Class2's M2"
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   : Test Multi-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] 引用 | 举报 |

编辑删除

管理

0 0