Question

我有以下实用程序类，用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)

有人知道我在忽视什么吗？

Answer 1

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

从C＃调用时，C＃类方法可以正常工作，但从VB.Net调用时则不行

1 个答案: