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


  共有2135人关注过本帖平板打印复制链接

主题:[求助]在一个窗口调取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

 回到顶部