Foxtable(狐表)用户栏目专家坐堂 → [求助]在一个窗口调取2个摄像头,怎么老是只显示1个?


  共有2136人关注过本帖树形打印复制链接

主题:[求助]在一个窗口调取2个摄像头,怎么老是只显示1个?

帅哥哟,离线,有人找我吗?
yjm789000
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1711 威望:0 精华:0 注册:2016/7/18 20:17:00
[求助]在一个窗口调取2个摄像头,怎么老是只显示1个?  发帖心情 Post By:2019/5/27 23:35:00 [显示全部帖子]

[求助]在一个窗口调取2个摄像头,怎么老是只显示1个?


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

使用的代码是下面的:

'获取摄像头列表
Dim camList As WinForm.ComboBox = e.Form.Controls("CamList")
Dim camList1 As WinForm.ComboBox = e.Form.Controls("CamList1")
Functions.Execute("GetCams")
'显示摄像头列表
Dim i As Integer
camList.Items.Clear
camList1.Items.Clear
For i=0 To _CamList.Count - 1
    camList.Items.Add(_CamList(i))
    camList1.Items.Add(_CamList(i))
Next
'默认选中第一个摄像头
If _CamList.Count > 1 And _CamIndex < 1
    _CamIndex = 1
End If
camList.SelectedIndex = _CamIndex
camList1.SelectedIndex = _CamIndex
'激活预览
If _CamList.Count > 0
_CamIndex = 1
    Functions.Execute("SetCamView",_CamIndex,e.Form.Controls("CamView"))
Functions.Execute("SetCamView",_CamIndex,e.Form.Controls("CamView1"))

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

 回到顶部
帅哥哟,离线,有人找我吗?
yjm789000
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1711 威望:0 精华:0 注册:2016/7/18 20:17:00
回复:(yjm789000)[求助]在一个窗口调取2个摄像头,...  发帖心情 Post By:2019/5/28 22:17:00 [显示全部帖子]


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

改了代码后,后面获取到的是黑屏

 回到顶部
帅哥哟,离线,有人找我吗?
yjm789000
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1711 威望:0 精华:0 注册:2016/7/18 20:17:00
回复:(有点甜) 具体实例发上来测试。我测试...  发帖心情 Post By:2019/5/29 21:57:00 [显示全部帖子]

甜老师,我换成两个扩展口后,可以显示了。但是又出现新问题了。我第一次进去,是没问题的。但是关闭窗口后,第二次再进去,就全部都是黑屏了,完全用不了

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:点位软件.zip

是里面的“增加点位” 窗口里


 回到顶部