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
[Link mogu videti samo ulogovani korisnici]

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

Ko je trenutno na forumu
 

Ukupno su 709 korisnika na forumu :: 42 registrovanih, 9 sakrivenih i 658 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, aleph_one, bojan_t, Bojke549, Bombona, BORUTUS, brane2208, Car89, Coabelgrade, Dannyboy, ElGenius, ghoost, gzoki, kikisp, koneks, krkalon, kunktator, Lazur_01, Lieutenant, Litostroton, Macalone, Manjane, Marko Marković, mercedesamg, Metanoja, Miki01, monomah, Ne doznajem se u oružje, Nepopravljivi, Pavel Medved, pein, Promising0, rakivan, s putnik, Shilok, ShurikSST, Solunac na steroidima, Tandrkalo, ulogovan, Velizar Laro, wizzardone, Zastava