c# - 将代码片段从 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)