Passez un tableau de vba à C# en utilisant com-interop

Question

Quelle est la bonne façon de passer un tableau de classes définies par l'utilisateur de vba à .net (en particulier C#) en utilisant com-interop?

Voici mon code C#. Si j'appelle Method1 de vba, il échoue avec "Array ou type défini par l'utilisateur attendu" ou "Fonction utilise un type d'automatisation non pris en charge dans Visual basic".

public class MyClass 
{ 
    public Method1(UserDefinedClass[] Parameters) { ... } 
    public Method2(Object Parameters) { ... } 
} 

J'ai lu un peu à propos de la classe MarshallAsAttribute. Serait-ce la pièce manquante dans le code C#?

Voici le code vba J'utilise:

Dim udt As New UserDefinedClass 
Dim myArray() 
myArray(1) = udt 
myClass.Method1(myArray) 
myClass.Method2(myArray) 

Answer 1

IIRC vous devez passer des tableaux par référence.

Essayez de déclarer votre méthode comme

public class MyClass 
{ 
    public void Method1([In] ref UserDefinedClass[] Parameters) { ... } 
    ... 
} 

Si vous ne voulez pas polluer votre classe avec des paramètres ref pour les clients .NET, vous pouvez définir une interface ComVisible être utilisé par les clients COM, et la mettre en oeuvre explicitement ainsi:

[ComVisible(true)] 
public interface IMyClass 
{ 
    void Method1([In] ref UserDefinedClass[] Parameters) { ... } 
    ... 
} 

public class MyClass : IMyClass 
{ 
    void IMyClass.Method1(ref UserDefinedClass[] Parameters) 
    { 
     this.Method1(Parameters); 
    } 

    public Method1(UserDefinedClass[] Parameters) 
    { 
     ... 
    } 
} 

** En réponse au commentaire ** Si vous souhaitez exposer une collection à la place d'un tableau VBA, il vous suffit d'exposer recenseur, et toute autre méthode que vous voulez le code VBA être en mesure d'appeler (par exemple Ajouter, Re déplacer, Insérer, Effacer, ...). Par exemple.

[ComVisible] 
public interface IUserDefinedClassCollection 
{ 
    IEnumerator GetEnumerator(); 

    int Count { get; }; 

    IUserDefinedClass this[int index] { get; } 

    int Add(IUserDefinedClass item); 

    // etc, other methods like Remove, Clear, ... 
} 

Vous pouvez alors l'utiliser comme d'habitude dans VBA:

Dim objUserDefinedClasses As UserDefinedClassCollection 
... 
objUserDefinedClasses.Add objUserDefinedClass 
... 
For nIndex = 0 To objUserDefinedClasses.Count 

Next nIndex