如何在 My.Settings 中保存 ComboBox 项目，并使用文本框显示/编辑

Question

我正在尝试执行以下操作：

1. 将 ComboBox 中的项目存储在 My.Settings 中（数据类型并不重要，但需要建议）。
2. 检索这些项目以在表单加载时填充组合框。
3. 还在 TextBox 中显示这些项目（每行 1 个项目），我可以在其中编辑并将编辑内容保存到 My.Settings 和 ComboBox。

我有点迷失了，我该怎么做呢？

现有代码：

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Labels.LoadSettings()

        txtNumOfLabels.Text = Labels.numOfLabels

        cboItem.Items.Clear()
        For Each s As String In Labels.items
            cboItem.Items.Add(s)
        Next

    End Sub

    Public Shared items As New Specialized.StringCollection

    Shared Sub LoadSettings()
            Try
                items = My.Settings("Items")
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation)
            End Try
        End Sub


 Private Sub Options_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        For Each s As String In Labels.items
            txtItems.AppendText(s + Environment.NewLine)
        Next
    End Sub

 Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim itemCollection As New Specialized.StringCollection
        For Each s As String In txtItems.Lines
            itemCollection.Add(s)
        Next

        My.Settings("Items") = itemCollection
        My.Settings.Save()
        Labels.LoadSettings()

        Form1.cboItem.Items.Clear()
        For Each s As String In Labels.items
            Form1.cboItem.Items.Add(s)
        Next

        Me.Close()
    End Sub

但是此代码无法正确保存值，也无法在组合框或文本框中正确显示它们。

Answer 1

您可以使用 StringCollection 类型进行设置，您可能需要在代码中使用以下导入语句才能使 StringCollection 可用：Imports System.Collections.Specialized

然后您可以使用此 StringCollection 作为 DataSource组合框。

编辑：在您的代码中看到您已经使用了 StringCollection。好的。现在你为什么不像这样访问你的设置呢？

My.Settings.Items = itemCollection

这样您就可以确保不会犯输入错误，并且还可以确保您的设置确实存在。您是否还尝试单步执行代码来检查您的设置是否实际保存？