VB保存PictureBox中摄像头的内容

来源:百度知道 编辑:UC知道 时间:2024/05/10 04:55:02
我用网上很流行的一种方法,把摄像头的内容传递到PictureBox控件中,可是用SavePicture Picture1.Picture,App.Path & "A.BMP"却不行,还蹦出个“参数无效”的错误,请高人指点迷津
解决问题者,追加悬赏50
Option Explicit

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 Long

Private Const WS_CHILD = &H40000000
Private Const WS_VISIBLE = &H10000000
Private Const WM_USER = &H400
Private Const WM_CAP_START = &H400
Private Const WM_CAP_EDIT_COPY = (WM_CAP_START 30)
Private Const WM_CAP_DRIVER_CONNECT = (WM_CAP_START 10)
Private Const WM_CAP_SET_PREVIEWRATE = (WM_CAP_START 52)
Private Const WM_CAP_SET_OVERLAY = (WM_CAP_START 51)
Private Const WM_CAP_SET_PREVIE

厄,Picture还有一个参数,你试一下吧:SavePicture Picture1.Image,App.Path & "A.BMP"

"我用虚拟摄像头,怎么程序显示的是黑色"这个我不知道你用的啥虚拟摄像头...
"但是保存的图片是Picture1.BackColor的颜色"是因为你虚拟摄像头没有图片传输给Picture1