婚活に使えるお見合いパーティ検索アプリを作る

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

myFrameを非表示にします。都道府県の一覧が表示されることになります。

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

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

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

リスト5　(PartyDataShowPage.xaml.vb)

Option Strict On

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

Imports System.Net.Http
Imports Windows.UI.Popups

PartyInfoクラス内に、文字列型の、「Title(パーティ名)」、「Place(開催場所)」、「myDate(日時)」、「ReserveMan(男性予約状況)、「ReserveWoman(女性予約状況)」、「AgeMan(男性年齢対象)」、「AgeWoman(女性年齢対象)」、「Url(ページのURL)」、「AreaName(エリア名)」、「Article(内容)」、「no」のプロパティを定義しておきます。

Public Class PartyInfo
  Public Property Title As String
  Public Property Place As String
  Public Property myDate As String
  Public Property ReserveMan As String
  Public Property ReserveWoman As String
  Public Property AgeMan As String
  Public Property AgeWoman As String
  Public Property Url As String
  Public Property AreaName As String
  Public Property Article As String
  Public Property no As String
  End Class
  Public NotInheritable Class PartyDataShowPage
  Inherits Page

XML要素を表すメンバ変数xmldocを宣言します。

  Dim xmldoc As XElement
  
  Dim Index As Integer = 0
  Dim prefIndex As Integer

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

WebBrowserを非表示に、GridViewを表示状態にします。
MainPage.xamlから送られた値は、e.Parameterで取得できます。これはObject型であるため、DirectCastでIntegerにキャストしてメンバ変数prefIndexに格納しておきます。
1～47までの都道府県に該当する番号が格納されます。

変数myUriに「お見合いパーティAPI」のリクエストURLを格納します。prefにメンバ変数prefIndexの値を指定します。

新しい、HttpClientのインスタンス、myHttpClientオブジェクトを作成します。
GetStringAsyncメソッドで、指定URI(myUri)にGET要求を送信し、非同期操作で応答本体を文字列として取得し、変数resultXmlに格納します。
返ってきた結果XMLには不要な名前空間や、文字が含まれていますので、それらをReplace関数で消します。

XElement.ParseメソッドでresultXmlを文字列として読み込みます。

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

Descendantsメソッドで全ての要素に対して、その内容をresultに格納しながら、以下の処理を行います。

PartyInfoクラスの以下のそれぞれの値を、noプロパティに1ずつ増加するメンバ変数Indexの値を文字列に変換して指定します。
Titleプロパティに