以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  摄像头照相的一个问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92116)
--  作者：wandongliang
--  发布时间：2016/10/26 14:04:00
--  摄像头照相的一个问题
 分享“摄像头拍照”窗口。
支持的一定要顶一下哦！

 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=41778


这个实例，在安装有摄像头的情况下，没有问题，但是如果没有安装摄像头，就会出现报错，并且导致项目打不开。

请问各位老师，怎样修改，才能在没有摄像头的情况下，也能正常打开项目，并且不出现报错？
--  作者：有点蓝
--  发布时间：2016/10/26 14:49:00
--  
全局代码Public _Cams As DCap.Filters = New DCap.Filters()
改成Public _Cams As DCap.Filters 

GetCams函数

\'获得摄像头名称列表
\'_Cams,_CamList在全局代码定义
Try
    _Cams = New DCap.Filters()
    
    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
    MessageBox.Show("未找到摄像头","提示")
    Return Nothing
End Try
--  作者：zhouhai39
--  发布时间：2019/1/4 17:46:00
--  
我已改Public _Cams As DCap.Filters 
和GetCams函数 都改了，但还是出现了这个错误：
“UserCode”的类型初始值设定项引发异常。
项目打得开，但数据不加载 。怎么办？
我的机子没有安装摄像头
--  作者：有点甜
--  发布时间：2019/1/4 17:48:00
--  

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=125358&skin=0