「最近播放」列表的自定義MP3播放器

Question

我在Visual Basic中製作MP3播放器。這一切都很順利，直到我決定我想要一個「最近的劇本」名單。我希望它能夠保存並加載多個項目。

我沒有收到我的代碼的任何錯誤，它只是將某種集合添加到列表中。這裏是相關的代碼：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
    ListBox1.Items.Add(My.Settings.Recent) 
End Sub 

Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click 
    If Label6.Text = "Play" Then 
     My.Settings.Recent.Add(OpenFileDialog1.FileName.ToString) 
     ListBox1.Items.Add(My.Settings.Recent) 
     My.Settings.Save() 
     WindowsMediaPlayer1.URL = Label5.Text 
     WindowsMediaPlayer1.Ctlcontrols.play() 
     Label6.Text = "Pause" 
    End If 
End Sub 

如果你想看到更多的代碼只是問。

Answer 1

你做錯了。這：

ListBox1.Items.Add(My.Settings.Recent) 

只會增加一個項目（它可能隱含轉換屬性爲一個字符串，這可能是爲什麼你沒有錯誤）。

這將是正確的做法：

ListBox1.Items.AddRange(My.Settings.Recent) 

也不要忘記你的ListBox再次添加整個前清除：

ListBox1.Items.Clear() 
ListBox1.Items.AddRange(My.Settings.Recent)