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

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

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

リスト3　(MainWindow.xaml.vb)

Option Strict On

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

Imports System.Net.Http

TouristInfoクラス内に文字列型のname、title、description、urlプロパティを定義しておきます。

Public Class TouristInfo
  Property name As String
  Property title As String
  Property description As String
  Property url As String
End Class

Public NotInheritable Class MainPage
  Inherits Page<

リクルートより取得したキーで定数メンバ変数ApiKeyを初期化しておきます。APIキーは下記のURLより「新規登録」でメールアドレスを入力して送ると、リクルートよりキーが送られてきますので、それを使用します。
→　http://webservice.recruit.co.jp/ab-road/reference.html

ConstApiKey As String = "リクルートより取得したキー"
　Dim countryName As String

コンボボックスより地域が選択された時の処理

ComboBoxより選択された値をComboBoxItemにキャストし、Contentプロパティで取得した値を文字列に変換して変数areaNameに格納します。
変数areaNameの値で条件分岐を行います。
それぞれの地域の名前で変数countryNameにエリアコードを格納します。

変数myUrlに

String.Format("http://webservice.recruit.co.jp/ab-road/spot/v1/?key={0}&area={1}&count=100&format=xml", ApiKey, countryName)

と指定して、引数keyにリクルートより取得したApiKeyを指定し、areaに変数countryName変数の値を指定します。このクエリで返される結果XMLは図5のような構造です。赤い下線部分の要素の値を使用します。

図5：結果XMLの構造（クリックで拡大）

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

ルート要素に名前空間が付加されているため、読み込む際の邪魔になりますので、Replace関数でに置換します。

XElement.Parseメソッドで変数myResultの内容を文字列として読み込みます。

TouristInfoクラス型のリストであるmyTouristInfoオブジェクトを作成します。
Descendantsメソッドで全ての子孫要素に対して、変数resultで要素の内容を取得しながら反復処理を行います。

TouristInfoクラスのnameプロパティに要素の値を、titleプロパティに