VB6 如何实现多重接口继承

2020-03-02 VB 前端之家

前端之家收集整理的这篇文章主要介绍了VB6 如何实现多重接口继承，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

发表于： 2009-09-20 11:11:05

直接来代码

@H_502_8@ Visual Basic code

@H_403_50@ 15

 
         '类C1 
        
         publicsubC() 
        
         end 
         Sub 
        
         '类C2 
        
         Implements 
         C1 
        
         publicsubC1_C() 
        
         end 
         Sub 
        
         'C3 
        
         Implements 
         C2 
        
        @H_403_50@

'C3要如何实现C2和C1中的接口？

回复于： 2009-09-20 12:24:55

@H_502_8@ Visual Basic code

 
             '--------------------------------------------------------------------------------------- 
            
             'Module:Class1 
            
             'Author:Anna 
            
             'Date:2009-9-20 
            
             'Purpose:Abstractclass 
            
             '--------------------------------------------------------------------------------------- 
            
             Option 
             Explicit 
            
             Public 
             Sub 
             M1() 
            
             End 
             Sub

@H_502_8@ Visual Basic code

@H_403_50@ 15

 
             '--------------------------------------------------------------------------------------- 
            
             '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 
            
            @H_403_50@

Public Sub M2()

End Sub

@H_502_8@ Visual Basic code

@H_403_50@ 15

 
             '--------------------------------------------------------------------------------------- 
            
             '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 
            
            @H_403_50@

Private Sub Class2_M2()

Debug.Print "Class3'simplementationofClass2'sM2"

End Sub

@H_502_8@ Visual Basic code

@H_403_50@ 15

'---------------------------------------------------------------------------------------

'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

@H_403_50@ 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] 引用 | 举报 |

编辑删除

管理

VB6 如何实现多重接口继承

猜你在找的VB相关文章