控制檯應用程序代碼轉換爲Windows窗體代碼VB

每一個。我虛心地想要在這方面尋求你的支持。我盡我最大努力學習谷歌驅動器的SDK，並隨後在頁面上的視頻提供的，以及所有步驟： https://developers.google.com/drive/web/quickstart/quickstart-cs 控制檯應用程序代碼轉換爲Windows窗體代碼VB

我也不過來阻止我實現提供的示例代碼CSharp和沒有VB版本。我試過將它轉換爲VB使用Telerik轉換器，但結果並不令人鼓舞，因爲我仍然看到那裏有大括號，什麼不是。我知道我看到這些，因爲它的一個控制檯應用程序，我會很誠懇地說，我不太擅長控制檯應用程序代碼。

因此，我謙虛地尋求幫助，以便如何將此已轉換的C＃轉換爲VB代碼爲Windows窗體版本。謝謝。

Namespace GoogleDriveSamples 
    Class DriveCommandLineSample 
     Private Shared Sub Main(args As String()) 
      Dim credential As UserCredential = GoogleWebAuthorizationBroker.AuthorizeAsync(New ClientSecrets() With { _ 
       Key .ClientId = "CLIENT_ID_HERE", _ 
       Key .ClientSecret = "CLIENT_SECRET_HERE" _ 
      }, New() {DriveService.Scope.Drive}, "user", CancellationToken.None).Result 

      ' Create the service. 
      Dim service = New DriveService(New BaseClientService.Initializer() With { _ 
       Key .HttpClientInitializer = credential, _ 
       Key .ApplicationName = "Drive API Sample" _ 
      }) 

      Dim body As New File() 
      body.Title = "My document" 
      body.Description = "A test document" 
      body.MimeType = "text/plain" 

      Dim byteArray As Byte() = System.IO.File.ReadAllBytes("document.txt") 
      Dim stream As New System.IO.MemoryStream(byteArray) 

      Dim request As FilesResource.InsertMediaUpload = service.Files.Insert(body, stream, "text/plain") 
      request.Upload() 

      Dim file As File = request.ResponseBody 
      Console.WriteLine("File id: " + file.Id) 
      Console.WriteLine("Press Enter to end this process.") 
      Console.ReadLine() 
     End Sub 
    End Class 
End Namespace

來源

2014-04-30 SamuelDexter

Drive SDK（或任何其他Google SDK）目前不支持vb。使用c＃/ .net來執行此操作，或者如果必須的話，甚至可以使用任何語言直接進行https調用（放置帖子等）。

來源

2014-04-30 15:52:31

如果它支持C＃，它怎麼可能不支持VB.NET？ –

不支持vb.net，但那不是你在你的問題中所說的，你說的只是「vb」，這意味着較舊的visual basic。 –

那麼，問題中提供的示例代碼並不意味着這一點。事實上，微軟確實經常將VB.NET視爲簡單的「VB」。現在是時候從VB 6開始了。 –

Option Infer On 

Imports System.Threading 
Imports System.Threading.Tasks 
Imports Google.Apis.Auth.OAuth2 
Imports Google.Apis.Drive.v2 
Imports Google.Apis.Drive.v2.Data 
Imports Google.Apis.Services 

Public Class Form1 

Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click 
    Dim secrets = New ClientSecrets() 
    secrets.ClientId = "CLIENT_ID_HERE" 
    secrets.ClientSecret = "CLIENT_SECRET_HERE" 

    Dim scope = New List(Of String) 
    scope.Add(DriveService.Scope.Drive) 

    Dim credential = GoogleWebAuthorizationBroker.AuthorizeAsync(secrets, scope, "user", CancellationToken.None).Result() 

    Dim initializer = New BaseClientService.Initializer 
    initializer.HttpClientInitializer = credential 
    initializer.ApplicationName = "Drive API Sample" 

    Dim service = New DriveService(initializer) 

    Dim body = New File 
    body.Title = "My document" 
    body.Description = "A test document" 
    body.MimeType = "text/plain" 

    Dim byteArray = System.IO.File.ReadAllBytes("C:\MyFile.txt") 
    Dim stream = New System.IO.MemoryStream(byteArray) 

    Dim request = service.Files.Insert(body, stream, "text/plain") 
    request.Upload() 

    body = request.ResponseBody 
    MessageBox.Show("The File id is:" & body.Id, "Upload Succeeded") 
End Sub 

End Class

來源

2014-04-30 18:38:23 ileff

非常感謝iLeff。我很欣賞這一點。 – SamuelDexter

控制檯應用程序代碼轉換爲Windows窗體代碼VB

回答

相關問題