Platform :

Popular Solution Go   Back

VB.NET - How to convert video file to MOV format 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.VideoSampleSize = 24
    AxVideoEdit1.InitControl()
    AxVideoEdit1.AddVideo(strInputVideo, 0, idur, 0)
    AxVideoEdit1.AddAudio(strInputVideo, 0, idur)
    AxVideoEdit1.Save("c:\testvideo.mov")

End Sub

Step 8: 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 9: Now you can run the sample.