[ GazdaSale @ 31.05.2007. 15:17 ] @
Dakle hocu da povezem ove tri stvari!

Znaci izabere se drive i on se pokaze u diru, zatim se pritiskom na dugme fajlovi iz foldera na diru ubace u listu

Hvala unapred,
Aleksandar
[ rgdrajko @ 31.05.2007. 17:00 ] @
Evo.


Code:

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
    Text1.Text = File1.FileName
End Sub
[ GazdaSale @ 31.05.2007. 17:10 ] @
Niste me razumeli!!!

Znaci da se povezu drive i dir i kad se klikne na dugme da se u listi otvore fajlovi koji su u izabranom folderu u diru...

To mi treba za onaj mp3 player. Onaj sto ste mi dali je dobar ali on koristi 2 liste pa je drugaciji kod...
[ rgdrajko @ 31.05.2007. 17:28 ] @
Pa to upravo kod i radi. Objasni malo bolje, malo detaljnije.
[ GazdaSale @ 31.05.2007. 17:34 ] @
Ovako.


Kada se koristi "CommonDialog" player otvara samo jednu pesmu.

Dakle izaberete particiju pomocu opcije drive. Ta particija se otvori u diru. U diru se izabere folder sa muzikom i kad se klikne na Command1 muzika iz tog foldera se doda u listu.

[ rgdrajko @ 31.05.2007. 21:33 ] @
Evo.

Code:

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
    Call UcitajIzFileListBoxaUListBox
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
    Call UcitajIzFileListBoxaUListBox
End Sub

Public Sub UcitajIzFileListBoxaUListBox()
    List1.Clear
    For n = 0 To File1.ListCount - 1
        List1.AddItem File1.List(n)
    Next n
End Sub
[ GazdaSale @ 01.06.2007. 06:49 ] @
Opet me niste razumeli :)

Znaci potrebni su:
1.Command1
2.Dir1
3.Drive1
4.List1

Znaci bice dugme add files i kad se klikne otvorice se forma (kao kad se u nekom playerima dodaje dir) i onda izabere se folder i klikom na OK se muzika iz foldera doda u listu iz forme 1

Nesto ovako, samo sto ce lista biti na formi 1:
[ Ero S Ovoga Sveta @ 01.06.2007. 09:47 ] @
Imas rijeseno u primjeru mp3 plejera koji sam ti ja poslao.
[ GazdaSale @ 01.06.2007. 15:58 ] @
Da li on ne koristi command dugme a i lista se nalazi na istoj formi!
[ rgdrajko @ 01.06.2007. 19:45 ] @
Pa ovaj kod koji sam ti pre dao to radi sto si trazio. Trebao si samo da postavis File1.Visible=false da se ne vidi.
Evo tacno to sto si trazio.

Code:

Private Sub Command1_Click()
    UcitajIzFileListBoxaUListBox
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
    File1.Visible = False
End Sub

Public Sub UcitajIzFileListBoxaUListBox()
    List1.Clear
    For n = 0 To File1.ListCount - 1
        List1.AddItem File1.List(n)
    Next n
End Sub
[ GazdaSale @ 02.06.2007. 05:43 ] @
Hvala, ali nesto ne mogu da se puste fajlovi koji su ubaceni preko dir-a.

Evo celog programa

[Ovu poruku je menjao GazdaSale dana 02.06.2007. u 13:22 GMT+1]
[ GazdaSale @ 03.06.2007. 08:41 ] @
Ljudi jel moze odgovor???
[ rgdrajko @ 07.06.2007. 20:47 ] @
Evo. Ne treba ti onoliko tajmera.

Code:

Private Sub Command1_Click()
    UcitajIzFileListBoxaUListBox
    Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
    File1.Visible = False
End Sub

Public Sub UcitajIzFileListBoxaUListBox()
    Form1.List1.Clear
    For n = 0 To File1.ListCount - 1
        Form1.List1.AddItem File1.List(n)
    Next n
End Sub

Private Sub ImgTools_Click(Index As Integer)
Unload Me
End Sub
[ rgdrajko @ 08.06.2007. 01:46 ] @
Kod u Novo.zip je ispravljen ali u brzini sam na ekranu dao kod od Form2 koja nije ispravljana. U Form1 je ispravljeno i umesto Call PlayFile(FileName) treba da stoji Call PlayFile(List1.List(List1.ListIndex)).
[ GazdaSale @ 08.06.2007. 12:53 ] @
Ok ja sam player skroz zavrsio (pitao, snasao se).... samo mi je ostalo... kako da kad se zavrsi pesma pusti sledecu???
[ rgdrajko @ 08.06.2007. 22:31 ] @
Pa koristi For ili Do Loop petlju.
[ GazdaSale @ 09.06.2007. 08:23 ] @
Znam da smaram ali to ne znam. Ja sam poceo sa vb-om pre mesec dana...
[ rgdrajko @ 10.06.2007. 13:10 ] @
Pa daj tvoj kod da dodam for petlju.
[ GazdaSale @ 10.06.2007. 19:45 ] @
Evo ceo program, pa ti vidi sta ti treba...