home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Add_WAV_so2173521272010.psc / frmMain.frm < prev    next >
Text File  |  2010-01-27  |  1KB  |  33 lines
  1. VERSION 5.00
  2. Begin VB.Form fMain 
  3.    Caption         =   "Add WAV sound to AVI video Example"
  4.    ClientHeight    =   1905
  5.    ClientLeft      =   120
  6.    ClientTop       =   450
  7.    ClientWidth     =   5220
  8.    ScaleHeight     =   1905
  9.    ScaleWidth      =   5220
  10.    StartUpPosition =   3  'Windows Default
  11.    Begin VB.CommandButton Command1 
  12.       Caption         =   $"frmMain.frx":0000
  13.       Height          =   1095
  14.       Left            =   480
  15.       TabIndex        =   0
  16.       Top             =   360
  17.       Width           =   4215
  18.    End
  19. End
  20. Attribute VB_Name = "fMain"
  21. Attribute VB_GlobalNameSpace = False
  22. Attribute VB_Creatable = False
  23. Attribute VB_PredeclaredId = True
  24. Attribute VB_Exposed = False
  25. Private Sub Command1_Click()
  26. FileCopy App.Path & "\Source.avi", App.Path & "\Dest.avi"
  27. Call AddAudioStream(App.Path & "\Dest.avi", App.Path & "\Source.wav") 'AddAudioStream(Destination AVI FilePath, Source WAV FilePath)
  28. MsgBox "Play ""Dest.avi"" file, please."
  29. 'To use this function, need 2 files
  30. '1. Existing avi video file(Without sound) -> ex) App.Path & "\Dest.avi"
  31. '2. Existing wav audio file -> ex) App.Path & "\Source.wav"
  32. End Sub
  33.