MyCity » Visual Studio -> Visual Basic » pomoc oko MP3 player-a

pomoc oko MP3 player-a

Napisano na dan: 22.11.2006

pomoc oko MP3 player-a
Sledeća strana Pagination

Idi na vrh

Poslao: 22 Nov 2006 10:28
Idi na vrh
offline
  • Pridružio: 18 Sep 2005
  • Poruke: 31
  • Gde živiš: Karavukovo

Poceo sam da pravim Mp3 player koristeci MMControl 6.0. Sve je ok radi kao sat, ali imam jedan problem. Ne znam kako da napravim progress bar i scroler kojim cu da ubrzavam pesme i da vidim koliko je od pesme proteklo. Da li neko mozda zna resenje ovog malog problema? Unapred HVALA!!!



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 03 Feb 2007 20:07
Idi na vrh
offline
  • Nemanja
  • Web Designer and Developer
  • Pridružio: 24 Jan 2007
  • Poruke: 266

A kako si uspeo da napravis da preko MMControle pustas mp3 pesme.Ja sam uspeo samo da pustam avi,wma,wav i audio pesme.



Poslao: 31 Avg 2007 22:15
Idi na vrh
offline
  • Pridružio: 06 Maj 2007
  • Poruke: 241
  • Gde živiš: Beograd

Evo

Option Explicit ' Play the MP3 file. Private Sub cmdPlay_Click()     If cmdPlay.Caption = "Play" Then         mmcAudio.FileName = txtFile.Text         mmcAudio.Command = "Open"         mmcAudio.Command = "Play"         cmdPlay.Caption = "Stop"     Else         mmcAudio.Command = "Stop"         mmcAudio.Command = "Close"     End If End Sub Private Sub Form_Load() Dim app_path As String     app_path = App.Path     If Right$(app_path, 1) <> "\" Then app_path = app_path & "\"     'txtFile.Text = app_path & "Alice_Cooper-Gimmie.mp3"     txtFile.Text = app_path & "demo.mp3"     ' Prepare the audio control.     mmcAudio.Notify = False     mmcAudio.Wait = True     mmcAudio.Shareable = False     mmcAudio.Command = "Close" End Sub Private Sub Form_Unload(Cancel As Integer)     ' Close the multimedia device.     mmcAudio.Command = "Close" End Sub ' Prepare the control to play again. Private Sub mmcAudio_Done(NotifyCode As Integer)     mmcAudio.Command = "Close"     lblAudio.Caption = ""     cmdPlay.Caption = "Play" End Sub Private Sub mmcAudio_StatusUpdate()     lblAudio.Caption = mmcAudio.Position & "/" & mmcAudio.Length End Sub
https://www.mycity.rs/must-login.png

MyCity » Visual Studio -> Visual Basic » pomoc oko MP3 player-a

Ko je trenutno na forumu
 

Ukupno su 1003 korisnika na forumu :: 33 registrovanih, 5 sakrivenih i 965 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, babaroga, Bluper, Bobrock1, bokisha253, djboj, dule10savic, ikan, ILGromovnik, Jakov01, Karla, kokodakalo, Kubovac, M1los, milanovic, milenko crazy north, Milometer, Nemanja.M, Nobunaga, Panter, Prašinar, prle122, raketaš, repac, Romibrat, royst33, Shinobi, theNedjeljko, tmanda323, USSVoyager, wizzardone, ZetaMan, 79693