Kinect v2の深度センサーから取り込んだ画像を表示する

リスト3　ウインドウが読み込まれた際の処理（MainWindow.xaml.vbの一部、リスト2の続き）

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        myKinectSensor = KinectSensor.GetDefault　　　（1）

        If myKinectSensor Is Nothing = False Then
            myDepthFrameReader = myKinectSensor.DepthFrameSource.OpenReader　　　（2）
            Dim myDepthFrameDescripton As FrameDescription = myKinectSensor.DepthFrameSource.FrameDescription　　　（3）

            DepthImageBitmap = New WriteableBitmap(myDepthFrameDescripton.Width, myDepthFrameDescripton.Height, 96.0, 96.0, PixelFormats.Gray8, Nothing)　　　（4）
            myBytesPerPixel = myDepthFrameDescripton.BytesPerPixel　　　（5）
            DepthImageFrameData = New UShort(myDepthFrameDescripton.Width * myDepthFrameDescripton.Height - 1) {}　　　（6）
            DepthImageBitmapRect = New Int32Rect(0, 0, myDepthFrameDescripton.Width, myDepthFrameDescripton.Height)　　　（7）
            DepthImageStride = myDepthFrameDescripton.Width * myBytesPerPixel　　　（8）
            AddHandler myDepthFrameReader.FrameArrived, AddressOf myDepthFrameReader_FrameArrived　　　（9）
            myKinectSensor.Open()   （10）
        End If
    End Sub

リスト4　深度（距離）フレーム到着時の処理（MainWindow.xaml.vbの一部、リスト3の続き）

    Private Sub myDepthFrameReader_FrameArrived(sender As Object, e As DepthFrameArrivedEventArgs)
        Using myDepthFrame As DepthFrame = e.FrameReference.AcquireFrame　　　（1）
            If myDepthFrame Is Nothing = False Then
                myDepthFrame.CopyFrameDataToArray(DepthImageFrameData)　　　（2）
                DepthImageBitmap.WritePixels(DepthImageBitmapRect, DepthImageFrameData, DepthImageStride, 0)　　　（3）
                Image1.Source = DepthImageBitmap　　　（4）
            End If
        End Using
    End Sub

リスト5　ウインドウを閉じる際の処理（MainWindow.xaml.vbの一部、リスト4の続き）

    Private Sub MainWindow_Closing(sender As Object, e As ComponentModel.CancelEventArgs) Handles Me.Closing
        If myDepthFrameReader Is Nothing = False Then
            myDepthFrameReader.Dispose()　　　（1）
            myDepthFrameReader = Nothing
        End If

        If myKinectSensor Is Nothing = False Then
            myKinectSensor.Close()　　　（2）
            myKinectSensor = Nothing
        End If
    End Sub
End Class