Bir diziyi com-interop kullanarak vba'dan C#'ye geçirme

Question

Kullanıcı tanımlı sınıflar dizisini vba'dan .net'e (özellikle C#) com-interop kullanarak iletmenin uygun yolu nedir?

İşte C# kodum. Yöntem1'i vba'dan çağırırsam, "Array veya userdefined type bekleniyor" veya "Function, görsel temelde desteklenmeyen bir otomasyon türü kullanır" hatası verir.

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

MarshallAsAttribute sınıfı hakkında biraz bilgi okudum. Bu C# kodundaki eksik parça olabilir mi?

İşte kullanıyorum vba kod: Sahip

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

Answer 1

IIRC referans olarak diziler geçmek.

.NET müşterileri için ref parametreleri ile sınıfınızı kirletmeye istemiyorsanız COM istemcileri tarafından kullanılacak bir ComVisible arayüzü tanımlayabilirsiniz,

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

olarak yöntem bildirerek deneyin ve bunu uygulamaya açıkça böylece: Eğer VBA bir dizinin yerine bir koleksiyon ortaya çıkarmak istiyorsanız cevaben

[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) 
    { 
     ... 
    } 
} 

** ** yorum yapmak

, sadece bir sýralayýcý açığa gerekiyor ve başka yöntemler VBA kodunu istiyorum aramak için (örneğin, Ekle, Yeniden Taşı, Ekle, Temizle, ...). Örneğin.

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

    int Count { get; }; 

    IUserDefinedClass this[int index] { get; } 

    int Add(IUserDefinedClass item); 

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

Ardından VBA'DA zamanki gibi kullanabilirsiniz:

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

Next nIndex