Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na tlačidlo " Štart " , vyberte " Všetky programy " a vyberte " Visual Studio . " Kliknite na tlačidlo " Nový" a zvoľte " projekt " pre vytvorenie nového projektu . Vyberte " Visual Studio " ako programovací jazyk a " Windows aplikácie " ako typ aplikácie . Zadajte názov projektu . Zadajte umiestnenie pre súbory projektu .
2
Dvakrát kliknite Form1.vb . Zadať cestu k lame.exe pomocou kódu : Dim WithEvents _lameShell Ako nové LameShell_lameShell.InFile = Application.StartupPath & " \\ input.mp3 " _lameShell.OutFile = Application.StartupPath & " \\ output.mp3 " _lameShell.Options = " - b 32 " _lameShell.Start ( )
3
Pridať obslužných rutín udalostí zobraziť priebeh kódovanie : Private Sub _lameShell_Progress ( ByRef Progress Ako LameProgress ) _Handles _lameShell.ProgressIf pBar.Maximum < ; > Progress.FrameMax ThenpBar.Value = 0pBar.Maximum = Progress.FrameMaxElsepBar.Value = Progress.FrameCurrentEnd IflblFeedback.Text = Progress.PercentDone & " % " a " ETA " a Progress.ETAEnd sub
4
pravým tlačidlom myši na projekt a vyberte možnosť " Nová trieda " vytvoriť novú triedu " Lame.vb. " Vytvoriť novú premennú ProcessStartInfo : Súkromná _startInfo ako New ProcessStartInfo_startInfo.FileName = " lame . exe " _startInfo.UseShellExecute = False_startInfo.RedirectStandardOutput = True_startInfo.RedirectStandardError = True_startInfo.CreateNoWindow = TRUE
5
Vytvorte Reader , aby výstup lame.exe : Private Sub LameReader ( ) Dim oneline ako String_lameProcess.Start ( ) oneline = _lameProcess.StandardError.ReadLine ( ) Aj keď nie je oneline Je NothingoneLine = _lameProcess.StandardError.ReadLine ( ) End Sub WhileEnd