vb调用摄像头拍照源码

VB调用摄像头拍照的源码如下：

首先，需要在VB中添加Windows Media Player库的引用。在VB的开发环境中，依次点击“项目”→“引用”，然后勾选“Windows Media Player”，点击“确定”按钮。

接下来，在VB的窗体上添加一个Windows Media Player控件，可以通过拖拽的方式进行添加。然后，在窗体的代码区域添加以下代码：

Private Sub Form_Load()
    ' 设置Windows Media Player控件的父窗口句柄为当前窗体
    MediaPlayer1.WindowlessVideo = True
    MediaPlayer1.Parent = Me
End Sub

Private Sub Command1_Click()
    Dim objCamera As Object
    ' 创建摄像头对象实例
    Set objCamera = CreateObject("WIA.CommonDialog")

    Dim objImage As Object
    ' 使用摄像头对象进行拍照操作
    Set objImage = objCamera.ShowAcquireImage
    
    If Not objImage Is Nothing Then
        ' 保存拍摄的照片到指定路径
        objImage.SaveFile "D:\photo.jpg"
        MsgBox "照片保存成功！"
    Else
        MsgBox "拍照失败！"
    End If
End Sub

以上代码的Command1_Click事件处理程序中，通过创建WIA.CommonDialog对象实现对摄像头的调用，然后调用ShowAcquireImage方法来进行拍照操作。成功拍照后，通过SaveFile方法将照片保存到指定路径，最后弹出提示框显示保存结果。

接下来，可以在VB的窗体上添加一个按钮（命名为Command1）用于触发拍照操作。当点击该按钮时，就会执行以上的Command1_Click事件处理程序，从而实现调用摄像头并拍照的功能。