将prioject转换为VB.NET后发生错误（来自C＃）

Question

I want to converter this C# to VB.NET

internal static void CreateMap(AutoMapperService autoMapperService)
    {
        Player.CreateMap(autoMapperService);
        RawStats.CreateMap(autoMapperService);

        autoMapperService.CreateMap<string, GameTypeEnum>()
            .ConvertUsing(s => GameTypeConsts.GameTypes
                .First(x => x.Value == s).Key);

        autoMapperService.CreateMap<string, GameModeEnum>()
            .ConvertUsing(s => GameModeConsts.GameModes
                .First(x => x.Value == s).Key);

        autoMapperService.CreateMap<string, GameSubTypeEnum>()
            .ConvertUsing(s => GameSubTypeConsts.GameSubTypes
                .First(x => x.Value == s).Key);

        CreateMap<Game>(autoMapperService);
        CreateMap<IGame>(autoMapperService).As<Game>();

        autoMapperService.CreateMap<RecentGamesDto, IEnumerable<IGame>>()
            .ConvertUsing(x => x.Games.Select(autoMapperService.Map<GameDto, IGame>));
    }

VB.NET:

 Friend Shared Sub CreateMap(autoMapperService As AutoMapperService)
        Player.CreateMap(autoMapperService)
        RawStats.CreateMap(autoMapperService)

        autoMapperService.CreateMap(Of String, GameTypeEnum).ConvertUsing(Function(s) GameTypeConsts.GameTypes.First(Function(x) x.Value = s).Key)

        autoMapperService.CreateMap(Of String, GameModeEnum).ConvertUsing(Function(s) GameModeConsts.GameModes.First(Function(x) x.Value = s).Key)

        autoMapperService.CreateMap(Of String, GameSubTypeEnum).ConvertUsing(Function(s) GameSubTypeConsts.GameSubTypes.First(Function(x) x.Value = s).Key)

        CreateMap(Of Game)(autoMapperService)
        CreateMap(Of IGame)(autoMapperService).[As](Of Game)()

        autoMapperService.CreateMap(Of RecentGamesDto, IEnumerable(Of IGame))().ConvertUsing(Function(x) x.Games.Select(autoMapperService.Map(Of GameDto, IGame)))
    End Sub

I and up getting an exception at the last VB.NET Codeline: Telling me that I am missing the item property

Thats the original project: https://github.com/XeeX/LeagueOfLegendsAPI This is the function where I am missing the item property: https://github.com/XeeX/LeagueOfLegendsAPI/blob/master/PortableLeagueApi.Core/Services/AutoMapperService.cs

Can someone give me a hint what am I missing?

Regards

Answer 1

I'm not 100% sure (my VB.NET skills are rusty), but I think the problem is how you're trying to pass the Map method as a parameter to Select method. Try using AddressOf :

autoMapperService.CreateMap(Of RecentGamesDto, IEnumerable(Of IGame))().ConvertUsing(Function(x) x.Games.Select(AddressOf autoMapperService.Map(Of GameDto, IGame)))