List box question...

[k0zz]

I am using this code to add files to my listbox:

CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CommonDialog1.Filter = "MP3 (*.mp3)|*.mp3"
CommonDialog1.ShowOpen
Dim files As String
files = CommonDialog1.FileName
Dim tmp() As String
tmp = Split(files, Chr(0))
List4.AddItem tmp(1)
List4.AddItem tmp(2)

.. my problem is this code is only allowing 2 files you select ( tmp(1,2) ) .. no more no less.. add to the listbox. How do i change this code to accept however many files are chosen to add to the listbox?

[DigiRev]

CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CommonDialog1.Filter = "MP3 (*.mp3)|*.mp3"
CommonDialog1.ShowOpen
Dim files As String
files = CommonDialog1.FileName
Dim tmp() As String
tmp = Split(files, Chr(0))

Dim lonLoop as long

for lonloop = 0 ubound(tmp())
    List4.AddItem tmp(lonloop)
next lonloop

[djklocek]

For i = 0 to Ubound(tmp)
List4.AddItem tmp(i)
Next i

[k0zz]

Okay now i got that to work: problem is if i load more than about 6 things then i get ths error: The FileName buffer is too small to store the selected file name(s). (Increase MaxFileSize).

How do i fix this?

[DigiRev]

Okay now i got that to work: problem is if i load more than about 6 things then i get ths error: The FileName buffer is too small to store the selected fie name(s). (Increase MaxFileSize).

How do i fix this?

What do you have as the .MaxFileSize property of the common dialog control? The default is 256 bytes. Try setting it to 32767, that's as big as it gets (32 KB).

[djklocek]

Hello.
There is a property of Common Dialog Control named MaxFileSize (default =260). Please change it. Regards

[k0zz]

Okay fixed that with..

CommonDialog1.MaxFileSize = 32767

Thanks..
Now um, I've noticed if there's text in the file name inside of the filelistbox browsing option and you push cancel, what was in the file name box is still added to the listbox. How do i fix this?

[DigiRev]

Okay fixed that with..

CommonDialog1.MaxFileSize = 32767

Thanks..
Now um, I've noticed if there's text in the file name inside of the filelistbox browsing option and you push cancel, what was in the file name box is still added to the listbox. How do i fix this?

Set the .CancelError property to TRUE and add an error handling event:

On Error Goto ErrorHandler

CommonDialog1.CancelError = True
'...rest of your open file code...

Exit Sub

ErrorHandler:

[k0zz]

Got that to work..using this code now:

CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
CommonDialog1.Filter = "MP3 (*.mp3)|*.mp3"
CommonDialog1.FileName = ""
CommonDialog1.MaxFileSize = 32767
If CommonDialog1.CancelError = True Then Exit Sub
CommonDialog1.ShowOpen
Dim files As String
files = CommonDialog1.FileName
Dim tmp() As String
tmp = Split(files, Chr(0))
For i = 0 To UBound(tmp)
List4.AddItem tmp(i)
Next i

Another question.. I noticed that when i add multiple items, when the files reach the listbox they're not in the same order that I selected them in. How can i fix this?

[djklocek]

When you select next file it's automatically coming before the files you selected before. If you want to change it, you have to sort tmp array before listing but sorting depends on you so how do you want to sort it?

[DigiRev]

I think it orders the files itself, I don't know how/why. You could try looping through the array backwards, and see if that works.

For i = UBound(tmp) To 0 Step -1
List4.AddItem tmp(i)
Next i

[k0zz]

I want it so that The first item you select is first, the second item you select is second in line, the 3rd item you select is 3rd in line. Just like that.

[k0zz]

Im selecting the Files in this order..

First file i select is
1. Mario Vazquez
2. Ne-Yo
3. Akon

Then when added to the listbox, it shows in this order.
1. Ne-yo
2. mario Vazquez
3. Akon

just like that.. and thats while using this code :

For i = UBound(tmp) To 0 Step -1
List4.AddItem tmp(i)
Next i

[DigiRev]

Try adding 10 files and post the order like you just did, so maybe we can see how it's ordering the files.

It's hard to tell with just 3 files.

[djklocek]

Try adding 10 files and post the order like you just did, so maybe we can see how it's ordering the files.

It's hard to tell with just 3 files.

By the way it's sorting files like this (selected number):

1st, Last, Last-1, Last-2, ......, 2nd

So the algorithm will be

For i = 2 To UBound(tmp)
List1.AddItem tmp(i)
Next i
List1.AddItem tmp(1)

Assuming that tmp(0) is a path

[k0zz]

You got it just right, djklocek... works great now.. thanks.

[djklocek]

No problem man, do not hesitate to rate if you're satisfied
Regards

[k0zz]

Okay, now i have a "play next" button.... this plays the next song in the song list.. for example. If i have 3 songs, and i push play next, it plays the first one. If i push play next again, it plays the next song in line, and so on... i tried writing this code, but it didn't work:

Dim intIndex As Integer

intIndex = List4.ListIndex
If intIndex = -1 Then List4.ListIndex = 0
If intIndex > -1 Then intIndex = intIndex + 1

.. it played the first song, but when i pushed the buttn again, it just started the song right over again.. thanks for any help.

[k0zz]

Any answers :|

[djklocek]

Please post your button_click code.

[k0zz]

On Error Resume Next


