返回值返回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。