MapControlを使ってみよう！

リスト1: MainPage.xaml

<Page
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:local="using:UniversalApp6"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    xmlns:Maps="using:Windows.UI.Xaml.Controls.Maps"
    x:Class="UniversalApp6.MainPage"
    mc:Ignorable="d">
    <Grid Background="{ThemeResource ApplicationPageBackgroundThemeBrush}">
        <Maps:MapControl x:Name="myMap" HorizontalAlignment="Left" Height="640" VerticalAlignment="Top" Width="1024"  Margin="247,0,0,0"/>（1）
    </Grid>
</Page>

リスト2: MapServiceTokenにkeyを指定したMapControl

<Maps:MapControl x:Name="myMap" HorizontalAlignment="Left" Height="640" VerticalAlignment="Top" Width="1024"  Margin="247,0,0,0" MapServiceToken="Bing Map Dev Centerで取得したkeyを指定する" />

リスト3: MainPage.xaml.vb

‘ デバイスの現在の地理的な場所を取得したり、時間の経過によるデバイスの位置を追跡するための
‘ API を提供するWindows.Devices.Geolocation名前空間をインポートします。
Imports Windows.Devices.Geolocation
‘ シーケンシャル アクセス ストリームおよびランダム アクセス ストリームに対する読み取りと書き込みのサ
‘ ポートを提供するWindows.Storage.Streams名前空間をインポートします。
Imports Windows.Storage.Streams

‘ マップ コントロールのクラスを定義するWindows.UI.Xaml.Controls.Maps名前空間をインポート
‘ します。
Imports Windows.UI.Xaml.Controls.Maps

Public NotInheritable Class MainPage
    Inherits Page

‘ ●地図が読み込まれた時の処理
    Private Sub myMap_Loaded(sender As Object, e As RoutedEventArgs) Handles myMap.Loaded
        ‘ ファイルの入出力ストリームデータへのランダムアクセスを提供する、
‘ RandomAccessStreamReferenceクラス型の変数、mapIconStreamReference
‘ 変数を宣言します。
        Dim mapIconStreamReference As RandomAccessStreamReference

        ‘ RandomAccessStreamReference.CreateFromUriメソッドで、指定した URIにラン
‘ ダムアクセス ストリームを作成します。ここでは、UriにソリューションエクスプローラーのImage
‘ フォルダーにあるmappin.pngを指定しています。
        mapIconStreamReference = RandomAccessStreamReference.CreateFromUri(New Uri("ms-appx:///Image/mappin.png"))

        ‘ 地理的位置を表すBasicGeoPosition構造体の緯度（Latitude）と
‘ 経度（Longitude）を指定し、myMapのCenterプロパティに指定します。
‘ ここの経度と緯度は筆者の居住地の近辺を示しています。
‘ 指定した住所の緯度と経度を知りたい場合は、下記のURLで知ることができます。
‘ http://www.bing.com/maps/
        myMap.Center = New Geopoint(New BasicGeoposition With {.Latitude = 33.854034, .Longitude = 132.7798})

　　　　　　‘　新しいMapIconクラスのインスタンスmyMapIconを生成します。
　　　　　　‘　MapIconクラスはMapControlのオプションのテキストとプッシュピンなどイメージを表示する
　　　　　　‘　クラスです。
        Dim myMapIcon As MapIcon = New MapIcon

　　　　　　‘　マップの中心を、MapControlのMapIconの地理的位置に設定します。
        myMapIcon.Location = myMap.Center

　　　　　　‘　MapIconのアンカーポイント（NormalizedAnchorPointプロパティ）を、ｘを0.5、yを
‘ 1.0の位置に指定します。
　　　　　　‘　NormalizedAnchorPointプロパティの既定値は、画像の左上隅を表す (0, 0) を値と
　　　　　　‘　して作成されたPointオブジェクトです。
        myMapIcon.NormalizedAnchorPoint = New Point(0.5, 1.0)

       ‘ Titleプロパティには「私の位置」と指定しておきます。
        myMapIcon.Title = "私の位置"

　　　　　　‘　MapIconオブジェクトのImageプロパティに、ソリューションエクスプローラー内のImage
　　　　　　‘　フォルダーにある画像を参照するmapIconStreamReferenceオブジェクトを指定します。
        myMapIcon.Image = mapIconStreamReference

        ‘ MapIconオブジェクトのZIndexに0を指定して、Mapより前面に表示するようにします。
        myMapIcon.ZIndex = 0

　　　　　　‘　MapElements.AddメソッドでMapにMapIconオブジェクトを追加します。これで指定し
‘ た経度と緯度の位置にmappin.pngが表示されます。
        myMap.MapElements.Add(myMapIcon)

        ‘ 地図の拡大率を17に指定します。
        myMap.ZoomLevel = 17
    End Sub

‘　●「3D」表示ボタンがクリックされた時の処理
    Private Async Sub Button1_Click(sender As Object, e As RoutedEventArgs) Handles Button1.Click

　　　　　‘　もし地図が「3D表示」をサポートしていた場合の処理です。
        If myMap.Is3DSupported Then
　　　　　　　　‘　地図の表示スタイルを3D表示のMapStyle.Aerial3DWithRoadsに指定します。
            myMap.Style = MapStyle.Aerial3DWithRoads

　　　　　　　　‘　地理的な位置を記述する基本的な情報を提供する、新しいBasicGeoPositionクラ
‘ スのインスタンス、dougoPositionオブジェトを作成します。
            Dim dougoPosition As BasicGeoposition = New BasicGeoposition

           ‘ dougoPositionオブジェクトの経度と緯度を指定します。この経度と緯度は筆者の住居
‘ の近く指しています。
            dougoPosition.Latitude = 33.854034
            dougoPosition.Longitude = 132.7798

           ‘ dougoPositionを引数にして、地理的な点を記述する新しいGeoPointクラスのインス
‘ タンス、dougoPointを作成します。
            Dim dougoPoint As Geopoint = New Geopoint(dougoPosition)

           ‘ 1つの地理的な位置、半径、方位、およびピッチに基づいてマップに表示するシーンを作
‘ 成するMapScene.CreateFromLocationAndRadiusメソッドに、dougoPointの
‘ 位置を指定し、半径に「400」、「方位」に「135」、ピッチに「60」を指定し、
‘ DougoSceneシーンを作成します。
            Dim dougoScene As MapScene = MapScene.CreateFromLocationAndRadius(dougoPoint, 400, 135, 60)

            ‘ TrySceneAsyncメソッドで、引数にdougoSceneを指定して、指定したシーンを使
‘ 用してMapControlに表示されるマップのシーンを表示します。
            ‘ これで道後周辺の地図が「3D表示」になります。
　　　　　　　　　Await myMap.TrySetSceneAsync(dougoScene)

‘ ●「ストリートビュー」ボタンがクリックされたときの処理です
    Private Async Sub Button2_Click(sender As Object, e As RoutedEventArgs) Handles Button2.Click
　　　　　　‘　地図がストリートビューに対応している場合の処理です。
　　　　　　‘　日本地図はストリートビューに対応していませんので、今回はNew Yorkの地図を表示させ
‘ ています。
        If myMap.IsStreetsideSupported Then
          　‘　地理的な位置を記述する基本的な情報を提供する、新しいBasicGeoPositionクラ
‘ スのインスタンス、NewYorkPositionオブジェトを作成します。
            Dim NewYorkPosition As BasicGeoposition = New BasicGeoposition

            ‘ NewYorkPositionオブジェクトの経度と緯度を指定します。この経度と緯度は米国ニ
‘ ューヨークの経度と緯度です。
            NewYorkPosition.Latitude = 40.782001 '33.854034
            NewYorkPosition.Longitude = -73.831703 '132.7798

            ‘ NewYorkPositionを引数にして、地理的な点を記述する新しいGeoPointクラスの
‘ インスタンス、NewYorkPointを作成します。
            Dim NewYorkPoint As Geopoint = New Geopoint(NewYorkPosition)

　　　　　　　　‘　NewYorkPositionを引数にして、StreetsidePanorama.FindNearbyAsyncメソ
‘　ッドで、指定した地理的位置に近いStreetsidePanoramaを作成し、
‘　panoramaNewYork変数で参照します。
‘　StreetsidePanoramaクラスは、ストリート・レベルの観点からの地理的な場所のパノラ
‘ マビューを表わすクラスです。
            Dim panoramaNewYork As StreetsidePanorama = Await StreetsidePanorama.FindNearbyAsync(NewYorkPoint)

　　　　　　　　　‘　指定した経度緯度のStreetPanoramaが表示可能な場合は、指定されたパノラマ
 　　‘　ビュー（panoramaNewYork）に基づいてStreetsideExperienceを作成します。
            If panoramaNewYork Is Nothing = False Then
                myMap.CustomExperience = New StreetsideExperience(panoramaNewYork)
            End If
        End If
    End Sub

‘　●「道路表示」ボタンをクリックしたときの処理
    Private Sub Button3_Click(sender As Object, e As RoutedEventArgs) Handles Button3.Click
　　　　　　‘　地図の表示スタイルを道路表示にします。
        myMap.Style = MapStyle.Road
    End Sub
End Class