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 1764 korisnika na forumu :: 38 registrovanih, 1 sakriven i 1725 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: 33 bren, bigfoot, BlackTower, bojank, bokicacar, brundo65, Burovnyak, crnirocko, crnogorac, deLacy, Dimitrije Paunovic, DonRumataEstorski, dule10savic, Jakonjveliki, Jester, kinderpingvin, Koridor, Laluvr, Lap720, leopard83, m0nstrum_, mercedesamg, MidnighT_AlieN, miki750, milos.cbr, Mitrast, N.e.m.a.nj.a., Nobunaga, Pangea, Polifon, sap, Solunac na steroidima, stingD, Tamna_strana_Meseca, uruk, VojaeZ, Zastava, zombicar153