住所から郵便番号を検索できるプログラムを作る

表示された郵便番号と住所を選択した時の処理

Frameを表示状態にします。変数myAddressに、ListBoxから選択された項目をAddressInfoクラスに変換して、そのprefecture、city、townプロパティの値を取得して連結し格納します。
このmyAddressを引数にしてWebBrowserPageに遷移します。

  Private Sub ResultListBox_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles ResultListBox.SelectionChanged
    Try
      myFrame.Visibility = Windows.UI.Xaml.Visibility.Visible
      Dim myAddress As String = DirectCast(ResultListBox.SelectedItem, AddressInfo).prefecture &DirectCast(ResultListBox.SelectedItem, AddressInfo).city &DirectCast(ResultListBox.SelectedItem, AddressInfo).town
      myFrame.Navigate(GetType(WebBrowserPage), myAddress)
    Catch
      myFrame.Visibility = Windows.UI.Xaml.Visibility.Collapsed
      Exit Sub
    End Try
  End Sub

戻る(←)アイコンがタップされた時の処理

Frameを非表示状態にします。

  Private Sub backButton_Click(sender As Object, e As RoutedEventArgs) Handles backButton.Click
    myFrame.Visibility = Windows.UI.Xaml.Visibility.Collapsed
  End Sub
End Class

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

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

リスト3　(WebBrowserPage.xaml.vb)

Option Strict On

Public NotInheritable Class WebBrowserPage
  Inherits Page

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

MainPage.xamlから渡された値は、e.Parameterで受け取れます。これはObject型であるため、CStr関数で
String型にキャストします。変数myUriに

String.Format("http://www.bing.com/search?q={0}", Uri.EscapeDataString(myAddress))

と指定して、引数qにmyAddressの値をエスケープして指定します。
WebBrowserのSourceプロパティにmyUriで初期化されたUriを指定します。これで、WebBrowser内に住所に関連した情報が表示されます。

  Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)
    Dim myAddress As String = CStr(e.Parameter)
    Dim myUri = String.Format("http://www.bing.com/search?q={0}", Uri.EscapeDataString(myAddress))
    WebBrowser1.Source = New Uri(myUri, UriKind.Absolute)
  End Sub
End Class

今回はここまでです。ありがとうございました。

このサンプルを元にしたアプリをWindows ストアで公開しています。
→　新版:郵便番号検索（Windowsストア）

筆者からのお知らせ

筆者はWindowsストアでアプリを公開しています。チャームの検索からWindowsストアを選択して、検索欄に、kuniyasuまたはYakushijiKuniyasuと入力すると、公開されているアプリの一覧が表示されます。上記はどちらも私のアカウントですので、興味のある方は是非ダウンロードして使ってみてください。