Question

用VB怎么制作摄像头拍照并保存到本地的程序？

用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 LongPrivate Const WS_CHILD = &H40000000Private Const WS_VISIBLE = &H10000000Private Const WM_USER = &H400Private Const WM_CAP_START = &H400Private 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_PREVIEW = (WM_CAP_START + 50)Private Const WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START + 11)Private Preview_Handle As LongPrivate Declare Function SendMessage Lib "user32" _Alias "SendMessageA" ( _ByVal hwnd As Long, _ByVal wMsg As Long, _ByVal wParam As Long, _lParam As Any) As LongPrivate Function CapturePicture(nCaptureHandle As Long) As StdPictureClipboard.ClearSendMessage nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0Set CapturePicture = Clipboard.GetDataEnd FunctionPrivate Sub Command1_Click()SavePicture Picture1.Picture, "c:\a.bmp"End SubPrivate Sub Command2_Click()Picture1.Picture = CapturePicture(Preview_Handle)End SubPrivate Sub Form_Load()Preview_Handle = capCreateCaptureWindow("Video", WS_CHILD + WS_VISIBLE, 2, 2, 220, 156, Me.hwnd, 1)SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, 0, 0SendMessage Preview_Handle, WM_CAP_SET_PREVIEWRATE, 1, 0SendMessage Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0End SubPrivate Sub Form_Unload(Cancel As Integer)SendMessage Preview_Handle, WM_CAP_DRIVER_DISCONNECT, 0, 0End Sub

Answer 1

capCreateCaptureWindow("Video", WS_CHILD WS_VISIBLE, 2, 2, 220, 156, Me.hwnd, 1)

设备名称对么？
详细的查下API吧