网络摄像头未显示在picturebox1中

如何解决网络摄像头未显示在picturebox1中

我正在尝试从连接到USB驱动器的网络摄像头捕获提要。我已经测试过网络摄像头，并且该网络摄像头可以在其他软件中运行，但是无法在我的vb代码中使用。

我不确定如何获取代码以显示所有相关的WebCam设备，因为我已将2连接到系统。在我设法生成的所有设备列表中，是Microsoft WDM Image Capture（Win32），并且我的pictureBox1对象中没有网络摄像头。

这是我到目前为止的代码...

    Private Sub LoadDeviceList()
    Dim strName As String = Space(100)
    Dim strVer As String = Space(100)
    Dim bReturn As Boolean
    Dim x As Integer = 0
    Do
        bReturn = capGetDriverDescriptionA(x,strName,100,strVer,100)
        lstDevices.Items.Add(strName.Trim)
        x += 1
    Loop Until bReturn = False
    End Sub

    Private Sub OpenPreviewWindow()
    Dim iHeight As Integer = picCapture.Height
    Dim iWidth As Integer = picCapture.Width
    hHwnd = capCreateCaptureWindowA(iDevice,WS_VISIBLE Or WS_CHILD,640,480,picCapture.Handle.ToInt32,0)
    If SendMessage(hHwnd,WM_CAP_DRIVER_CONNECT,0) Then
        SendMessage(hHwnd,WM_CAP_SET_SCALE,True,0)
        SendMessage(hHwnd,WM_CAP_SET_PREVIEWRATE,66,WM_CAP_SET_PREVIEW,0)
        SetwindowPos(hHwnd,HWND_BottOM,picCapture.Width,picCapture.Height,SWP_NOMOVE Or SWP_NOZORDER)
        btnSave.Enabled = True
        btnStop.Enabled = True
        btnStart.Enabled = False
    Else
        DestroyWindow(hHwnd)
        btnSave.Enabled = False
    End If
    End Sub

任何帮助将不胜感激...