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

测试了一下，支持多摄像头的。SetCamView代码改一下，如

'在指定控件上预览摄像头视频
'参数0 : 摄像头序号
'参数1 : 视频预览控件, 建议使用Panel,PictureBox第一次调用不显示图像

Dim ViewCamIndex As String = Args(0)
Dim ViewControl As WinForm.Control = Args(1)
Dim cam As DCap.Filter
If _Cap IsNot Nothing
    _Cap.PreviewWindow = Nothing
End If
If ViewCamIndex > 0 And ViewCamIndex < _CamList.Count Then
    Functions.Execute("GetCams")
    cam = _Cams.VideoInputDevices(ViewCamIndex-1)
    Try
        Dim Cap = New DCap.Capture(cam,Nothing)
        Cap.PreviewWindow = ViewControl.basecontrol
        Cap.GrapImg()

        vars(ViewCamIndex) = cap
    Catch ex As Exception
        MessageBox.Show("视频预览出现错误." & ex.Message,"提示",MessageBoxButtons.OK)
    End Try
End If

对应的，你其余代码也要修改（涉及到_cap变量的，要改成 vars(0)、vars(1) 才行。细节自己调整

具体实例发上来测试。我测试没问题。

beforeClose事件把对象注销啊

vars("1").PreviewWindow = Nothing
vars("1").Dispose()
vars("1") = Nothing
vars("2").PreviewWindow = Nothing
vars("2").Dispose()
vars("2") = Nothing