资源描述：
《vb代码vb小程序：实现usb摄像头视频图像的监控、截图、录像》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像2012-04-19 weikong66 文章来源 阅 2583 转 81转藏到我的图书馆微信分享：VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像2010-10-100:36当前位置：首页>VB小程序>实现USB摄像头视频图像的监控、截图、录像54.实现USB摄像头视频图像的监控、截图、录像 本程序是“摄像头视频监控”的改进，仅用四个按钮实现对摄像头视频的监控、截图、录像，可以分别保存为图片文件和视频文件。保存的视频文件可以用媒体播放机（Windo
2、wsMediaPlayer）、暴风影音等软件进行播放，轻松实现家庭录像制作。 利用电脑配备的USB摄像头进行视频控制，要用到两个API函数：capCreateCaptureWindow和SendMessage。 capCreateCaptureWindow的作用是创建一个视频窗口，摄像头捕捉到的视频图像在此窗口内显示，函数返回值就是代表此窗口的句柄。此函数的VB声明： PrivateDeclareFunctioncapCreateCaptureWindowLib"avicap32.dll"Alias"capCreateC
3、aptureWindowA"(ByVallpszWindowNameAsString,ByValdwStyleAsLong,ByValXAsLong,ByValYAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhwndParentAsLong,ByValnIDAsLong)AsLongDimctCapWinAsLong 各参数意义如下： lpszWindowName 视频窗口的窗口标题 dwStyle 窗口模式，设置值可用下面数值，也可组合使用：
4、 WS_Child：视频窗口是子窗口，位于应用程序主窗口内。否则是独立的窗口。 WS_Visible：视频窗口可见 WS_Caption：视频窗口有标题栏 WS_ThickFrame：视频窗口有边框 X 视频窗口位置x坐标 Y 视频窗口位置y坐标 nWidth 视频窗口宽度 nHeight 视频窗口高度 hwndParent 创建视频窗口的主窗口，设置为：Me.hWnd nID 视频ID 视频窗口创建
5、后，剩下的事情就是用SendMessage向该窗口发送各种消息，实现对摄像头的控制。''以下是完整代码，在VB6和WindowsXP下调试通过：'在窗体放置4个控件：Command1、Command2、Command3、Command4'程序调试时要注意：终止程序要用运行中的Form1窗口关闭。不要使用VB主窗口的菜单命令或VB工具栏上的关闭按钮，这样无法关闭打开的视频窗口，导致VB无响应。如果VB无响应，只有用系统任务管理器才能终止VB进程，调试过程中所做的修改将丢失。'本人原创，转载请注明来源：http://hi.baidu.co
6、m/100bd/blog/item/52c7978a9b3cdf719f2fb4a5.htmlPrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhWndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPrivateDeclareFunctioncapCreateCaptureWindowLib"avicap32.dll"Alias"capCreateCaptureWindowA"
7、(ByVallpszWindowNameAsString,ByValdwStyleAsLong,ByValXAsLong,ByValYAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhwndParentAsLong,ByValnIDAsLong)AsLongDimctCapWinAsLong,ctAviPathAsString,ctPicPathAsString,ctConnectAsBoolean'视频窗口控制消息常数ConstWS_Child=&H40000000:ConstWS_
8、Visible=&H10000000ConstWS_Caption=&HC00000:ConstWS_ThickFrame=&H40000ConstWM_User=&H400
