My.Settings不保存ArrayList

时间:2014-07-29 05:05:14

标签: .net vb.net winforms visual-studio-2013 my.settings

我已设置此空白属性:

enter image description here

但是在为属性分配了一个新的 ArrayList 对象之后,该属性在每个应用程序执行中始终为空。

MyBase.Load 事件的处理程序中,我调用此方法,仅用于测试此问题:

sub blahblah handles mybase.load
    me.CheckRecentFiles
end sub

Private Sub CheckRecentFiles()

    Try
        ' This throws an object not referenced exception 'cause always is empty.
        MsgBox(My.Settings.RecentFiles.Count)
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

    ' Just for testing, if the collection is empty then I instance a new ArrayList
    ' and I assign it to the property and I save it and exit from the application.
    ' But even doing this the property is always empty in the next execution.
    If My.Settings.RecentFiles Is Nothing Then

        My.Settings.RecentFiles = New ArrayList
        My.Settings.RecentFiles.Add({"test-Item1", "test-Item2", "Test-Item3"})
        My.Settings.Save()
        Application.Exit()

    End If

End Sub

正如您在上面的代码中所看到的,我为一个新的ArrayList分配了一个条目,但更改只在该应用程序执行期间生效,如果我从应用程序退出,则属性再次变为空。

当然,我还检查了这个选项:

enter image description here

但无论如何这是不必要的,因为我在代码中手动保存了设置,所以...

为什么会这样?

我如何解决这个问题?。

  

更新:

我已经调查过,并且看起来这是一个已知的问题,Arrays,ArrayLists和任何通用集合(Of Type)都不能被my.settings保存(但另一方面,StringCollection可以)

但是在this post的最后一个答案(MemoryStream答案)解释了一种简单的方法,可以将ArrayList的更改永久保存到my.settings,然后在下一个应用程序运行中读取它。

答案似乎非常好,但我对代码和采取的步骤有点失落,所以有人可以解释那里解释的步骤,但请用人类可读的语言吗?

我已经验证了ArrayList仍然在下一个应用程序运行中,是的但是我不知道我在做什么导致如果MemoryStream包含旧的ArrayList然后是什么我现在正在做的是将My.Settings.MRU设置指定为包含更多Arraylists的Arraylist而不是包含String()?的原始ArrayList,并且无论如何在之后加载数组条目以这种方式保存设置?。

这是我从那个答案中尝试过的:

' Create the ArrayList
Dim tmpArrayList = New System.Collections.ArrayList
tmpArrayList.Add({"test-Item1-1", "test-Item1-2", "Test-Item1-3"})
tmpArrayList.Add({"test-Item2-1", "test-Item2-2", "Test-Item2-3"})

' Serialize the arraylist entries:
Dim formatter As Runtime.Serialization.IFormatter =
    New Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim ms1 As New IO.MemoryStream
formatter.Serialize(ms1, tmpArrayList)

' Save the ArrayList
My.Settings.MRU = New ArrayList(ms1.ToArray) ' I think it hould be like that?

' Load the ArrayList contained in My.Settings.MRU (no idea)

1 个答案:

答案 0 :(得分:2)

如果你有一个arrayList(或List或Collection)中的数据,并且你正在查看BinaryFormatter的变通方法,那么也没有充分的理由也使用My.Settings。你可以通过BinaryFormatter做它所做的事情,它只是保存文件并选择一个名字。

Imports System.Runtime.Serialization.Formatters.Binary

Private MRUArrayList = New ArrayList
' file location
 myFile = System.IO.Path.Combine(Environment.GetFolderPath(Environment. _
                    SpecialFolder.ApplicationData),
                                    CompName,
                                    ProgramName,
                                    File)

保存设置:

Dim bf As New BinaryFormatter
Using fs As New FileStream(myFile, FileMode.OpenOrCreate)
    bf.Serialize(fs, MRUArrayList )
End Using

加载设置:

' dont attempt for the first time run
If File.Exists(myFile) = False Then Return False

Dim bf As New BinaryFormatter
Using fs As New FileStream(myFile, FileMode.Open)
    MRUArrayList = CType(bf.Deserialize(fs), ArrayList)
End Using

一旦你不得不求助于BF的解决方法,用文件流替换内存流完全不需要My.Settings,让你将文件存储在任何你想要的地方,它不会因版本而改变,用户改变EXE名称或其他任何名称,除非您更改上面的文件名公式。

对于不仅仅具有MRU ArrayList的应用程序,您可以使用Class来将所有设置存储到您想要的位置,就像设置一样。您只需将类标记为<Serializable>即可。它仍然是一行代码来保存整个类,一行来重构它。有一些限制,但它们并不难克服。

Private myNewSettings As New myNewSettingsClass
...

bf.Serialize(fs, myNewSettings)

myNewSettings = CType(bf.Deserialize(fs), myNewSettingsClass )

在其他情况下,您可以根据需要使用XML序列化程序或ProtoBuf-NET。

您还可以在程序退出时自动保存新设置:转到项目属性 - &gt;申请 - &gt;单击“查看应用程序事件”。从左侧菜单中选择“应用程序事件”,从右侧事件菜单中选择关闭

Private Sub MyApplication_Shutdown(sender As Object, 
          e As EventArgs) Handles Me.Shutdown

   ' add your code to Save (above) here
End Sub

同样,您可以在Startup事件中自动加载它们。