Hallo,
Private Sub Close(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
Try
mobjCol.Remove(sender.Name)
Catch
End Try
Try
mobjCol.Add(New clsForm(sender.Location, sender.Size, sender.WindowState), sender.Name)
With My.Settings
.FormPositions = mobjCol
.Save()
End With
Catch ex As Exception
RaiseEvent Close_Error(ex.Message)
End Try
End Sub
End Class
Die Setting FormPositions ist vom Typ Microsoft.VisualBasic.Collection und als Benutzer (Bereich) deklariert.
das funktioniert so nicht. Eine Collection kann nicht über den SettingsManager serialisiert werden. Zum einen weil die Inhalte untypisiert sind, zum anderen versteht es der SettingsManager nicht eine Key => Value Collection zu serialisieren. Ein
typisiertes Dictionary(Of String, clsForm) würde also ebenso wenig funktionieren.
Ein alternativer Ansatz wäre eine eigene Auflistungsklasse, die von List(Of T) erbt. Diese erleichtert das Handling in Verbindung mit dem Settings Designer, zudem ermöglicht sie die Implementierung spezieller Methoden, um eine Key => Value Zuordnung
zu simulieren. Die Klassen FormSettings + FormSetting:
Public Class FormSetting
Private m_Name As String
Private m_WindowState As FormWindowState = FormWindowState.Normal
Private m_Location As Point = New Point(0, 0)
Private m_Size As Size = New Size(800, 600)
Public Sub New()
End Sub
Public Sub New(ByVal name As String, _
ByVal location As Point, _
ByVal size As Size, _
ByVal windowState As FormWindowState)
Me.Name = name
Me.Location = location
Me.Size = size
Me.WindowState = windowState
End Sub
Public Property Name() As String
Get
Return m_Name
End Get
Set(ByVal value As String)
m_Name = value
End Set
End Property
Public Property Location() As Point
Get
Return m_Location
End Get
Set(ByVal value As Point)
m_Location = Value
End Set
End Property
Public Property Size() As Size
Get
Return m_Size
End Get
Set(ByVal value As Size)
m_Size = Value
End Set
End Property
Public Property WindowState() As FormWindowState
Get
Return m_WindowState
End Get
Set(ByVal value As FormWindowState)
m_WindowState = value
End Set
End Property
End Class
Public Class FormSettings
Inherits List(Of FormSetting)
Public Overloads Function Contains(ByVal name As String) As Boolean
Return Me.Exists(Function(t) (t.Name = name))
End Function
Public Overloads ReadOnly Property Item(ByVal name As String) As FormSetting
Get
Return Me.Find(Function(t) t.Name = name)
End Get
End Property
End Class
Um diese Einstellungen in My.Settings bekannt zu machen, ist ein manueller Eingriff in die Settings Deklaration notwending.
- Dazu musst Du Dir im Projektmappenexplorer zunächst alle Dateien anzeigen lassen
- Öffnest den Zweig "My Project" und
- Klickst dort die Datei "Settings.settings" mit der rechten Maustaste an
- Wählst den Menüpunkt "Öffnen mit"
- Im nachfolgenden Dialog wählst Du "XML Editor" aus
- In der geöffneten Datei suchst Du Deinen Eintrag, der die Einstellungen bisher als Collection speichern sollte
- Änderst bei diesem Eintrag den Wert im Type Attribut in "Namespace.FormSettings"
Namespace ersetzt Du hier natürlich durch den passenden Namespace Bezeichner Deines Projekts.
- Änderungen speichern und Projekt neu erstellen lassen.
Anwendung im Formular:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.Forms Is Nothing Then
My.Settings.Forms = New FormSettings
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
If My.Settings.Forms.Contains("Foo") Then
Debug.Print("Using existing setting")
My.Settings.Forms.Item("Foo").WindowState = FormWindowState.Maximized
Else
Debug.Print("Creating new setting")
My.Settings.Forms.Add(New FormSetting("Foo", _
New Point(10, 10), _
New Size(700, 400), _
FormWindowState.Normal))
End If
My.Settings.Save()
End Sub
End Class
Thorsten Dörfler
Microsoft MVP Visual Basic
vb-faq.de
