返回值返回WebCameraId

Question

Try 
    For Each Camera As WebCameraId In frmMain.wcc.GetVideoCaptureDevices 

     If cbCamera.SelectedItem = Camera.GetHashCode Then 
      txtCamName.Text = Camera.Name 
     End If 
    Next 

Catch ex As Exception 
    MsgBox(ex.Message) 
End Try 

如何将值返回给webcameraId？

Answer 1

该命令解决了这个问题

Try 
     Dim CamId As New List(Of WebCameraId)(frmMain.wcc.GetVideoCaptureDevices()) 
     For Each Camera As WebCameraId In frmMain.wcc.GetVideoCaptureDevices 

      If cbCamera.SelectedItem = Camera.GetHashCode Then 
       txtCamName.Text = Camera.Name 
       txtCamIndex.Text = CamId.IndexOf(Camera) 
       frmMain.wcc.StartCapture(CamId(txtCamIndex.Text)) 
      End If 
     Next 

    Catch ex As Exception 
     MsgBox("Error 0x03102090Cam" & ex.Message) 
    End Try 

返回相机的价值为CAMID。我现在可以使用SQL数据库中的StartCapture。