How to resize video in VB.Net Sample

Step 1: Download VideoEdit Gold ActiveX setup disk and installed it.

Step 2: Make sure installed Quick time player.

Step 3: Create New Visual Basic Project, select Windows Application.

Step 4: Select Component Tab in Toolbox, Right Click mouse and Select Add/Remove Items... , Select VideoEdit Gold Control.

Step 5: Drag the VideoEdit Gold Control from Components Tab to form.

Step 6: Add Button on form.

Step 7: Add following code in Button click event.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim idur As Double
    Dim strInputVideo As String
    strInputVideo = "c:\yourvideo.wmv"
    idur = AxVideoEdit1.GetFileDuration(strInputVideo)
    AxVideoEdit1.OutputType = VIDEOEDITLib.MYOUTPUT.QT
    AxVideoEdit1.QTVideoCompressor=0
    AxVideoEdit1.QTAudioCompressor=0
    AxVideoEdit1.QTAudioChannels=1
    AxVideoEdit1.QTAudioSampleRate=44100
    AxVideoEdit1.OutputFileWidth = 160
    AxVideoEdit1.OutputFileHeight = 120
   AxVideoEdit1.VideoSampleSize = 24
    AxVideoEdit1.InitControl()
    AxVideoEdit1.AddVideo(strInputVideo, 0, idur, 0)
    AxVideoEdit1.AddAudio(strInputVideo, 0, idur)
    AxVideoEdit1.Save("c:\testvideo.mov")
End Sub

Step 9: In this sample, we want to resize the video to 160x120, so Set the OuputFileWidth and OutputFileHeight properties.

Step 10: double click the VideoEdit Gold control, add following code in Complete event.

Private Sub AxVideoEdit1_Complete(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles      AxVideoEdit1.Complete
    AxVideoEdit1.Complete
    MsgBox("Completed")
End Sub

Step 11: Now you can run the sample.