VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像
当前位置：首页gtVB小程序gt实现USB摄像头视频图像的监控、截图、录像54实现USB摄像头视频图像的监控、截图、录像
本程序是“摄像头视频监控”的改进，仅用四个按钮实现对摄像头视频的监控、截图、录像，可以分别保存为图片文件和视频文件。保存的视频文件可以用媒体播放机（Wi
dowsMediaPlayer）、暴风影音等软件进行播放，轻松实现家庭录像制作。
利用电脑配备的USB摄像头进行视频控制，要用到两个API函数：capCreateCaptureWi
dow和Se
dMessage。
capCreateCaptureWi
dow的作用是创建一个视频窗口，摄像头捕捉到的视频图像在此窗口内显示，函数返回值就是代表此窗口的句柄。此函数的VB声明：
PrivateDeclareFu
ctio
capCreateCaptureWi
dowLibquotavicap32dllquotAliasquotcapCreateCaptureWi
dowAquotByVallpszWi
dowNameAsStri
gByValdwStyleAsLo
gByValXAsLo
gByValYAsLo
gByVal
WidthAsLo
gByVal
HeightAsLo
gByValhw
dPare
tAsLo
gByVal
IDAsLo
gAsLo
g
DimctCapWi
AsLo
g各参数意义如下：lpszWi
dowName视频窗口的窗口标题dwStyle窗口模式，设置值可用下面数值，也可组合使用：WS_Child：视频窗口是子窗口，位于应用程序主窗口内。否则是独立的窗口。WS_Visible：视频窗口可见WS_Captio
：视频窗口有标题栏WS_ThickFrame：视频窗口有边框X视频窗口位置x坐标Y视频窗口位置y坐标
Width视频窗口宽度
Height视频窗口高度hw
dPare
t创建视频窗口的主窗口，设置为：MehW
d
ID视频ID
f视频窗口创建后，剩下的事情就是用Se
dMessage向该窗口发送各种消息，实现对摄像头的控制。
以下是完整代码，在VB6和Wi
dowsXP下调试通过：在窗体放置4个控件：Comma
d1、Comma
d2、Comma
d3、Comma
d4程序调试时要注意：终止程序要用运行中的Form1窗口关闭。不要使用VB主窗口的菜单命令或VB工具栏上的关闭按钮，这样无法关闭打开的视频窗口，导致VB无响应。如果VB无响应，只有用系统任务管理器才能终止VB进程，调试过程中所做的修改将丢失。本人原创，转载请注明来源：httphibaiducom100bdblogitem52c7978a9b3cdf719f2fb4a5htmlPrivateDeclareFu
ctio
Se
dMessageLibquotuser32quotAliasquotSe
dMessageAquotByValhW
dAsLo
gByValwMsgAsLo
gByValwParamAsLo
glParamAsA
yAsLo
gPrivateDeclareFu
ctio
capCreateCaptureWi
dowLibquotavicap32dllquotAliasquotcapCreateCaptureWi
dowAquotByVallpszWi
dowNameAsStri
gByValdwStyleAsLo
gByValXAsLo
gByValYAsLo
gByVal
WidthAsLo
gByVal
HeightAsLo
gByValhw
dPare
tAsLo
gByVal
IDAsLo
gAsLo
gDimctCapWi
AsLo
gctAviPathAsr