VB Windows窗体程序：实现摄像头启动与二维码扫描一键自动完成

没问题，我来帮你把两个按钮的功能合并成一个，实现启动摄像头后自动扫描二维码的效果。下面是具体的实现步骤和代码示例：

核心思路 #

把原来的「启动摄像头」和「手动扫描」逻辑整合到同一个按钮里，让按钮兼具启动扫描和停止扫描的切换功能，同时在摄像头启动后，自动持续捕获帧并进行二维码识别，直到成功识别或者用户手动停止。

具体代码实现 #

首先，我们需要添加几个全局变量来控制扫描状态和定时捕获：

' 控制扫描状态的标记
Private isScanning As Boolean = False
' 定时捕获摄像头帧的定时器
Private webcamScanTimer As Timer

然后修改按钮的点击事件（可以把原来的Button1重命名为ButtonScan，更直观）：

Private Sub ButtonScan_Click(sender As Object, e As EventArgs) Handles ButtonScan.Click
    If Not isScanning Then
        ' 启动流程：开启摄像头+启动自动扫描
        StartWebcam()
        TextBox1.Clear()
        
        ' 初始化定时器，每隔100毫秒捕获一次帧（可根据需要调整间隔）
        webcamScanTimer = New Timer()
        webcamScanTimer.Interval = 100
        ' 绑定定时器触发事件，用来执行二维码识别
        AddHandler webcamScanTimer.Tick, AddressOf AutoScanQRCode
        webcamScanTimer.Start()
        
        isScanning = True
        ' 切换按钮文本，给用户明确的状态反馈
        ButtonScan.Text = "停止扫描"
    Else
        ' 停止流程：关闭扫描+关闭摄像头
        webcamScanTimer.Stop()
        RemoveHandler webcamScanTimer.Tick, AddressOf AutoScanQRCode
        webcamScanTimer.Dispose()
        ' 这里需要你有对应的停止摄像头的方法，比如StopWebcam()
        StopWebcam()
        
        isScanning = False
        ButtonScan.Text = "开始扫描"
    End If
End Sub

接下来编写自动扫描的核心方法，在定时器触发时捕获帧并识别二维码：

Private Sub AutoScanQRCode(sender As Object, e As EventArgs)
    ' 假设你有GetWebcamFrame()方法获取当前摄像头的图像帧（Bitmap格式）
    Dim currentFrame As Bitmap = GetWebcamFrame()
    If currentFrame IsNot Nothing Then
        Try
            ' 使用ZXing.NET（常用的开源二维码识别库）进行识别
            Dim qrReader As New BarcodeReader()
            ' 指定只识别QR码，提升识别效率
            qrReader.Options.PossibleFormats = New List(Of BarcodeFormat) From {BarcodeFormat.QR_CODE}
            Dim scanResult As Result = qrReader.Decode(currentFrame)
            
            If scanResult IsNot Nothing Then
                ' 识别成功，显示结果并自动停止扫描
                TextBox1.Text = scanResult.Text
                MessageBox.Show("二维码识别成功：" & scanResult.Text)
                
                ' 自动停止扫描流程
                webcamScanTimer.Stop()
                RemoveHandler webcamScanTimer.Tick, AddressOf AutoScanQRCode
                webcamScanTimer.Dispose()
                StopWebcam()
                isScanning = False
                ButtonScan.Text = "开始扫描"
            End If
        Catch ex As Exception
            ' 捕获识别过程中的异常，避免程序崩溃（比如图像格式错误）
            Debug.WriteLine("二维码识别出错：" & ex.Message)
        Finally
            ' 一定要释放图像资源，避免内存泄漏
            currentFrame.Dispose()
        End Try
    End If
End Sub

额外优化建议 #

• 如果你的摄像头库自带帧捕获事件（比如AForge.NET的NewFrame事件），可以不用定时器，直接在帧事件里处理识别，这样效率更高：

  ' 假设你的摄像头对象有NewFrame事件
  Private Sub WebcamDevice_NewFrame(sender As Object, e As NewFrameEventArgs) Handles WebcamDevice.NewFrame
      If isScanning Then
          ' 克隆帧对象避免资源冲突
          Dim frame As Bitmap = DirectCast(e.Frame.Clone(), Bitmap)
          ' 这里执行上面的二维码识别逻辑
          ' ...识别代码...
          frame.Dispose()
      End If
  End Sub
  

• 确保你已经引用了ZXing.NET库（可以通过NuGet安装，搜索ZXing.Net即可）。
• 一定要实现StopWebcam()方法，用来释放摄像头资源，否则摄像头会一直被占用无法关闭。

内容的提问来源于stack exchange，提问作者Aki Jirou