Povezivanje dira sa listom i drive

Povezivanje dira sa listom i drive 31.05.2007. u 16:17 · pre 236 meseci #1

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

Re: Povezivanje dira sa listom i drive 31.05.2007. u 18:00 · pre 236 meseci #2

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

Potpis

rgdrajko

Re: Povezivanje dira sa listom i drive 31.05.2007. u 18:10 · pre 236 meseci #3

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...

Re: Povezivanje dira sa listom i drive 31.05.2007. u 18:28 · pre 236 meseci #4

Pa to upravo kod i radi. Objasni malo bolje, malo detaljnije.

Potpis

rgdrajko

Re: Povezivanje dira sa listom i drive 31.05.2007. u 18:34 · pre 236 meseci #5

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.

Re: Povezivanje dira sa listom i drive 31.05.2007. u 22:33 · pre 236 meseci #6

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

Potpis

rgdrajko

Project1.zip5.4k

Re: Povezivanje dira sa listom i drive 01.06.2007. u 07:49 · pre 236 meseci #7

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:

Re: Povezivanje dira sa listom i drive 01.06.2007. u 10:47 · pre 236 meseci #8

Imas rijeseno u primjeru mp3 plejera koji sam ti ja poslao.

Re: Povezivanje dira sa listom i drive 01.06.2007. u 16:58 · pre 236 meseci #9

Da li on ne koristi command dugme a i lista se nalazi na istoj formi!

Re: Povezivanje dira sa listom i drive 01.06.2007. u 20:45 · pre 236 meseci #10

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

Potpis

rgdrajko

Novo.zip5.17k

Re: Povezivanje dira sa listom i drive 02.06.2007. u 06:43 · pre 236 meseci #11

Hvala, ali nesto ne mogu da se puste fajlovi koji su ubaceni preko dir-a.

Evo celog programa

Mp3 Player.zip32.79k

Re: Povezivanje dira sa listom i drive 03.06.2007. u 09:41 · pre 236 meseci #12

Ljudi jel moze odgovor???

Re: Povezivanje dira sa listom i drive 07.06.2007. u 21:47 · pre 236 meseci #13

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

Potpis

rgdrajko

Novo.zip55.87k

Re: Povezivanje dira sa listom i drive 08.06.2007. u 02:46 · pre 236 meseci #14

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)).

Potpis

rgdrajko

Re: Povezivanje dira sa listom i drive 08.06.2007. u 13:53 · pre 236 meseci #15

Ok ja sam player skroz zavrsio (pitao, snasao se).... samo mi je ostalo... kako da kad se zavrsi pesma pusti sledecu???

Re: Povezivanje dira sa listom i drive 08.06.2007. u 23:31 · pre 236 meseci #16

Pa koristi For ili Do Loop petlju.

Potpis

rgdrajko

Re: Povezivanje dira sa listom i drive 09.06.2007. u 09:23 · pre 236 meseci #17

Znam da smaram ali to ne znam. Ja sam poceo sa vb-om pre mesec dana...

Re: Povezivanje dira sa listom i drive 10.06.2007. u 14:10 · pre 236 meseci #18

Pa daj tvoj kod da dodam for petlju.

Potpis

rgdrajko

Re: Povezivanje dira sa listom i drive 10.06.2007. u 20:45 · pre 236 meseci #19

Evo ceo program, pa ti vidi sta ti treba...

Mp3 Player.rar42.15k

Forum kao aplikacija na telefonu

Srodne teme