Click here to Skip to main content
Click here to Skip to main content

Accessing WebCam in Visual Basic 6

, 11 Mar 2006
Rate this:
Please Sign up or sign in to vote.
Accessing WebCam in Visual Basic 6

Introduction

This is a simple program and can be use to access webcam from the visual basic 6.

This program checks whether webcam is available or not. If not available simple gives

a message otherwise capture from the webcam and displays in picture box.

This program has 3 diffrent functionality.

  1. Capture from the webcam
  2. Close the webcam
  3. Format the video

Source Code

'This program check whether webcam is available or not
' if available then capture and displays in picture box

'Created by Dixanta Bahadur Shrestha
'Created Date: 12-March-2006

'Programmer does not garuntees if  not functions well

Global Const ws_child As Long = &H40000000
Global Const ws_visible As Long = &H10000000

Global Const WM_USER = 1024
Global Const wm_cap_driver_connect = WM_USER + 10
Global Const wm_cap_set_preview = WM_USER + 50
Global Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Global Const WM_CAP_DRIVER_DISCONNECT As Long = WM_USER + 11
Global Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_USER + 41
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (
    ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, 
    ByVal lParam As Long) As Long
Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias 
    "capCreateCaptureWindowA" (
    ByVal a As String, ByVal b As Long, ByVal c As Integer, 
    ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, 
    ByVal g As Long, ByVal h As Integer) As Long


 

Dim hwdc As Long
Dim startcap As Boolean
Private Sub cmdCapture_Click()
Dim temp As Long

  hwdc = capCreateCaptureWindow("Dixanta Vision System", 
      ws_child Or ws_visible, 0, 0, 320, 240, Picture1.hWnd, 0)
  If (hwdc <> 0) Then
    temp = SendMessage(hwdc, wm_cap_driver_connect, 0, 0)
    temp = SendMessage(hwdc, wm_cap_set_preview, 1, 0)
    temp = SendMessage(hwdc, WM_CAP_SET_PREVIEWRATE, 30, 0)
    startcap = True
    Else
    MsgBox ("No Webcam found")
  End If
End Sub

Private Sub cmdClose_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
startcap = False
End If
End Sub

Private Sub cmdVideoFormat_Click()
 Dim temp As Long
 If startcap = True Then
  temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End If
End Sub

Feel free to contact me at dixanta@hotmail.com

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

dixanta
Web Developer
Australia Australia
Hi,
 
Its Dixanta Shrestha here from Kathmandu, Nepal. I graduated from University of Ballarat(Sydney, Australia) in Bachelor's of Information Technology in 2005.
 
I started working as programmer since 2000 as visual Basic 6 and asp programmer. During my working period I worked on php,.net and java too and strong knowledge in Database like mysql,oracle,sql server and so on.
 
I enjoy programming and have finished several projects till now. Currently I work for my own and most of my clients are from Europe, Australia and America. So far I have positive feedback from all of my clients and hope that in future too.
 
If you are planning to give away your project on reasonable and competitive prices please feel free to contact me.
 
you can get me on following email addresses:
dixanta@hotmail.com
dixanta@yahoo.com
dixanta@gmail.com
 
Thank you

Comments and Discussions

 
Questioncompatibility?? PinmemberMarc De Joya5-Jan-13 5:49 
Questioncoding Pinmemberfaizal asep19-Dec-12 8:51 
GeneralMy vote of 3 Pinmembercheffzbros24-Jan-11 13:55 
GeneralMy vote of 5 Pinmemberguidoespel2-Nov-10 13:08 
GeneralMy vote of 4 PinmemberBee Nugraha8-Jul-10 0:25 
GeneralMy vote of 5 Pinmembersantosh547129-Jun-10 9:44 
Generalunderstanding the code- can anyone explain this code. Pinmemberpuneeth raj29-Jun-10 0:14 
QuestionHow to Capture Images Solutions Pinmemberdixanta19-May-10 7:56 
QuestionHow to save it to pictures Pinmembercskult19-Apr-10 5:44 
AnswerRe: How to save it to pictures Pinmemberdixanta19-May-10 7:56 
Generalhi Pinmemberitwasntm36-Sep-09 2:03 
Generalcapture image Pinmembershiv00138-Jul-09 4:25 
Generalsave captured image in MS access Pinmembermadhu harchandani7-Dec-08 20:17 
Questionwebcam image properties [modified] Pinmembernotsleepy25-Mar-08 1:52 
GeneralError catching & alternative Pinmembershadesbass18-Dec-07 10:02 
Generala request from GHANASHYAM PinadminSean Ewington11-Oct-07 3:22 
Questionhelp !!! Pinmembermrqi29-Aug-07 6:44 
QuestionVB 2005 implementation? PinmemberJohn_Mac20-Aug-06 15:57 
AnswerRe: VB 2005 implementation? PinmemberCosi Fan Tutte23-Jan-07 20:55 
Questionhow to capture & save in image format PinmemberKautsar29-Apr-06 12:39 
AnswerRe: how to capture & save in image format Pinmemberlengochuan19-Nov-06 3:35 
QuestionReal rate? Pinmembered id16-Mar-06 4:53 
QuestionArticle? Pinmemberjonathan1513-Mar-06 3:37 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web02 | 2.8.140821.2 | Last Updated 12 Mar 2006
Article Copyright 2006 by dixanta
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid