Webカメラで撮影した画像に音声コメントを付けて保存・再生するには：2カ月で160本作った還暦開発者が送る10のアプリ開発ノウハウ（6）（4/4 ページ）

    Private Async Function DataShow() As Task
        Dim myFolder As StorageFolder = Windows.Storage.KnownFolders.PicturesLibrary
        Dim mySubFolder = Await myFolder.CreateFolderAsync("ImageVoiceRecord", CreationCollisionOption.OpenIfExists)
        myPictureFiles = Await mySubFolder.GetFilesAsync
        If myPictureFiles.Count = 0 Then
            Dim message As New MessageDialog("画像データがありません。戻ってください。")
            Await message.ShowAsync
            Exit Function
        End If
        For Each result In myPictureFiles
            Dim bmp As New BitmapImage
            bmp.SetSource(Await result.OpenReadAsync)
            Dim myStackPanel As New StackPanel
            With myStackPanel
                .Orientation = Orientation.Horizontal
                .Margin = New Thickness(5)
            End With
            Dim myImage As New Image
            With myImage
                .Width = 160
                .Height = 120
                .Source = bmp
            End With
            myStackPanel.Children.Add(myImage)
            GridView1.Items.Add(myStackPanel)
        Next
        AddHandler GridView1.Loaded, AddressOf GridView1_Loaded
    End Function

    Private Async Sub GridView1_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles GridView1.SelectionChanged
        Try
            playButton.IsEnabled = True
            myIndex = GridView1.SelectedIndex
            pauseButton.IsEnabled = False
            stopButton.IsEnabled = False
            Dim myFolder As StorageFolder = Windows.Storage.KnownFolders.PicturesLibrary
            Dim mySubFolder = Await myFolder.CreateFolderAsync("ImageVoiceRecord", CreationCollisionOption.OpenIfExists)
            Dim myFiles = Await mySubFolder.GetFilesAsync
            Dim bmp As New BitmapImage
            bmp.SetSource(Await myFiles(myIndex).OpenReadAsync)
            Image1.Source = bmp
            Dim wavFolder = KnownFolders.PicturesLibrary
            Dim myWavSubFolder = Await wavFolder.CreateFolderAsync("ImageRecordSoundFile", CreationCollisionOption.OpenIfExists)
            Dim myWavFiles = Await myWavSubFolder.GetFilesAsync
            Dim getWavFile = Await myWavSubFolder.GetFilesAsync(Path.GetFileNameWithoutExtension(myWavFiles(myIndex).Path) & ".mp4")
            fileNameTextBlock.Text = Path.GetFileNameWithoutExtension(myWavFiles(myIndex).Path)
            Dim soundStream = Await getWavFile.OpenAsync(FileAccessMode.Read)
            MediaElement1.SetSource(soundStream, getWavFile.ContentType)
            deleteButton.IsEnabled = True
        Catch
            Exit Sub
        End Try
    End Sub

MediaElement.SetSource(stream As Windows.Storage.Streams.IRandomAccessStream,mimeType as String)