Class Interfaces

[tiredofit]

This video shows how to use Class Interfaces:

https://www.youtube.com/watch?v=3bO50gHRndA

The restriction I find with Interfaces is every class that implements the Interface class must adhere to its rules.

Instead, why not do this?

Sub Test()

    Dim obj As Object
   
    Dim i As Long
   
    For i = 1 To 2
   
        If i = 1 Then
       
            Set obj = New Class1
       
        Else
           
            Set obj = New Class2
       
        End If
       
        Call obj.PrintMsg
       
    Next i
   
End Sub

Class1:

Sub PrintMsg()

    Debug.Print 1
   
End Sub

and Class2:

Sub PrintMsg()

    Debug.Print 2
   
End Sub

 

[RoryA]

The restriction I find with Interfaces is every class that implements the Interface class must adhere to its rules.

That is the entire point of interfaces...

 

[tiredofit]

That is the entire point of interfaces...

One of the benefits of using classes is reuseability.

So if changes are required, it makes life easier.

But with class interfaces, if the interface needs to change, all other classes that implements it must also change.

Isn't that going to cause a lot of pain?