Video Edit Gold SDK ActiveX

Video Edit Gold SDK ActiveX

Platform : Windows 10, Windows 8, Vista, Windows 7, XP

For Windows Developers who need to add video editing features, slideshow effect, video mixing, audio mixing and add subtitle on video, create subtitle file in C#, Vb.Net , VB6, Delphi, Vfp, Adobe Director, ASP, ASP.net, php, C++.

Popular Solution Go   Back

VB.NET - How to resize MOV video in VB.Net Sample

Step 1: Download Video Edit 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.