VB.Net摄像头编程类

关注

VIP免费原创最新推荐文章于 2025-08-08 10:46:55 发布 3.1k 阅读 AI 写同款· GEO 优化 ›

VB.NET操作免驱摄像头 首先，检查并确保正确安装并引用了适合您免驱摄像头的库（如或摄像头厂商的 SDK）。尝试使用DirectShow或更简单的库（如AForge.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
     
     
    
    
     
     
      
        
     
     
    
    
     
     
      
      #End Region