1、把2个dll放到Foxtable的安装目录2、如果电脑没有摄像头就会出错,
全局代码
Public _Cams As DCap.Filters = New DCap.Filters()
改为
Public _Cams As DCap.Filters
GetCams函数
try
Dim f As DCap.Filter
_Cams = New DCap.Filters()
_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
catch
msgbox("没有摄像头")
end try
其他所有用到_Cams的地方都判断一下是不是空值
[此贴子已经被作者于2018/11/26 20:37:24编辑过]