以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  检测摄像头  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151891)

--  作者:nxqtxwz
--  发布时间:2020/7/6 22:24:00
--  检测摄像头

请问拍照时如何检测有没有摄像头呢?如果有就正常拍照,如果没有就退出 。

Dim camList As WinForm.ComboBox = e.Form.Controls("CamList")

。。。。。
Else
    MessageBox.Show("未检测摄像头,请先连接摄像头!","警告")
    e.Form.Close()
End If


--  作者:有点蓝
--  发布时间:2020/7/6 22:40:00
--  
if camList.item.count = 0 then
--  作者:nxqtxwz
--  发布时间:2020/7/7 9:22:00
--  

出错是怎么会事呢?


图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2020/7/7 9:27:00
--  
Dim camList As WinForm.ComboBox = e.Form.Controls("CamList")
if camList.item.count = 0 then
……

--  作者:nxqtxwz
--  发布时间:2020/7/7 10:48:00
--  

还能放哪呢

 


图片点击可在新窗口打开查看此主题相关图片如下:批注 2020-07-07 104604.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2020/7/7 10:58:00
--  
if camList.items.count = 0 then
--  作者:nxqtxwz
--  发布时间:2020/7/7 11:06:00
--  
找不到CamList的控件怎么解决呢?
--  作者:有点蓝
--  发布时间:2020/7/7 11:17:00
--  
那就去判断全局代码里的摄像头对象是否是空值,比如:

if _Cams is nothing then