[Windows Mobile] 调用摄像头的代码

只有代码

        Try
            Dim ccd As CameraCaptureDialog
            ccd = New CameraCaptureDialog
            ccd.Title = "Capture Demo"
            ccd.Mode = CameraCaptureMode.Still
            ccd.Owner = Me
            ccd.Resolution = New Size(640, 480)
            ccd.StillQuality = CameraCaptureStillQuality.High
            ccd.InitialDirectory = "/My Documents"
            If ccd.ShowDialog() = Windows.Forms.DialogResult.OK And ccd.FileName <> "" Then
                picCapture.Image = New Bitmap(ccd.FileName)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try