Follow Us On: 

WebCam Picture Tool Tutorial

Click for Larger Image
Create a new project and set the form up as show in the above diagram, making sure you named and changed the settings in the properties window correctly. Then add the code below into the IDE. If you have any trouble watch the video at the bottom of this page, and if your still stuck, post it in the forums, comment on the video, or contact me. 
Add three buttons, a listview, a picturebox, and a savefiledialog to the form. Name the buttons "btnStart" "btnStop" and "btnSave" Name the listview "lstDevices" Name the picturebox "picCapture" and name the savefiedialog "sfdImage" Assign the following property values to each of the components.
Form1.AutoScroll = True
btnStart.Text = "Start"
btnStop.Text = "Stop"
btnSave.Text = "Save"
picCapture.SizeMode = AutoSize
sfdImage.Filter = "Bitmap Images (*.bmp)|*.bmp"

Please note that in order for this to work, you will need a webcam with the appropriate drivers to run the webcam.

Public Class Form1

    Const WM_CAP As Short = &H400S

    Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10

    Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11

    Const 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 Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Integer

    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 Integer

    Declare 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 = 0


            bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)

            If bReturn Then lstDevices.Items.Add(strName.Trim)

            x += 1

        Loop Until bReturn = False

    End Sub


    Private Sub OpenPreviewWindow()

        Dim iHeight As Integer = picCapture.Height

        Dim iWidth As Integer = picCapture.Width

        hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, picCapture.Handle.ToInt32, 0)

        If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then

            SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)

            SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)

            SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)

            SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, SWP_NOMOVE Or SWP_NOZORDER)

            btnSave.Enabled = True

            btnStop.Enabled = True

            btnStart.Enabled = False



            btnSave.Enabled = False

        End If

    End Sub


    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

        Dim data As IDataObject

        Dim bmap As Image

        SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

        data = Clipboard.GetDataObject()

        If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then

            bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)

            picCapture.Image = bmap


            btnSave.Enabled = False

            btnStop.Enabled = False

            btnStart.Enabled = True

            If sfdImage.ShowDialog = DialogResult.OK Then

                bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)

            End If

        End If

    End Sub


    Private Sub ClosePreviewWindow()

        SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)


    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub


    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click


        btnStart.Enabled = False

        btnStop.Enabled = True

    End Sub


    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click


        btnStart.Enabled = True

        btnStop.Enabled = False

    End Sub

End Class