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

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

リスト3　(MainWindow.xaml.vb)

Option Strict On

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

Imports System.Net.Http

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

Public Class DataInfo
  Property title As String
  Property description As String
  Property link As String
End Class

Public NotInheritable Class MainPage
  Inherits Page

ページがアクティブになった時の処理

HttpClientクラスの新しいインスタンスmyHttpClientオブジェクトを作成します。HttpClientクラスは、URI で識別されるリソースに HTTP 要求を送信し、そのリソースから HTTP 応答を受信するためのクラスです。

「http://www.microsoft.com/japan/msdn/rss/feed/rss.aspx」のUriで初期化された新しいUriオブジェクトmyUriを作成しておきます。このUriにRSSの情報が記載されています（RSSの構造については図4参照）。

HttpClientクラスのGetStringAsyncメソッドで、指定したURIにGET送信し、非同期操作で応答本体を文字列として受け取り、変数resultに格納します。非同期処理の場合は、メソッドの最初にAsyncを追加します。

Protected Overrides Async Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)

のAsyncの部分を追加する必要があります。しかし、このAsyncの追加を忘れても、非同期処理のメソッドを使った場合、自動的にエラーが表示され、「含まれているスコープを’Async’にします」と表示され、その個所をクリックすると自動的にAsyncが頭に追加されます（図5参照）。VS2012の素晴らしい点です！

XElement.Parseメソッドで、文字列として読み込まれたXMLのRSS（図4参照）を読み取ります。

DataInfoクラス型の新しいリストである、myDataInfoオブジェクトを作成します。

読み込んだXML文書内から、Descendants メソッドで、子孫要素であるすべての 要素のコレクションに対して、各要素を変数 myResult に格納しながら、以下の処理を行います。

DataInfoクラスの「title」プロパティに

図5：「含まれているスコープを’Async’にします」のメッセージが表示されるので、その個所をクリックする（クリックで拡大）

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

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

リスト4　(WebViewPage.xaml.vb)

Option Strict On
Public NotInheritable Class WebViewPage
  Inherits Page

ページがアクティブになった時の処理

MainPage.xamlから渡された値（e.Parameter）を文字列に変換して、変数myUriに格納します。

WebViewのNavigateメソッドで変数myUriに格納されたページに遷移します。絶対URIで指定します。

  Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)
    Dim myUrl = CStr(e.Parameter)
    WebView1.Navigate(New Uri(myUrl, UriKind.Absolute))
  End Sub
End Class

このサンプルは「デバッグなしで開始」で実行してください。筆者の環境だけかもしれませんが、「デバッグ開始」を実行するとJust-In-Timeのエラーが発生します。Just-In-Timeのチェックを外してもエラーになりますので、「デバッグなしで開始」での実行をお願いします。

「デバッグなしで開始」では問題なく動作します。