主题：[求助]

报这个 No devices of the category

 

是你设备的问题，比如你电脑没有摄像头，但用了摄像头。

 

捕捉错误

 

Try
    Dim _Cams = New DCap.Filters()
Catch
  MessageBox.Show("未找到摄像头","提示")
End Try

你搜索一下哪里写了 New DCap.Filters()

 

加上 try catch 即可

 

比如原来 _Cams = New DCap.Filters()

改成

 

Try
    _Cams = New DCap.Filters()
Catch

    MessageBox.Show("未找到摄像头","提示")

    return
End Try

 

 

改成

 

return nothing

1、是否弹出 msgbox ？

 

2、任何写有 New DCap.Filters() 的地方，都要改啊。

Public _Cams As DCap.Filters = New DCap.Filters()

 

改成

 

Public _Cams As DCap.Filters

呃，如果没有摄像头，就不打开窗口不就行了？

 

Try
    _Cams = New DCap.Filters()

    Forms("窗口1").Show
Catch

    MessageBox.Show("未找到摄像头，不能打开此窗口", "提示")

    return
End Try

你在哪个时候打开窗口的？写在打开窗口那里去。

 

如果写在afterLoad事件这样写

 

Try
    _Cams = New DCap.Filters()
Catch

    MessageBox.Show("未找到摄像头，不能打开此窗口", "提示")

    return
End Try