VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像选编.docVIP

VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像 2012-04-19?? HYPERLINK /userhome/9744575 \t _blank weikong66?? HYPERLINK /100bd/blog/item/52c7978a9b3cdf719f2fb4a5.html \t _blank 文章来源??阅?2583??转?81  HYPERLINK javascript:void(0); 转藏到我的图书馆  HYPERLINK javascript:void(0); 微信分享： VB代码VB小程序：实现USB摄像头视频图像的监控、截图、录像 2010-10-10 0:36 当前位置： HYPERLINK /100bd \t _blank 首页 HYPERLINK /100bd/blog/item/71c97dfa29998b6f024f5623.html \t _blank VB 小程序 实现USB摄像头视频图像的监控、截图、录像 54. 实现USB摄像头视频图像的监控、截图、录像 　　本程序是“ HYPERLINK /100bd/blog/item/57e0f9fd38e3508cb801a0af.html \t _blank ???像头视频监控”的改进，仅用四个按钮实现对摄像头视频的监控、截图、录像，可以分别保存为图片文件和视频文件。保存的视频文件可以用媒体播放机（Windows Media Player）、 暴风影音等软件进行播放，轻松实现家庭录像制作。　　利用电脑配备的 USB 摄像头进行视频控制，要用到两个 API 函数：capCreateCaptureWindow 和 SendMessage。　　capCreateCaptureWindow 的作用是创建一个视频窗口，摄像头捕捉到的视频图像在此窗口内显示，函数返回值就是代表此窗口的句柄。此函数的 VB 声明：?????? Private Declare Function capCreateCaptureWindow Lib avicap32.dll Alias capCreateCaptureWindowA (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As LongDim ctCapWin As Long　　各参数意义如下：??????lpszWindowName?视频窗口的窗口标题??????dwStyle?窗口模式，设置值可用下面数值，也可组合使用：??????????? WS_Child：视频窗口是子窗口，位于应用程序主窗口内。否则是独立的窗口。??????????? WS_Visible：视频窗口可见??????????? WS_Caption：视频窗口有标题栏??????????? WS_ThickFrame：视频窗口有边框??????X?视频窗口位置x坐标??????Y?视频窗口位置y坐标??????nWidth???? 视频窗口宽度??????nHeight???? 视频窗口高度??????hwndParent?创建视频窗口的主窗口，设置为：Me.hWnd??????nID?视频ID　　视频窗口创建后，剩下的事情就是用 SendMessage 向该窗口发送各种消息，实现对摄像头的控制。 以下是完整代码，在 VB6 和 WindowsXP 下调试通过：在窗体放置4个控件：Command1、Command2、Command3、Command4程序调试时要注意：终止程序要用运行中的 Form1 窗口关闭。不要使用 VB 主窗口的菜单命令或 VB 工具栏上的关闭按钮，这样无法关闭打开的视频窗口，导致 VB 无响应。如果 VB 无响应，只有用系统任务管理器才能终止 VB 进程，调试过程中所做的修改将丢失。本人原创，转载请注明来源： HYPERLINK /100bd/blog/item/52c7978a9b3cdf719f2fb4a5.html /100bd/blog/item/52c7978a9b3cdf719f2fb4a5.htmlPrivate Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg