以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 检测摄像头 (http://foxtable.net/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
|