视频上的文字叠加层（VB.net）

Question

您可能在其他论坛上看到了这个问题，但我仍然无法解决此问题。我设法使文本覆盖了几秒钟，但之后消失了，并显示以下图像（它不会停止程序）：

error displayed photo

当我遇到上述错误时，我有这样的代码：

    Private Sub CAPTURAR(sender As Object, eventArgs As NewFrameEventArgs)


    If ButtonVIDEO.BackColor = Color.Black Then 'IF YOU ARE NOT RECORDING ......
        BMP = DirectCast(eventArgs.Frame.Clone(), Bitmap) 'PUT THE DATA IN THE BITMAP
        PictureBox1.Image = DirectCast(eventArgs.Frame.Clone(), Bitmap) 'PRESENTS THEM AT THE PICTURE BOX

        'TO DISPLAY THE TEXT OVERLAY

        Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
        g.DrawString(New String("new"), New Font("Arial", 16), Brushes.White, New Rectangle(10, 10, 200, 50))
            g.Dispose()


    Else 'IF YOU ARE RECORDING ...
        Try
            BMP = DirectCast(eventArgs.Frame.Clone(), Bitmap)     'PUT THE DATA IN THE BITMAP
            PictureBox1.Image = DirectCast(eventArgs.Frame.Clone(), Bitmap)  'PRESENTS THEM AT THE PICTURE BOX
            ESCRITOR.WriteVideoFrame(BMP)  'KEEP THEM IN THE MEMORY
        Catch ex As Exception
        End Try


    End If



End Sub

完整的代码在这里：AForge WebCam Recorder

提前感谢

Answer 1

我实际上尝试过：

'TO DISPLAY THE TEXT OVERLAY
Try
        Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
        g.DrawString(New String("new"), New Font("Arial", 16), Brushes.White, New Rectangle(10, 10, 200, 50))
            g.Dispose()
Catch ex As Exception
        End Try

但是我在显示的视频上遇到同样的错误