mp3 player - ubacivanje pesama u listu

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Ok evo u listi1 se sad nalaze sledeci kod i opet nece. Uploadovacu ti program pa ti samo to izmeni i uploaduj posto vidim da cemo ovako 5 dana

Private Sub List1_DblClick() Call PlayFile(List2.Text) cmdPause.Enabled = True cmdPlay.Enabled = False cmdStop.Enabled = True cmdAdd.Enabled = True cmdRemove.Enabled = True cmdRemoveAll.Enabled = True lblFile = FileName Dim fs, f, f1, fc Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(Dir1.Path) Set fc = f.Files For Each f1 In fc  If Right(f1.Name, 3) = "mp3" Then Form1.List1.AddItem f1.Name  If Right(f1.Name, 3) = "mp3" Then Form1.List2.AddItem Dir1.Path & "\" & f1.Name Next End Sub


mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Ajoj.... Ne dodajes taj code u List1_DblClick(). To stavljas na onu formu gde dodajes fajlove na command1_Click()...

-Nisi stavio List2.ListIndex = List1.ListIndex ko sto sam ti reko...

-Ako oces da disablujes tajmer ne stavljas Timer1 = False nego Timer1.Enabled = false

-Zamenio sam gomilu tajmera sa jednim tajmerom i petljom.

Probaj sto vise da shvatis sam... Meni nije problem da ti napisem neki code (osim ako neznam), ali ti uradis copy/paste i ne razmisljas o tome kako to funkcionise. Tako neces nikad nauciti programiranje.
Ovaj code sto sam ti napisao u predhodnoj poruci ti si ga stavio u List1_DblClick() bez razmisljanja dal je njemu tamo mesto, i sta taj code radi.. Sve to samo zato sto sam ja bio pospan dok sam kucao poruku i stavio slovo u tamo gde mu nije mesto....

Dopuna: 06 Jun 2007 14:23

Zaboravih da zakacim [url=https://www.mycity.rs/must-login.png

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Brate, hvala ja sam napravio jos neke izmene i sad je super.
Hvala jos jednom i na pomoci i na savetima.

A ipak ne radi.

Kada se ubaci jedna pesma znaci opcija "Add File", ako se stisne play ne svora a ako se dvaput klikne na pesmu izbaci run time error i oznaci da ovo ne valja:

Private Sub List1_Click() List2.ListIndex = List1.ListIndex End Sub


Kako da kad zavrsi pesmu, pusta sledecu???

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da, to je kada fajl dodajes pojedinacno, onda on ne ubaci putanju do pesme u list2. Ovako:

List2.AddItem cdlOpen.FileName

dodaj tamo posle

...me = cdlOpen.FileTitle List1.AddItem FileName

U procedure cmdAddFile_Click() i trebalo bi da radi...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ok sad radi

Imam jos par sitnih pitanja ako moze pomoc.

1.Zasto forma odnosno mp3 player ne moze da se pomera?
2.Kako da kad se zavrsi pesma pusti sledece?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

1. Pregledaj sve Propertiese forme, neki od njih su zaduzeni za neke osnovne dozvole nad formom (resize, koje dugmice da ima u cosku i sl.)

2. Moras da nadjes odgovarajuci event koji se pojavljuje po prestanku reprodukcije kod komponente ili klase koja ti pusta pesme, pa da uradis da kada naidje taj event da onda ucita i pusti sledecu pesmu.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Znam za to podesavanja i ja sam namestio da nema dugmice. Mozda zato sto je na vrhu forme gde obicno stoje dugmici labela???

Program je API, ne koristi komponente.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Koji to Windowsov API omogucava pustanje mp3 pesama?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

rVal = mciSendString("Play MP3", 0, 0, 0)

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

http://msdn2.microsoft.com/en-us/library/ms709492.aspx
http://www.xtremevbtalk.com/archive/index.php/t-274213.html