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)

具有“最近播放”列表的自定义Mp3播放器

1 个答案: