Step 1: Download VideoEdit Gold ActiveX setup disk and installed it.
Step 2: Create New Visual Basic Project, select Windows Application.
Step 3: Select Component Tab in Toolbox, Right Click mouse and Select Add/Remove Items... , Select VideoEdit Gold Control.
Step 4: Drag the VideoEdit Gold Control from Components Tab to form.
Step 5: Add Button on form.
Step 6: 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 strInputVideo As String strInputVideo = "c:\yourvideo.wmv" AxVideoEdit1.OutputType = VIDEOEDITLib.MYOUTPUT.VCD_PAL AxVideoEdit1.VideoSampleSize = 24 AxVideoEdit1.InitControl() AxVideoEdit1.AddVideo(strInputVideo, 5, 10, 0) AxVideoEdit1.AddAudio(strInputVideo, 5, 10) AxVideoEdit1.Save("c:\testvideo.mpg") End Sub |
Step 8: In this sample, we want to cut the video from start from 5 second to
10 second.
Step 9: 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 10: Now you can run the sample.