这样的：
.......
For c=0 To _Cams.VideoInputDevices.Count - 1
f = _Cams.VideoInputDevices(c) _CamList.Add(f.Name) 这个显示名，同一个摄像头在不同的电脑会显示不一样的名字，而现在想指定用某一型号的摄像头才能用，不知道怎么指定控制！Next _Cap = New DCap.Capture(f,Nothing)
Dim propertys As System.Reflection.PropertyInfo() = _Cap.Gettype.getproperties
For Each o As System.Reflection.PropertyInfo In propertys '获取摄像头的全部属性
' output.show(o.name)
msgbox(o.name)
Next
‘后面的也可写成这样
For Each o As object In _Cap.Gettype.getproperties
output.show(o.name)
Next
[此贴子已经被作者于2017/3/26 12:52:06编辑过]
加好友 
发短信
Post By：2017/3/26 12:49:00 [显示全部帖子]
