主题：拍照

全局代码

Public Declare Function camInitCameraLib Lib "CmCapture.dll" Alias "camInitCameraLib" () As Long

Public Declare Function camGetDevCount Lib "CmCapture.dll" Alias "camGetDevCount" (byref count As Long) As Long 

Public Declare Function camGetDevName Lib "CmCapture.dll" Alias "camGetDevName" (ByVal devIndex As Long ,width As Long, height As Long) As String 

Public Declare Function camOpenDev Lib "CmCapture.dll" Alias "camOpenDev" (ByVal devIndex As Long,subtype As Long) As Long '关闭设备

Public Declare Function camCloseDev Lib "CmCapture.dll" Alias "camCloseDev" (ByVal devIndex As Long) As Long  '关闭设备

调用如：

dim iRetUSB as integer = camInitCameraLib()

if iRetUSB = 0 then

msgbox("初始化成功")

end if

最好找设备厂家要c#的调用实例

建议使用全局变量

窗口afterload

vars("当前") = e.form.name

打开窗口1的时候关闭窗口2

然后通过判断vars("当前")来判断哪个窗口是打开的。