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 1188 korisnika na forumu :: 67 registrovanih, 4 sakrivenih i 1117 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 015, A.R.Chafee.Jr., acov34, AOE, Apok, BB, blatruc82, bojan1234, bojcistv, bokicacar, Boris BM, Brankojle, BrcakRS, crazydkure, Djota1, Doc, dolinalima, doragan, DragoslavS, dukajov, Džekson, foka106, GandorCC, Hardenberg, hattori, hyla, Jakonjveliki, jalos, jon istvan, JosipRi, Kapetan Hadok, Kiki98TZ, KizJ, Korle, Kubovac, Langdorf, laurusri, lima, LostInSpaceandTime, Lotus, Misirac, morava_01, mrav pesadinac, nesa1962, pein, Petar888, PMsnow, Prečanin30, Primus17, procesor, ruma, S2M, samo_citam, Seeker, Sićko, skok, Sky diver 29, Srna, stefan95, stegonosa, stokssone, tajvankanasta, Trimi68, Vasilije74, Vlad000, zlatkoa987, Zoran1959