ポップアップメニューから各種コントロールを表示する

※全ページからの続きです。

Webカメラのメニューが選択された時の処理

MediaCaptureクラス型の新しいインスタンスである、myMediaCaptureオブジェクトを作成します。
InitializeAsyncメソッドでMediaCaptureを初期化します。
CaptureElementのSourceプロパティに初期化されたMediaCaptureを指定します。
StartPreviewAsyncメソッドでプレビューを開始します。Webカメラが表示されます。
非同期処理で行われるため、メソッドの先頭にAsyncを追加します。Asyncが追加されていると、その処理が非同期で行われることを意味します。

  Private Async Sub ShowWebCamera()
          myMediaCapture=Nothing
          myMediaCapture= New MediaCapture
          CaptureElement1.Visibility = Windows.UI.Xaml.Visibility.Visible
          Await myMediaCapture.InitializeAsync()
          CaptureElement1.Source = myMediaCapture
          Await myMediaCapture.StartPreviewAsync
  End Sub

画像一覧のメニューが選択された時の処理

GridView内を一度クリアしておきます。この処理を行っていないと、GridView内に画像が重複して表示されますので、注意してください。

ピクチャライブラリにアクセスします。GetFilesAsyncメソッドでピクチャライブラリ内のファイルを取得しコレクション変数myPictureFilesに格納します。
ファイル名を格納しているmyPictureFilesコレクション内のファイルを、変数myPhotoFileに格納しながら、反復処理を行います。
BitmapImageクラスの新しいインスタンスbmpオブジェクトを作成し、SetSourceメソッドに、Await myPhotoFile.OpenReadAsyncと指定して、ランダムアクセス用ストリームを開いていきます。

Imageの新しいインスタンスmyImageオブジェクトを作成します。
WidthとHeightを指定し、Sourceプロパティにbmpオブジェクトを指定します。
GridViewにAddメソッドでmyImageオブジェクトを追加していきます。
これで、GridView内に画像の一覧が水平に表示され、水平スクロールが表示されます。

非同期処理で行われるため、メソッドの先頭にAsyncを追加します。Asyncが追加されていると、その処理が非同期で行われることを意味します。

  Private Async Sub ShowImage()
      GridView1.Items.Clear() 
      ScrollViewer1.Visibility = Windows.UI.Xaml.Visibility.Visible
      Dim myFolder As StorageFolder = Windows.Storage.KnownFolders.PicturesLibrary
      myPictureFiles = Await myFolder.GetFilesAsync()
 
      For Each myPhotoFile In myPictureFiles
        Dim bmp As New BitmapImage
        bmp.SetSource(Await myPhotoFile.OpenReadAsync)
        Dim myImage As New Image
        myImage.Width = 320
        myImage.Height = 240
        myImage.Source = bmp
        GridView1.Items.Add(myImage)
      Next
  End Sub

全クリアのメニューが選択された時の処理

CaptureElementを非表示にします。
ScrollViewerを非表示にします。

  Private Sub AllClear()
       CaptureElement1.Visibility = Windows.UI.Xaml.Visibility.Collapsed
       ScrollViewer1.Visibility = Windows.UI.Xaml.Visibility.Collapsed
  End Sub

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