Frame Grab, Help Code C# to VbNET

Question

0.00/5 (No votes)

See more:

Hi Guys,
I'm porting a video capture project from c# to vbnet, but i've some problem to understand this code and i can't to translate to VBNet.
I'm using DirectX.Capture and DShowNET libraries

The original code and sample is here:http://www.codeproject.com/KB/audio-video/SampleGrabber.aspx[^]

Can Anyone help me to convert those lines? I cant' to create the handle to FrameEvent2

C#

private void button1_Click(object sender, System.EventArgs e)
{
    this.capture.FrameEvent2 += new Capture.HeFrame(this.CaptureDone);
    this.capture.GrapImg();
}
private void CaptureDone(System.Drawing.Bitmap e)
{
    this.pictureBox1.Image=e;
    // Show only the selected frame ...
    // If you want to capture all frames, then remove the next line
    this.capture.FrameEvent2 -= new Capture.HeFrame(this.CaptureDone);
}
private void button2_Click(object sender, System.EventArgs e)
{
    if( (this.pictureBox1 != null)&&
        (this.pictureBox1.Image != null)&&
        (this.imageFileName.Text.Length > 0) )
    {
        this.pictureBox1.Image.Save(this.imageFileName.Text,
            System.Drawing.Imaging.ImageFormat.Bmp);
    }
}

Thanks to everyone!

Posted 3-Dec-10 0:48am

Member 3880839

Add a Solution

3 solutions

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

#realJSOP · Answer 1 · 2010-12-03T01:28:00

Should go something like this:

VB

private Sub button1_Click(object sender, System.EventArgs e) handles button1.Click
    AddHandler me.capture.FrameEvent2, Capture.HeFrame(this.CaptureDone)
    me.capture.GrapImg()
End Sub
<br />
private Sub CaptureDone(System.Drawing.Bitmap e)
    me.pictureBox1.Image = e    
    // Show only the selected frame ...    
    // If you want to capture all frames, then remove the next line
    RemoveHandler me.capture.FrameEvent2, Capture.HeFrame(this.CaptureDone)
End Sub
<br />
private Sub button2_Click(object sender, System.EventArgs e) Handles button2.Click
    if (me.pictureBox1 != null AndAlso
        me.pictureBox1.Image Not null AndAlso
        me.imageFileName.Text.Length > 0) Then
        me.pictureBox1.Image.Save(this.imageFileName.Text,
                                  System.Drawing.Imaging.ImageFormat.Bmp)    
    End If
End Sub

Member 3880839 · Answer 2 · 2010-12-03T02:18:00

Solution 2

Hi John, i tried your solution but the debug says this error:

AddHandler .CaptureInfo.FrameEvent2, AddressOf.CaptureInfo.HeFrame(Me.CaptureDone)

VB

'HeFrame' is a type in 'DirectX.Capture.Capture'

VB

Argument not specified for parameter 'e' of 'Private Sub CaptureDone(e As System.Drawing.Bitmap)'.

Posted 3-Dec-10 2:18am

Member 3880839

Comments

trying2programme 8-Apr-11 1:51am

Hi there,

Did you manage to work this out? I am converting exactly the same code and am getting the same error.

Many thanks

NicoMartiSlimm · Answer 3 · 2014-01-10T09:31:00

Solution 3

This could help:
RemoveHandler Me.capture.FrameEvent2, New Capture.HeFrame(AddressOf Captura_Realizada)

Posted 10-Jan-14 9:31am

NicoMartiSlimm

Comments

CHill60 11-Jan-14 11:05am

3 years ago it might have done

Frame Grab, Help Code C# to VbNET

3 solutions

Solution 1

Solution 2

Solution 3

Add your solution here

Preview 0

Frame Grab, Help Code C# to VbNET

3 solutions

Solution 1

Solution 2

Solution 3

Add your solution here

Preview 0

Existing Members

...or Join us