c# - 从C#调用时C#类方法确实起作用，但从VB.Net调用时则不起作用

我有以下用C＃创建的实用程序类。

public class ObjectMapper<TSource, TTarget>
{
    private Collection<Action<TSource, TTarget>> _mappings =
                    new Collection<Action<TSource, TTarget>>();


    public void AddMapping(Action<TSource, TTarget> action)
    {
        _mappings.Add(action);
    }

    public void ApplyMappings(TSource source, TTarget target)
    {
        foreach (var mapping in _mappings)
        {
            mapping(source, target);
        }
    }
}

我可以使用此类将属性从一个对象复制到另一个对象。我知道还有其他替代方案，例如AutoMapper，但这不属于我的问题范围。

当我从C＃项目中使用此类时，一切正常。单元测试通过等。下面是C＃中此类的用法示例（对荷兰命名表示歉意）。

        // Arrange
        // initialiseer auteur
        Auteur auteur = new Auteur
        {
            Achternaam = "Loon",
            Tussenvoegsel = "van",
            Initialen = "P."
        };

        // initialiseer boek
        Boek boek = new Boek
        {
            Auteur = auteur,
            Titel = "Ravelijn",
            Isbn13 = "9789025857813",
            Druk = 1,
            UitgaveJaar = 2011,
            Uitgever = "Leopold B.V."
        };

        // initialiseer mapper
        ObjectMapper<Boek, BibliotheekItem> mapper = new ObjectMapper<Boek, BibliotheekItem>();
        mapper.AddMapping((bk, bib) => bib.Auteur = boek.Auteur.Initialen +
                                                    (string.IsNullOrEmpty(boek.Auteur.Tussenvoegsel) ? " " : " " + boek.Auteur.Tussenvoegsel + " ") +
                                                    boek.Auteur.Achternaam);
        mapper.AddMapping((bk, bib) => bib.Titel = boek.Titel);
        mapper.AddMapping((bk, bib) => bib.Uitgave = boek.Uitgever + ", " + boek.UitgaveJaar.ToString());
        mapper.AddMapping((bk, bib) => bib.Type = BibliotheekItem.ItemType.BOEK);
        mapper.AddMapping((bk, bib) => bib.Id = "ISBN13:" + bk.Isbn13);

        // Act
        BibliotheekItem bi = new BibliotheekItem();
        mapper.ApplyMappings(boek, bi);

        // Assert
        Assert.AreEqual("P. van Loon", bi.Auteur, false);
        Assert.AreEqual("Leopold B.V., 2011", bi.Uitgave, false);

当我尝试从VB.Net项目中使用此类时，目标对象的属性仍然为空。
我真的没能找到原因。

Dim bron As New Bron
    Dim doel As New Doel

    bron.Prop1 = "Waarde 1"
    bron.Prop2 = "Waarde 2"

    Dim mapper As ObjectMapper(Of Bron, Doel) = New bogaarts.algemeen.ObjectMapper(Of Bron, Doel)
    mapper.AddMapping(Function(b, d) d.Prop1 = b.Prop1)
    mapper.AddMapping(Function(b, d) d.Prop2 = b.Prop2)
    mapper.PasMappingsToe(bron, doel)

    MessageBox.Show(doel.Prop1 & " : " & doel.Prop2)

有人知道我正在忽略什么吗？

最佳答案

在VB中，您正在创建一个函数（而不是Sub）。这意味着它将具有返回类型。返回类型被推断为Boolean，而d.Prop2 = b.Prop2被解释为相等检查而不是赋值操作。然后，该布尔返回值将被丢弃以符合AddMapping的签名，这需要一个Action。

关于c# - 从C#调用时C#类方法确实起作用，但从VB.Net调用时则不起作用，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/27252861/