クラスのポリモーフィズム

ここを編集

インターフェース

Option Explicit
 
Private Sub Class_Initialize()
End Sub
 
Public Function Execute() As String
End Function
 

クラス１

Option Explicit
 
Implements ClassCmn
 
Dim a As String
 
Private Sub Class_Initialize()
    a = "A"
End Sub
 
Public Function ClassCmn_Execute() As String
    ClassCmn_Execute = a
End Function
 

クラス２

Option Explicit
 
Implements ClassCmn
 
Dim b As String
 
Private Sub Class_Initialize()
    b = "B"
End Sub
 
Public Function ClassCmn_Execute() As String
    ClassCmn_Execute = b
End Function
 

使用箇所

Option Explicit
 
Sub test()
    Dim clChkExecTable(1) As ClassCmn
 
    Set clChkExecTable(0) = New Class1
    Set clChkExecTable(1) = New Class2
 
    Debug.Print clChkExecTable(0).Execute
    Debug.Print clChkExecTable(1).Execute
 
End Sub
 

ここを編集