高压清洗吸污车图片:VB 制作无控件摄像头拍照(转)
来源:百度文库 编辑:九乡新闻网 时间:2024/05/03 01:08:10
一个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 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_PREVIEW = (WM_CAP_START + 50)
Private Const WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START + 11)
Private Preview_Handle As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Function CapturePicture(nCaptureHandle As Long) As StdPicture
Clipboard.Clear
SendMessage nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0
Set CapturePicture = Clipboard.GetData
End FunctionPrivate Sub cmdCap_Click()
Picture1.Picture = CapturePicture(Preview_Handle)
End SubPrivate Sub cmdSave_Click()
On Error Resume Next
SavePicture Picture1.Picture, "C:\" & Format(Date, "dd-MM-yyyy") & " " & Format(Time, "hh-mm-ss") & ".bmp"
End SubPrivate Sub Form_Load()
Preview_Handle = capCreateCaptureWindow("Video", WS_CHILD + WS_VISIBLE, 2, 2, 320, 240, Me.hwnd, 1)
SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, 0, 0
SendMessage Preview_Handle, WM_CAP_SET_PREVIEWRATE, 1, 0
SendMessage Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0
End SubPrivate Sub Form_Unload(Cancel As Integer)
SendMessage Preview_Handle, WM_CAP_DRIVER_DISCONNECT, 0, 0
End Sub
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_PREVIEW = (WM_CAP_START + 50)
Private Const WM_CAP_DRIVER_DISCONNECT = (WM_CAP_START + 11)
Private Preview_Handle As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Function CapturePicture(nCaptureHandle As Long) As StdPicture
Clipboard.Clear
SendMessage nCaptureHandle, WM_CAP_EDIT_COPY, 0, 0
Set CapturePicture = Clipboard.GetData
End FunctionPrivate Sub cmdCap_Click()
Picture1.Picture = CapturePicture(Preview_Handle)
End SubPrivate Sub cmdSave_Click()
On Error Resume Next
SavePicture Picture1.Picture, "C:\" & Format(Date, "dd-MM-yyyy") & " " & Format(Time, "hh-mm-ss") & ".bmp"
End SubPrivate Sub Form_Load()
Preview_Handle = capCreateCaptureWindow("Video", WS_CHILD + WS_VISIBLE, 2, 2, 320, 240, Me.hwnd, 1)
SendMessage Preview_Handle, WM_CAP_DRIVER_CONNECT, 0, 0
SendMessage Preview_Handle, WM_CAP_SET_PREVIEWRATE, 1, 0
SendMessage Preview_Handle, WM_CAP_SET_PREVIEW, 1, 0
End SubPrivate Sub Form_Unload(Cancel As Integer)
SendMessage Preview_Handle, WM_CAP_DRIVER_DISCONNECT, 0, 0
End Sub
VB 制作无控件摄像头拍照(转)
VB 制作摄像头拍照并保存到本地的程序(转)
VB 制作摄像头拍照并保存到本地的程序
VB自动改变控件大小-VB控件
VB Mscomm控件应用
VB控件大全属性详解
VB -控件11(二)
VB控件大全属性详解
vb控件大全,vb控件属性大全,vb控件详解(2)
vb控件大全,vb控件属性大全,vb控件详解(1)
vb控件大全,vb控件详解,vb控件属性详解(3)
VB中CommonDialog控件使用方法1
vb.net入门:CheckedListBox控件的使用
VB中 MSComm控件使用详解1
VB常用控件的属性详解
VB利用ADO控件连接access数据库
VB制作浏览器
用VB制作托盘
E63摄像头拍照技巧【学习手册】
SendMessage 实现vb、vfb 制作右击菜单(转)
VB MSFlexGrid控件的几种简单的使用方法1
VB MSFlexGrid控件的几种简单的使用方法二
VB MSFlexGrid控件的几种简单的使用方法11
VB MSFlexGrid控件的几种简单的使用方法2