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 idur As Double Dim strInputVideo As String strInputVideo = "c:\yourvideo.wmv" idur = AxVideoEdit1.GetFileDuration(strInputVideo) AxVideoEdit1.OutputType = VIDEOEDITLib.MYOUTPUT.ANIMATED_GIF AxVideoEdit1.VideoSampleSize = 24 AxVideoEdit1.InitControl() AxVideoEdit1.AddVideo(strInputVideo, 0, idur, 0) AxVideoEdit1.AddAudio(strInputVideo, 0, idur) AxVideoEdit1.Save("c:\testvideo.gif") End Sub |
Step 7: 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 8: Now you can run the sample.