文件名称:VB视频捕捉实例.rar
文件大小:247KB
文件格式:RAR
更新时间:2022-07-30 05:19:23
VB源码-多媒体技术
VB视频捕捉,部分代码: '创建视频窗口 '读取驱动程序列表 capGetDriverDescriptionA 0, lpszName, 100, lpszVer, 100 '创建视频窗口程序 lwndC = capCreateCaptureWindowA(lpszName, WS_CAPTION Or WS_THICKFRAME Or WS_VISIBLE Or WS_CHILD, -5, -30, Pic1.Width - 100, Pic1.Height - 100, Pic1.hwnd, 0) '把捕捉窗口连接到一个捕捉设备 If capDriverConnect(lwndC, 0) Then ' '来使预览模式的缩放有效或者无效 capPreviewScale lwndC, True '发送给捕捉窗口来设置在预览模式下帧的显示频率 capPreviewRate lwndC, 66 '发送给捕捉窗口来使预览模式有效或者失效 capPreview lwndC, True '调整窗体的在小及显示格式 SetWindowPos lwndC, HWND_BOTTOM, 0, 0, 430, 350, SWP_NOMOVE Or SWP_NOZORDER Else
【文件预览】:
codesc.net
----视频捕捉()
--------工程1.vbw(77B)
--------MSSCCPRJ.SCC(190B)
--------Form1.frx(61B)
--------工程1.RES(1.1MB)
--------Module1.bas(9KB)
--------Form1.frm(9KB)
--------工程1.vbp(902B)