[RESOLVED] Draw Image From File on Video

[joko markono]

Hi Guys,

I'm trying to overlay an image on a video stream. How can i resize and position my image on the video? So far, here is my code:

Private Sub CAPTURE(ByVal sender As Object, ByVal 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
                                
                                Dim imagePath As String = "C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg"
                                PictureBox1.Image = Image.FromFile(imagePath)

                            Else 'IF YOU ARE 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
                                ESCRITOR.WriteVideoFrame(PictureBox1.Image)  'KEEP THEM IN THE MEMORY

                            End If

                           
    End Sub

[joko markono]

I answer my own question:

Private Sub CAPTURE(ByVal sender As Object, ByVal 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
                                Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
                                g.DrawString(datareceive_label.Text, New Font("courier new", 10), Brushes.White, New Rectangle(10, 10, 1000, 500))
                                Dim h As Graphics = Graphics.FromImage(PictureBox1.Image)
                                h.DrawString(datareceive_label2.Text, New Font("courier new", 10), Brushes.White, New Rectangle(10, 22, 1000, 500))

                               
                                'Eg. address: C:\Users\jaimy\Desktop\Visual Studio\Advance HMI\OTHER IMAGE\WS LOGO.png

                                If ConfirmButton.BackColor = Color.LimeGreen Then
                                    Dim x As Integer = 100
                                    Dim y As Integer = 100
                                    Dim width As Integer = 450
                                    Dim height As Integer = 150
                                    Dim imagePath As Image = Image.FromFile(PhotoAddressRichTextBox.Text)
                                    Dim i As Graphics = Graphics.FromImage(PictureBox1.Image)
                                    i.DrawImage(imagePath, x, y, width, height)
                                End If

                            Else 'IF YOU ARE 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
                                Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
                                g.DrawString(datareceive_label.Text, New Font("courier new", 10), Brushes.White, New Rectangle(10, 10, 1000, 500))
                                Dim h As Graphics = Graphics.FromImage(PictureBox1.Image)
                                h.DrawString(datareceive_label2.Text, New Font("courier new", 10), Brushes.White, New Rectangle(10, 22, 1000, 500))

                                ESCRITOR.WriteVideoFrame(PictureBox1.Image)  'KEEP THEM IN THE MEMORY

                            End If

                          

    End Sub