Dim intIndex As Integer

intIndex = List4.ListIndex
If intIndex = -1 Then List4.ListIndex = 0
If intIndex > -1 Then intIndex = intIndex + 1


MediaPlayer1.FileName = List4.List(List4.ListIndex)
MediaPlayer1.Play

[djklocek]

'In general declarations
Dim Number as Integer
 
Private Sub List4_Click()
Number = List4.ListIndex
End Sub
 
Private Sub Play_Click()
On Error Resume Next
 
MediaPlayer1.FileName = List4.List(Number)
MediaPlayer1.Play
Number = Number + 1
End Sub

That's not a sophisticated method but maybe it will work for you

[k0zz]

Sorry, but it doesnt work When you load a couple songs in, and u push the play, nothing happens. When you click on one of the songs in the box and it highlights, and then push play, it plays.. but if you push it again, it still doesnt move on to the next item

[DigiRev]

Ah, good, VBCode is working again.

Try changing it to this:

'In general declarations
Dim Number as Integer
 
Private Sub List4_Click()
Number = List4.ListIndex
End Sub
 
Private Sub Play_Click()
On Error Resume Next
 
If Number > List4.ListCount Then Number = 1 Else Number = Number + 1
 
MediaPlayer1.FileName = List4.List(Number)
MediaPlayer1.Play
 
End Sub

[k0zz]

Ok number 1: It will only play the first song in the list, and is NOT highlighting it. Number 2: if you push next again, nothing happens except the media player stops :|

[DigiRev]

It's hard to test without VB on this computer...try this...

'General declarations
Dim Number As Integer
 
Private Sub Play_Click()
    If Number = 0 Then Number = 1
 
    MediaPlayer1.FileName = List4.List(Number-1)
    MediaPlayer1.Play
    List4.ListIndex = Number - 1
    
    If Number > (List4.ListCount - 1) Then Number = 1 Else Number = Number + 1
End Sub

[k0zz]

Okay, your code is working: But, once you push the play button, the song starts, so you push it again, the same song starts over, then you push it again and it moves to the next song using the same cycle :-/

[DigiRev]

'General declarations
Dim Number As Integer
 
Private Sub Play_Click()
   List4.ListIndex = Number
 
    MediaPlayer1.FileName = List4.List(Number)
    MediaPlayer1.Play
    List4.ListIndex = Number
    
    [U]Number = Number + 1[/U]
    If Number > (List1.ListCount - 1) Then Number = 0
End Sub

Oops forgot to add the Number = Number + 1, this should work

[k0zz]

You can stop trying to write codes if you like.. cuz that just plays the first song. Ifyou push it again, it restarts the first song..

[DigiRev]

I edited the above code. Try one more time and see if that works.

[djklocek]

Please create label1 and label2 and see how it changes when clicking command1 button. For me it works.

Private Sub List4_Click()
 
Number = List4.ListIndex
Label2.Caption = Number
 
End Sub
 
Private Sub Command1_Click()
 
Label1.Caption = List4.List(Number)
Number = Number + 1
Label2.Caption = Number
 
End Sub

And of course you have to make a Dim Numer as Integer statement in general declarations for your form.

[k0zz]

Did what you said:

When i pushed play, nothing happened .. except one of your listbox said the file name that was playing, and the other listbox said 1. Then i clicked on the file in the listbox, and pushed play. Song played, but if button pushed again it just started over again..

[k0zz]

i mean label not listbox

[djklocek]

Did what you said:

When i pushed play, nothing happened .. except one of your listbox said the file name that was playing, and the other listbox said 1.

That's right. That should happen because Number has no value before clicking a listbox. You can put a Number = 0 when after listing songs.

Then i clicked on the file in the listbox, and pushed play. Song played, but if button pushed again it just started over again.

Label1.Caption = List4.List(Number) - you have this statement. what does it show? Is it still the same when clicking button? Or it's changing but mediaplayer plays the same all the time?

[k0zz]

I dunno man... Thanks for all the help but uh... I don't really need this function newayz I have one more question for you if you don't mind..

[DigiRev]

'General declarations
Dim Number As Integer
 
Private Sub Play_Click()
   List4.ListIndex = Number
 
    MediaPlayer1.FileName = List4.List(Number)
    MediaPlayer1.Play
    List4.ListIndex = Number
    
    [U]Number = Number + 1[/U]
    If Number > (List1.ListCount - 1) Then Number = 0
End Sub

This doesn't work? :/

[k0zz]

Nope :| .. Ima get alil rest.. i got another questoin i'd like to ask you tomorrow though.. if thats okay

[djklocek]

I don't really need this function newayz

Yeah, get some sleep and ask again anytime.

Thanx DigiRev

[DigiRev]

Oh well I tried. I don't know why I'm having such a hard time with the easy stuff. :/

Anyway I'll have VB tomorrow so it should be no problem getting it worked out.

[k0zz]

I don't know if you guys found the problem to my last question... but I have yet another...

I'm using this code, given to me by djklocek...

For i = 2 To UBound(tmp)
List1.AddItem tmp(i)
Next i
List1.AddItem tmp(1)

The code works great.. but.. the only problem is that you can't add just ONE file. It works good for 2 or more files, but if i laod one file it says subscript out of range, and highlights List1.AddItem tmp(1) .. can we fix this? (other than changing the 1 to a 0)