Public Class Form1
Const WM_CAP As Short = &H400S
Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
Const WS_CHILD As Integer = &H40000000
Const WS_VISIBLE As Integer = &H10000000
Const SWP_NOMOVE As Short = &H2S
Const SWP_NOSIZE As Short = 1
Const SWP_NOZORDER As Short = &H4S
Const HWND_BOTTOM As Short = 1
Dim iDevice As Integer = 0
Dim hHwnd As Integer
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean
Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Short, ByVal hWndParent As Integer, ByVal nID As Integer) As IntegerDeclare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, ByVal cbVer As Integer) As Boolean
Private Sub LoadDeviceList()Dim strName As String = Space(100)Dim strVer As String = Space(100)Dim bReturn As Boolean
Dim x As Integer = 0DobReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
x += 1If bReturn Then lstDevices.Items.Add(strName.Trim)Loop Until bReturn = FalseEnd Sub
hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Private Sub OpenPreviewWindow()Dim iHeight As Integer = picCapture.HeightDim iWidth As Integer = picCapture.WidthOr WS_CHILD, 0, 0, 640, 480, picCapture.Handle.ToInt32, 0)If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) ThenSendMessage(hHwnd, WM_CAP_SET_SCALE,
SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
SendMessage(hHwnd, WM_CAP_SET_PREVIEW,
SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, SWP_NOMOVE
btnSave.Enabled = True, 0)True, 0)Or SWP_NOZORDER)TruebtnStop.Enabled = TruebtnStart.Enabled = FalseElseDestroyWindow(hHwnd)
btnSave.Enabled = FalseEnd IfEnd Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.ClickDim data As IDataObjectDim bmap As ImageSendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
data = Clipboard.GetDataObject()If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Thenbmap =
picCapture.Image = bmap
ClosePreviewWindow()
btnSave.Enabled = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)FalsebtnStop.Enabled = FalsebtnStart.Enabled = TrueIf sfdImage.ShowDialog = DialogResult.OK Thenbmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)End IfEnd IfEnd Sub
SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)
DestroyWindow(hHwnd)Private Sub ClosePreviewWindow()End Sub
LoadDeviceList()Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd Sub
OpenPreviewWindow()
btnStart.Enabled = Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.ClickFalsebtnStop.Enabled = TrueEnd Sub
ClosePreviewWindow()
btnStart.Enabled = Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.ClickTruebtnStop.Enabled = False
EndEnd Sub Class
