2011年1月24日月曜日

Googleドキュメントの全てのドキュメントの一覧を表示する(VB)

Googleドキュメントの全てのドキュメントの(名前の)一覧を表示するVB(.NET)のプログラム。
フォームForm1に配置されたButton1をクリックすると一覧が表示される。
Visual Basic 2008 Express Editionを使用する。

①先ず、Google Data APIの参照設定。
   [Google Data API SDKのインストール先]\Redistフォルダーの
     Google.GData.Client.dll
     Google.GData.Documents.dll
   を参照設定。


②プログラムは下記の通り:

Imports Google.GData.Documents
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
                     Handles Button1.Click
        Dim myService As DocumentsService
        Dim query As DocumentsListQuery
        Dim feed As DocumentsFeed
        '
        myService = New DocumentsService("exampleCo-exampleApp-1")
        'ログイン

        myService.setUserCredentials("hogehoge@gmail.com", "passhoge")
        '
        query = New DocumentsListQuery
        feed = myService.Query(query)
        '
        For Each entry As DocumentEntry In feed.Entries
            Debug.WriteLine(entry.Title.Text)
        Next
    End Sub
End Class

0 件のコメント:

コメントを投稿