ロジックコードを記述する

次に、ソリューションエクスプローラー内のMainWindow.xamlを展開して表示される、MainWindow.xaml.vbをダブルクリックしてリスト3のコードを記述します。

ロジックコードを記述する

リスト3　(MainWindow.xaml.vb)

Option Strict On

最新の HTTP アプリケーション用のプログラミングインターフェイスを提供するクラスの含まれる、System.Net.Http名前空間をインポートします。

Imports System.Net.Http

Public NotInheritable Class MainPage
  Inherits Page

NewsInfoというクラス内で文字列型のPubDate、titleとlinkプロパティを定義しておきます。

  Public Class NewsInfo
    Property PubDate As String
    Property title As String
    Property link As String
  End Class

文字列型のyoutubeNameというメンバ変数を宣言しておきます。この変数にはTextBoxの入力欄に入力された値が格納されます。

  Dim youtubeName As String

「見たいYoutube」の入力ボックスに検索項目を入力して、該当データがタイルで表示される処理

変数myUrlにhttp://www.youtube.com/rss/tag/とTextBoxの入力欄に入力された値が格納されているyoutubeNameの値と拡張子「.rss」を連結した文字列を格納しておきます。

検索文字列にAKB48と入力して返されるrssの構造は、図5のような構造です。

図5：AKB48と入力して返されるrssの構造の一部。赤い枠線で囲まれた要素を取得します（クリックで拡大）

新しいHttpClientのインスタンスmyHttpClientオブジェクトを作成します。
GetStringAsyncメソッドで、指定したURIにGET要求を送信し、非同期操作で応答本体を文字列として取得します。
取得した値を変数myResultに格納しておきます。

XElement.ParseメソッドmyResult変数に格納されている値を文字列として読み込みます。
Descendantsメソッドで全ての子孫要素要素を選択するクエリーmyMenuQueryを定義します。
Countプロパティで要素の個数を取得します。要素の個数が0か0より小さい場合は、検索されたデータがないということですので、TitleTextBlockに「該当なし」と表示して、処理を抜けます。

データが存在した場合は、NewsInfoクラス型の新しいリストであるmyNewsInfoオブジェクトを作成します。
Descendantsメソッドで、全ての子孫要素内の要素を変数resultに格納しながら、以下の処理を反復します。
NewsInfoクラスのPubDateプロパティに要素の値を、titleプロパティに