Leeg veld in listbox

[bonnowagt]

Hallo,

Ik heb de volgende manier om mijn listbox te vullen met songs:
OpenFileDialog1.ShowDialog()

For Each track As String In OpenFileDialog1.FileNames
ListBox1.Items.Add(track)
Next

Op zich werkt dit prima. Via de openfiledialog1 selecteer ik dus alles mp3 enz files. Maar als ik nu de filedialog open krijg bijv. de dir. muziek\...mp3
Zonder te slecteren annuleer ik weer. Ik heb dan geen mp3 enz ge... add. Wel krijg ik dan een leeg veld in mijn listbox, hetgeen problemen later opleverd. Hoe krijg ik dit leeg veld er weer uit of hoe voorkom ik dit.


BVD dank

 

[old Hippy]

probeer dit eens

  Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()

        openFileDialog1.InitialDirectory = "c:\"
        openFileDialog1.Filter = "mp3 files (*.mp3)|*.mp3|All files (*.*)|*.*"
        openFileDialog1.FilterIndex = 2
        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                myStream = openFileDialog1.OpenFile()
                If (myStream IsNot Nothing) Then
                    For Each track As String In openFileDialog1.FileNames
                        ListBox1.Items.Add(track)
                    Next

                End If
            Catch Ex As Exception
                MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
            Finally
                ' Check this again, since we need to make sure we didn't throw an exception on open.
                If (myStream IsNot Nothing) Then
                    myStream.Close()
                End If
            End Try
        End If

 

[The Mighty Atom]

Beetje veel code voor zoiet simpels, maar op zich wel een prima oplossing. Ik doe het gewoon zo:

If OpenFileDialog1.ShowDialog = DialogResult.OK Then
For Each track As String In OpenFileDialog1.FileNames
ListBox1.Items.Add(track)
Next
End If.

Hiermee word die For Each... Next alleen uitgevoerd als er op de OK knop van de openfiledialog wordt geklikt. Wordt er op Annuleren geklikt, gebeurt er niks, alleen de openfiledialog word geannuleerd en verdwijnt zonder dat er iets met de listbox gebeurt.

 

[bonnowagt]

listbox lege velden

Bedankt voor de snelle reactie. Het is gelukt, werkt geweldig. Nog een vraagje betreft de trackbar.

Ik heb een trackbar en deze werkt prima alleen als ik de schuif verschuif bijvoorbeeld naar 46 seconden oid dan werkt de trackbar toch de voorafgaande 45 seconden af en hakkelt daarbij.

Wat is hiervan de oorzaak?