0

以下のコード スニペットの 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
4

4 に答える 4

3

あなたが必要AddressOf

Dim auth As OAuth2Authenticator(Of NativeApplicationClient) = New OAuth2Authenticator(Of NativeApplicationClient)(provider, AddressOf GetAuthorization)
于 2011-09-29T06:10:28.243 に答える
1

C# から VB へのコードの変換については、このWeb サイトを参照してください。変換後のコードは、

Dim provider = New NativeApplicationClient(GoogleAuthenticationServer.Description)
provider.ClientIdentifier = ClientCredentials.ClientID
provider.ClientSecret = ClientCredentials.ClientSecret
Dim auth = New OAuth2Authenticator(Of NativeApplicationClient)(provider, GetAuthentication)
于 2011-09-29T06:07:00.443 に答える
0

AddressOf は関数を呼び出すことはありません。使用する必要があります

Dim getAuth As Func(Of NativeApplicationClient, IAuthorizationState) = AddressOf GetAuthorization
Dim auth As New OAuth2Authenticator(Of NativeApplicationClient)(provider, getAuth)
于 2012-02-17T06:58:32.473 に答える
0

OAuth2Authenticator を GetAuthorization に使用しようとしていますが、2 つが異なっています。おそらくそれが問題です。

于 2011-09-29T06:09:07.240 に答える