Перевести фрагмент кода из C# в VB

Question

Мне нужно перевести строку 4 во фрагменте кода ниже в VB. По какой-то причине я не могу сделать это сегодня вечером. Я слишком устала или у меня утечка мозгов... Вы можете помочь?

var provider = new NativeApplicationClient(GoogleAuthenticationServer.Description);
provider.ClientIdentifier = ClientCredentials.ClientID;
provider.ClientSecret = ClientCredentials.ClientSecret;
var auth = new OAuth2Authenticator<NativeApplicationClient>(provider, GetAuthentication);

Инструменты перевода позволили мне зайти так далеко, но это неправильно.

Dim provider As NativeApplicationClient = New NativeApplicationClient(GoogleAuthenticationServer.Description)
provider.ClientIdentifier = ClientCredentials.ClientID
provider.ClientSecret = ClientCredentials.ClientSecret
Dim auth As OAuth2Authenticator(Of NativeApplicationClient) = New OAuth2Authenticator(Of NativeApplicationClient)(provider, GetAuthorization)

Метод GetAuthorization имеет следующую подпись.

Private Function GetAuthorization(ByVal arg As NativeApplicationClient) As IAuthorizationState

Answer 1

Тебе нужно AddressOf

Dim auth As OAuth2Authenticator(Of NativeApplicationClient) = New OAuth2Authenticator(Of NativeApplicationClient)(provider, AddressOf GetAuthorization)

Answer 2

Обратитесь к этому веб-сайту для перевода любого кода с C# на VB, и код после преобразования

Dim provider = New NativeApplicationClient(GoogleAuthenticationServer.Description)
provider.ClientIdentifier = ClientCredentials.ClientID
provider.ClientSecret = ClientCredentials.ClientSecret
Dim auth = New OAuth2Authenticator(Of NativeApplicationClient)(provider, GetAuthentication)

Answer 3

Вы пытаетесь использовать OAuth2Authenticator для GetAuthorization, и они разные, возможно, это ваша проблема.

Answer 4

AddressOf никогда не вызывает функцию, вам нужно использовать

Dim getAuth As Func(Of NativeApplicationClient, IAuthorizationState) = AddressOf GetAuthorization
Dim auth As New OAuth2Authenticator(Of NativeApplicationClient)(provider, getAuth)