Incohérence dans les objets passant de VBA vers .NET via COM

Question

je l'interface suivante définie pour exposer une classe .NET à COM:

[InterfaceType(ComInterfaceType.InterfaceIsDual)] 
[Guid("6A983BCC-5C83-4b30-8400-690763939659")] 
[ComVisible(true)] 
public interface IComClass 
{ 
    object Value { get; set; } 

    object GetValue(); 

    void SetValue(object value); 
} 

La mise en œuvre de cette interface est trivial:

[ClassInterface(ClassInterfaceType.None)] 
[Guid("66D0490F-718A-4722-8425-606A6C999B82")] 
[ComVisible(true)] 
public class ComClass : IComClass 
{ 
    private object _value = 123.456; 

    public object Value 
    { 
     get 
     { 
      return this._value; 
     } 

     set 
     { 
      this._value = value; 
     } 
    } 

    public object GetValue() 
    { 
     return this._value; 
    } 

    public void SetValue(object value) 
    { 
     this._value = value; 
    } 
} 

J'ai ensuite enregistré cela en utilisant RegAsm, et a essayé de l'appeler à partir d'Excel via le code suivant:

Public Sub ComInterop() 

    Dim cc As ComClass 
    Set cc = New ComClass 

    cc.SetValue (555.555) 

    valueByGetter = cc.GetValue 
    valueByProperty = cc.Value 

    cc.Value = 555.555 

End Sub 

Lorsque je passe à travers ce code, valueByGetter = 555.5555 et valueByProperty = 555.555 comme prévu. Cependant, j'obtiens une erreur d'exécution "Objet requis" sur la dernière ligne.

Pourquoi le réglage de la valeur via la méthode de réglage fonctionne-t-il mais le paramétrage via la propriété échoue? Que dois-je changer pour que la propriété fonctionne comme prévu? Edit: J'ai eu quelques réponses utiles, donc ma question supplémentaire est "ce problème se posera-t-il avec les clients COM écrits dans d'autres langues, ou est-il spécifique à VBA?".

Answer 1

Votre interface est exportés vers la bibliothèque de types comme ceci:

dispinterface IComClass { 
    properties: 
    methods: 
     [id(00000000), propget] 
     VARIANT Value(); 
     [id(00000000), propputref]    // <=== problem here 
     void Value([in] VARIANT rhs); 
     [id(0x60020002)] 
     VARIANT GetValue(); 
     [id(0x60020003)] 
     void SetValue([in] VARIANT Value); 
}; 

le problème est le poseur de la propriété de la valeur, il est déclaré que propputref i Au lieu de la propput. Qu'il y ait une différence du tout est un problème de cohérence méchant dans COM, provoqué par le fait qu'il supporte une propriété par défaut. C'est pourquoi vous devez utiliser le mot-clé Set dans VBA. Le problème est: vous ne passez pas un objet dans le code VBA, même si .NET en attend un. Après une recherche un peu, je n'ai trouvé aucune solution prête pour ce problème. Il y a une petite chance que le mot-clé Let puisse fonctionner dans VBA, je ne l'ai pas essayé. Le seul correctif à mi-chemin correct est de forcer la liaison tardive, au lieu de ComInterfaceType.InterfaceIsDual utiliser ComInterfaceType.InterfaceIsIDispatch. Ou évitez d'utiliser "objet".

Answer 2

Vous devez utiliser le mot-clé Situé sur la dernière ligne:

Set cc.Value = 555.555 

Answer 3

Avez-vous essayé quelque chose comme (vb un peu rouillé, vous voyez l'idée):

Dim newValue as Int 
int= 555.555 
cc.Value = newValue (or maybe set cc.Value=newValue) 

Answer 4

Cela semble être un problème avec tlbexp et conseils MS en utilisant des appels tardifs liés comme ceci:

Dim cc As Object ' this one changed from ComClass 
Set cc = New ComClass 
... 
cc.Value = 555.555 

Vous pouvez le laisser tôt lié et essayer une solution beaucoup plus simple:

Set cc.Value = CVar(555.555)