Platform : Windows 9X, XP, Vista, Window 7
For Windows Developers who need to add picture in picture effect, video mixing, audio mixing and add subtitle on video, create subtitle file, video audio editing in Adobe Director, ASP, ASP.net, php, c++ , c#, vb.net , vb, delphi, vfp.
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.