“最近播放”列表的自定义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)