Question

我在My.Settings中有一个名为Categories的设置。因此，在模块内部，我有一个运行此代码的公共子程序：

Public Sub DeclareCategories()
    Dim currentCategory As String
    '   GET CURRENT CATEGORIES
    currentCategory = My.Settings.Categories

    '   ADD THE CATEGORY
    My.Settings.Categories = currentCategory & frmNewCategory.txtCategoryName.Text & ","
    My.Settings.Save()
End Sub

然后，用户将以My.Settings.Categories形式单击按钮来更新frmNewCategory值。这是按钮的代码：

If txtCategoryName.Text <> "" Then
    Try
        DeclareCategories()
        MsgBox("Successfully added the new category!")
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical)
    End Try

Else
    MsgBox("Please enter a category name before adding.", MsgBoxStyle.Critical)

End If

由于某些原因，我的设置未保存。 Categories也是一个字符串。我什至尝试删除所有currentCategory的内容，然后保留：

My.Settings.Categories = frmNewCategory.txtCategoryName.Text
My.Settings.Save()

但是它仍然没有保存设置。任何建议将不胜感激，谢谢。

Answer 1

提醒我的设置仅保存在保存它们的计算机上。示例：您的类别设置将保存在计算机上的文件中。

如果将设置保存在“类别”中并将可执行应用程序放置在另一台计算机上，则“类别”设置将为空。

还要检查字符串currentCategory & frmNewCategory.txtCategoryName.Text，以确保该字符串实际上不是空的。

为什么我的设置没有保存？

1 个答案: