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 2279 korisnika na forumu :: 106 registrovanih, 10 sakrivenih i 2163 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 6018 - dana 19 Dec 2025 13:41

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: aksentijeivan, aleksmajstor, alternator, amonsrb, ArchaBasha, Bbbggg1979, bladesu, bojcistv, boromir, Bosnjo, bpop, cavatina, cyprus, Demostant, Denaya, Despot Đurađ, Despot1, Dimitrise93, djonsule, Dolinc, Dorcolac, dragan_mig31, dragoljub11987, Dugme1984, Electron, Feller, gobrad, gomago, halkin gol, Hardenberg, ILGromovnik, Jaz, Jester, Kajzer Soze, Kawasaki1000, Kenanjoz, kib, kikisp, koko19, Kolex21, krkalon, Kubovac, Laluvr, laurusri, Lepi Jova, ljuba, LostInSpaceandTime, Marko Marković, mean_machine, mercedesamg, mexo, micke83, miki kv, milenko crazy north, Miloskec, MiroslavD, Miškić, mm1811, Mrav Obrad, MunzeKonze, Murko, nebojsag, Neutral-M, nnovakis, Nole, novator, opt1, ozzy, Pilence, pisac12, Player035, Poof, Povratak1912, predragc, probisic, Resad76, Rok A Bit, Roksi, sekretar, Sirius, skylab1111, sluga, Srle993, Srna, Stoilkovic, Str2022, strelac07, tajvankanasta, Tanasko95, tanzanija, Tihi86, Tribal, TRZH92, Tumansky, V-98, vathra, vazduh, vija, Vlada1389, vlado_pg, Zastava, Zavulon, zokizemun, Zoran1959, 79693, 800077