Dim nStyle As Long, T As Long
Dim Command1 As WinForm.Panel
If ctCapWin = 0 Then '创建一个视频窗口,大小:640*480
T = Command1.Top + Command1.Height * 1.1 '就是计算垂直距离，使用控件直接计算
'nStyle = WS_Child + WS_Visible + WS_Caption + WS_ThickFrame '子窗口(在Form1内)+可见+标题栏+边框
nStyle = WS_Child + WS_Visible '视频窗口无标题栏和边框
'nStyle = WS_Visible '视频窗口为独立窗口,关闭主窗口视频窗口也会自动关闭
ctCapWin = capCreateCaptureWindow("我创建的视频窗口", nStyle, 0, T, 640, 480, e.Form.BaseForm.Handle, 0)
End If
'将视频窗口连接到摄像头,如无后面两条语句视频窗口画面不会变化
SendMessage(ctCapWin, WM_CAP_Connect, 0, 0) '连接摄像头
SendMessage(ctCapWin, WM_CAP_Set_PreView, 1, 0) '第三个参数:1-预览模式有效,0-预览模式无效
SendMessage(ctCapWin, WM_CAP_Set_PreViewRate, 30, 0) '第三个参数:设置预览显示频率为每秒 30 帧
ctConnect = True
加好友 
发短信
Post By：2016/8/30 9:23:00 [只看该作者]
