Mp3 player u vb6 - help ?

[brainzor]

Evo ovako, napravio sam mp3 plejer u vb6 , sve lepo "funkcionise" ali kada se jedna pesma zavrsi, moram ponovo da pustam neku drugu pesmu,a zeleo bih da program automatski pusti drugu pesmu...
Okacio sam source pa ako neko hoce da pomogne bilo bi sooper! :ciao:

[KarloBasic]

Imas opciju MMControl1.TrackLength koja daje informaciju o duzini pesme u milisekundama, pa napises

Duzina_Sek=int(MMControl1.TrackLength/1000)+1
Pa dodas Timer sa intervalom od 1 sekunde i u njega dodas


Duzina_Sek=Duzina_Sek-1
If Duzina_Sek=0 then ....Pusti drugu pesmu
Predlog:

Dodaj jedan ListBox i dva dugmeta npr Add i Delete da korisnik moze prebaciti zeljene pesme u ListBox.
Onda program pusta redom jednu po jednu pesmu iz ListBox-a.
Mozes napraviti i opciju random za izbor pesme.


Ni jednu pesmu ne mogu pustiti 2 puta jer ti fali MMcontrol1.command="Close"
MMControl1.Command = "Stop"
MMcontrol1.command="Close"
MMControl1.FileName = Putanja
MMControl1.Command = "Open"
MMControl1.Command = "Play"

[brainzor]

E hvala puno ...
Sada znam sve samo neznam koji kod kucam da sam pokrene pesmu iz listbox-a... Pokusavao sam svashta ali od toga bilo je nishta... Hvala u svakom slucaju ...

[Geomaster]

Probaj ovako:

Dim CurrentSong as Integer
Dim CurrentSongPath as stringKada treba da se pusti sledeca pesma:
CurrentSong = CurrentSong + 1
If List1.List(CurrentSong+1) = "" Then CurrentSong=0: Exit Sub ' pretpostavka da je listbox List1

CurrentSongPath=Dir1.Path & IIf(Right$(Dir1.Path, 1) = "\","","\") & List1.List(CurrentSong) ' pod pretpostavkom da su itemu ListBoxu u formatu FileName.ext
' Ovde pustis pesmu
Kad pustas pesmu iz listboxa (na DblClick):
CurrentSongPath=Dir1.Path & IIf(Right$(Dir1.Path, 1) = "\","","\") & List1.List(List1.ListIndex

'Ovde pustis pesmu
:)