1、内部函数代码是:
'获得摄像头名称列表
'_Cams,_CamList在全局代码定义
Dim f As DCap.Filter
'_Cams = New DCap.Filters() '这行改为下面的代码
'''''''''''''''''''''''
Try
_Cams = New DCap.Filters()
Catch
MessageBox.Show("未找到摄像头","提示")
Return Nothing 'Return
End Try
'''''''''''''''''''''''''''''
_CamList.Clear()
_CamList.Add("无")
Dim c As Integer
For c=0 To _Cams.VideoInputDevices.Count - 1
f = _Cams.VideoInputDevices(c)
_CamList.Add(f.Name)
Next
2、全局变量代码是:
临时共享变量
lic _dVars(100) As Date
Public _bVars(100) As Boolean
Public _iVars(100) As Integer
Public _lVars(100) As Long
'摄像头
Public _Cap As DCap.Capture
Public _Cams As DCap.Filters = New DCap.Filters()
Public _Cam As DCap.Filter
Public _CamList As New List(Of String)
Public _CamIndex As Integer
<!--EndFragment-->