VB.Net摄像头编程类

 [一]

 
 
 

  
  
  

   
   
   

    

     
     
     

      
      
      Imports System.
      
      Windows.
      
      Forms
     
     
     
    

     
     
     

      
      
      Imports System.
      
      Drawing
     
     
     
    

     
     
     

      
      
       
     
     
     
    

     
     
     

      
      
      Public Class WebCamera
     
     
     
    

     
     
     

      
      
       
     
     
     
    

     
     
     

      
      
      #Region 
      
      
      "Api/constants"
     
     
     
    

     
     
     

      
      
       
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WS_CHILD 
      
      
      As 
      
      
      Integer = &H40000000
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WS_VISIBLE 
      
      
      As 
      
      
      Integer = &H10000000
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const SWP_NOMOVE 
      
      
      As Short = &H2S
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const SWP_NOZORDER 
      
      
      As Short = &H4S
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_USER 
      
      
      As Short = &H400S
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_DRIVER_CONNECT 
      
      
      As 
      
      
      Integer = WM_USER + 
      
      
      10
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_DRIVER_DISCONNECT 
      
      
      As 
      
      
      Integer = WM_USER + 
      
      
      11
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_SET_VIDEOFORMAT 
      
      
      As 
      
      
      Integer = WM_USER + 
      
      
      45
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_SET_PREVIEW 
      
      
      As 
      
      
      Integer = WM_USER + 
      
      
      50
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_SET_PREVIEWRATE 
      
      
      As 
      
      
      Integer = WM_USER + 
      
      
      52
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_GET_FRAME 
      
      
      As 
      
      
      Long = 
      
      
      1084
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_COPY 
      
      
      As 
      
      
      Long = 
      
      
      1054
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_START 
      
      
      As 
      
      
      Long = WM_USER
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_STOP 
      
      
      As 
      
      
      Long = 
      
      
      (WM_CAP_START + 
      
      
      68
      
      
      )
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_SEQUENCE 
      
      
      As 
      
      
      Long = 
      
      
      (WM_CAP_START + 
      
      
      62
      
      
      )
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_SET_SEQUENCE_SETUP 
      
      
      As 
      
      
      Long = 
      
      
      (WM_CAP_START + 
      
      
      64
      
      
      )
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Const WM_CAP_FILE_SET_CAPTURE_FILEA 
      
      
      As 
      
      
      Long = 
      
      
      (WM_CAP_START + 
      
      
      20
      
      
      )
     
     
     
    

     
     
     

      
      
       
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      Declare 
      
      
      Function SendMessage Lib 
      
      
      "user32" Alias 
      
      
      "SendMessageA" 
      
      
      (ByVal hwnd 
      
      
      As 
      
      
      Integer, ByVal wMsg 
      
      
      As 
      
      
      Integer, ByVal wParam 
      
      
      As Short, ByVal lParam 
      
      
      As 
      
      
      String
      
      
      ) 
      
      
      As 
      
      
      Integer
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      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
     
     
     
    

     
     
     

      
      
          
      
      
      Private 
      
      
      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