アプリから複数のウィンドウを表示するには？［Windows 8.1ストアアプリ開発］：WinRT／Metro TIPS

' 1. 新しいCoreApplicationViewオブジェクトを作る（間接的にWindowオブジェクトとApplicationViewオブジェクトが一緒に生成される）
Dim coreApplicationView _
  = Windows.ApplicationModel.Core.CoreApplication.CreateNewView()

Dim newAppView As Windows.UI.ViewManagement.ApplicationView = Nothing

' 生成されたCoreApplicationViewオブジェクトのスレッドで、2.の処理を行う
Await coreApplicationView.Dispatcher.RunAsync(
    Windows.UI.Core.CoreDispatcherPriority.Normal,
    Sub()
      ' 2a. 生成されたApplicationViewオブジェクトを取得する
      newAppView = Windows.UI.ViewManagement.ApplicationView.GetForCurrentView()
      ' GetForCurrentViewメソッドの名前にある「CurrentView」とは、生成されたCoreApplicationViewオブジェクトの
      ' スレッドに結び付けられているApplicationViewオブジェクトのことである

      ' 2b. 生成されたWindowオブジェクトに画面をセットする
      Dim newFrame = New Frame()
      newFrame.Navigate(GetType(SecondaryPage))
      Window.Current.Content = newFrame
      ' このWindow.Currentプロパティは、生成されたCoreApplicationViewオブジェクトの
      ' スレッドに結び付けられているWindowオブジェクトである
    End Sub
  )

' 3. 新しいウィンドウ（アプリビュー）を隣に表示する
Dim viewId As Integer = newAppView.Id
Await Windows.UI.ViewManagement.ApplicationViewSwitcher.TryShowAsStandaloneAsync(viewId)

' ApplicationViewオブジェクトを保持しておくコレクション
Private _viewDictionary As Dictionary(Of String, Windows.UI.ViewManagement.ApplicationView) _
  = New Dictionary(Of String, Windows.UI.ViewManagement.ApplicationView)()

' SecondaryPageのウィンドウ（アプリビュー）を、必要なら作成してから隣に表示する
Public Async Function ShowSecondaryViewAsync(page As Type, param As String) _
                        As System.Threading.Tasks.Task

  Dim viewKey = CreateKeyString(page, param) ' このメソッドは下記参照
  If (Not _viewDictionary.ContainsKey(viewKey)) Then
    ' まだ存在しないウィンドウ（アプリビュー）なので、作成する。
    ' ここから2a／2bまでは前述のコードと同様
    Dim coreApplicationView _
      = Windows.ApplicationModel.Core.CoreApplication.CreateNewView()
    Dim newAppView As Windows.UI.ViewManagement.ApplicationView = Nothing
    Await coreApplicationView.Dispatcher.RunAsync(
        Windows.UI.Core.CoreDispatcherPriority.Normal,
        Sub()
          ' 2a. 生成されたApplicationViewを取得する
          newAppView = Windows.UI.ViewManagement.ApplicationView.GetForCurrentView()

          …… 2b.は省略（前述のコードと同様）……
        End Sub
      )

    ' 2c. 生成されたApplicationViewをメモリに保持しておく
    _viewDictionary(viewKey) = newAppView
  End If

  ' 3. viewKeyで特定されるウィンドウ（アプリビュー）を隣に表示する
  Dim success As Boolean = Await Windows.UI.ViewManagement.ApplicationViewSwitcher _
                                  .TryShowAsStandaloneAsync(_viewDictionary(viewKey).Id)
End Function

' Dictionaryに格納するときのキー文字列を生成する
Private Function CreateKeyString(page As Type, param As String) As String
  ……省略……
End Function

' 各ウィンドウ（アプリビュー）にメッセージを伝えるためのイベント
Public Event MessageEvent(msg As String)

Private _currentDispatcher As Windows.UI.Core.CoreDispatcher

' コンストラクター
Public Sub New()

  ……省略……

  _currentDispatcher = Window.Current.Dispatcher
  AddHandler App.CurrentApp.MessageEvent, AddressOf App_MessageEvent
End Sub

Private Async Sub App_MessageEvent(msg As String)
  Try
    ' このイベントハンドラーは別のスレッドから呼び出されるので、
    ' 画面作成時に保持しておいたディスパッチャーを使って、この画面のUIスレッドで実行する
    Await _currentDispatcher.RunAsync(Windows.UI.Core.CoreDispatcherPriority.Normal,
      Sub()
        Me.MessageTextBlock.Text = msg
      End Sub
    )
  Catch ex As Exception
  End Try
End Sub