自分の現在位置を取得して表示するサンプルプログラム

新しいStackPanelのインスタンスmyStackPanelオブジェクトを作成します。Marginプロパティに5を指定して余白を設けます。背景色をNavyに指定します。このStackPanelオブジェクトのインスタンスを、非表示としておきます。

新しいTextBlockのインスタンスmyTextBlockオブジェクトを作成します。文字色をRedに指定します。文字サイズに24を指定し、パディングに10を指定します。Textプロパティに住所を格納している変数myAddressと文字列「辺り」を連結して指定します。

myStackPanelオブジェクトにAddメソッドで住所の設定された、myTextBlockを追加します。

MapLayerクラスのSetPositionメソッドで、マップレイヤー内にmyStackPanelオブジェクトの位置を設定します。MapLayerクラスは、地図上の要素の位置を保持しているマップレイヤーを表すクラスです。

myMapにAddメソッドでmyStackPanelオブジェクトを追加します。myStackPanelは最初の状態では非表示になっているのでわかりませんが、ピンの位置にStackPanelオブジェクトが表示されることになります。

AddHandlerステートメントでピンをタップした時のイベントハンドラを追加します。イベントハンドラ内では、myStackPanelオブジェクトを表示状態にします。

AddHandlerステートメントでmyStackPanelをタップした時のイベントハンドラを追加します。イベントハンドラ内では、myStackPanelオブジェクトを非表示状態にします。

非同期処理で行われるためメソッドの先頭にAsyncを追加します。

  Private Async Sub myGeolocator_PositionChanged(sender As Geolocator, args As PositionChangedEventArgs)
    Await myCoreDispacher.RunAsync(CoreDispatcherPriority.Normal, Async Sub()
        Dim pos As Geoposition = args.Position
  　    myMap.Children.Clear()
        Dim myPin As New Pushpin
        myPin.Background = New SolidColorBrush(Colors.Crimson)
        Dim myLocation = New Location(CDbl(pos.Coordinate.Latitude), CDbl(pos.Coordinate.Longitude))
        MapLayer.SetPosition(myPin, myLocation)
        myMap.Children.Add(myPin)
        myMap.SetView(myLocation, 16)
        
        Dim myUri As String = String.Format("http://reverse.search.olp.yahooapis.jp/OpenLocalPlatform/V1/reverseGeoCoder?lat={0}&lon={1}&appid={2}", pos.Coordinate.Latitude, pos.Coordinate.Longitude, AppID)
        Dim myHttpClient As New HttpClient
        Dim resultAddress = Await myHttpClient.GetStringAsync(myUri)
        resultAddress = resultAddress.Replace("<YDF firstResultPosition=" &ChrW(34) & "1" &ChrW(34) & " totalResultsAvailable=" &ChrW(34) & "1" &ChrW(34) & " totalResultsReturned=" &ChrW(34) & "1" &ChrW(34) & " xmlns=" &ChrW(34) & "http://olp.yahooapis.jp/ydf/1.0" &ChrW(34) & ">", "<YDF>")
        Dim httpDoc As XElement = XElement.Parse(resultAddress)
        Dim myAddress = httpDoc.Descendants("Address").Value
        Dim myStackPanel As New StackPanel
        myStackPanel.Margin = New Thickness(5)
        myStackPanel.Background = New SolidColorBrush(Colors.Navy)
        myStackPanel.Visibility = Xaml.Visibility.Collapsed
        Dim myTextBlock As New TextBlock
        myTextBlock.Foreground = New SolidColorBrush(Colors.Red)
        myTextBlock.FontSize = 24
        myTextBlock.Padding = New Thickness(10)
        myTextBlock.Text = myAddress& " 辺り"
        myStackPanel.Children.Add(myTextBlock)
        MapLayer.SetPosition(myStackPanel, New Location(CDbl(pos.Coordinate.Latitude), CDbl(pos.Coordinate.Longitude)))
        myMap.Children.Add(myStackPanel)
          AddHandlermyPin.Tapped, Sub()
            myStackPanel.Visibility = Xaml.Visibility.Visible
          End Sub
          
          AddHandlermyStackPanel.Tapped, Sub()
            myStackPanel.Visibility = Xaml.Visibility.Collapsed
          End Sub
    End Sub)
  End Sub

Geolocatorの機能が変更された時に発生する処理

Geolocatorオブジェクトの更新後の状態を、変数positionStatusで参照します。

Select Case文で条件分岐を行います。場所データを提供するGeolocatorオブジェクトがDisabledであった場合、つまり、場所プロバイダーが無効であった場合は、RunAsyncメソッドでディスパッチされたイベントの結果を非同期に返します。ディスパッチャの優先順位は標準のNormalを指定しています。

この場合は、「位置情報を取得できません。GPSおよび位置情報取得可能なPCでお試しください。」というメッセージボックスを表示させ、処理を抜けます。

非同期で行われるためメソッドの先頭にAsyncを追加します。

Private Async Sub myGeolocator_StatusChanged(sender As Geolocator, args As StatusChangedEventArgs)
    Dim positionStatus = args.Status
    Select Case positionStatus
      Case Windows.Devices.Geolocation.PositionStatus.Disabled
        Await myCoreDispacher.RunAsync(CoreDispatcherPriority.Normal, Async Sub()
                                                                      Dim message As New MessageDialog("位置情報を取得できません。GPSおよび位置情報取得可能なPCでお試しください。")
                                                                      Await message.ShowAsync
                                                                      Exit Sub
                                                                    End Sub)
    End Select
  End Sub
End Class

アイコンの作成

ソリューションエクスプローラーのAssetsフォルダ内には、4つのpngファイルが入っています（表1）。

表1：Assetsフォルダ内に入っているpngファイルの種類

表1の画像はデフォルトでは、□に×の画像になっています。ストアの審査では、このままの画像では審査に受かりませんので、4種類のアイコンを作る必要があります。このサンプルは実際にストアで審査の通ったアプリですので、Assetsフォルダ内には筆者の作成したアイコンが収められていますので、見てみてください。SplashScreen.pngはアプリを起動した際に、一瞬最初に表示される画像です。スタート画面にピン止めされる画像はデフォルトでは150×150のLogo.pngが使用されます。これを長方形の画像にしたい場合は、310×150サイズのpng画像を作成し、WideLogo.png（任意の名前でOK）としてAssetsフォルダに追加しておきます。

次にpackage.appxmanifestをダブルクリックして開きます。「アプリケーションUI」タブ内の「タイトルイメージとロゴ」というパネルに画像が表示されています（図16）。

図16：「ロゴ」画像が表示されている（クリックで拡大）

図16から、「ワイドロゴ」を選択して310×150pxの横にある[…]ボタンをクリックして、Assetsフォルダ内のWideLogo.pngを指定します。初めて指定した場合は、画像が表示されずに赤丸の×が表示されます。
Assetsフォルダ内を見てみると、WideLogo.pngに-100といった不要なファイルが追加されていますので、これを削除してください。すると図17のように無事ワイドロゴが表示されます。実行すると、スタート画面にはこの長方形のワイドロゴがピン止めされます。

図17：ワイドロゴが指定された（クリックで拡大）

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

筆者からのお知らせ

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