La mise en œuvre ma propre interface en VBA - Erreur: module objet doit mettre en œuvre 'x' pour l'interface 'y'

Question

Comment puis-je mettre ma classe ClsInterface, qui a ce code:

Public Function add(x As Integer, y As Integer) As Integer 
End Function 

dans ma classe Class2, qui a ce code:

Implements ClsInterface 

Public Function add(x As Integer, y As Integer) As Integer 
add = x + y 
End Function 

Mon code de test est

Public Sub test() 
Dim obj As New Class2 
MsgBox obj.add(5, 2) 
End Sub 

cela vient toujours avec l'erreur suivante:

Microsoft Visual Basic
Compile error:

Object module needs to implement 'add' for interface 'ClsInterface'
OK/Help

mais il n'y a pas d'aide sur l'aide de Microsoft (quand je presse sur le bouton d'aide).

Des idées?

Answer 1

Votre Classe2 doit ressembler à;

Implements ClsInterface 

Private Function ClsInterface_add(x As Integer, y As Integer) As Integer 
add = x + y 
End Function 

(Passer la commande boîtes déroulantes en haut de la fenêtre de code de Classe2, vous pouvez voir ce que l'objet de base, vous pouvez vous référer à, classe ou ClsInterface)

Dans votre code de test que vous voulez;

Dim obj As New ClsInterface 

Si vous voulez appeler à travers l'interface.

(Je recommande également nommer Intefaces sous forme ISomeDescription et en utilisant Set plutôt que comme nouveau)