'获得摄像头名称列表
'_Cams,_CamList在全局代码定义
Dim f As DCap.Filter
_Cams = New DCap.Filters()
If _Cams.VideoInputDevices.Count = 0 Then
Else
_CamList.Clear()
_CamList.Add("无")
Dim c As Integer
For c = 0 To _Cams.VideoInputDevices.Count - 1
f = _Cams.VideoInputDevices(c)
_CamList.Add(f.Name)
Next
End If
此主题相关图片如下:1.png
此主题相关图片如下:2.png
[此贴子已经被作者于2024/7/3 22:45:43编辑过]
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=92116&skin=0