主题：请帮助测试分析一下出现的错误，如何解决？

 回复10楼，不是跟你说了么？打开项目的时候，在打开窗口的时候判断一下是否有设备，没有设备就不要运行即可啊。

 

这样判断，你在使用之前，先判断。

 

try
    Dim cmr As New DCap.Filters()
catch ex As exception
    msgbox("没有设备")
End try

 关于你6楼的错误，我单独测试并没有出错。

有点甜老师，您好

麻烦您了

我可能是未说清楚

意思是

 

项目打开就出现上述错误（此时可以不打开窗口，直接进入菜单），之后关闭错误窗口，项目正常进入.

应该有无摄像头都能正常运行。不应该打开项目时出现错误，上传的简单拍照是缩小了的项目，把摄像头拔下测试出错

 对你彻底无语，你把afterOpenProject的代码Forms("拍照").Open这句代码删除就不会报错了啊。

 有或者你在 拍照 这个窗口上afterload事件 加入检测的代码

 

try     Dim cmr As New DCap.Filters() catch ex As exception     msgbox("没有设备")     Return End try

  帮你改了一下，如下，改了 全局代码 和 窗口afterload 事件

 

  

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:拍照.foxdb

谢谢