Klassen in My.Settings

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von DragsTrail.

    Klassen in My.Settings

    Hallo,

    Ich habe ein kleines kurioses Problem. In My.Settings habe ich mehrere Klassen implementiert. Läuft soweit problemlos. Die Klassen habe ich als separates Projekt geschrieben und die DLL´s in das Hauptprojekt unter Verweise eingefügt.

    Es gibt jedoch eine Klasse die jedes mal beim Programmstart aus dem VS 2019 sich einfach resettet. :cursing: Komm einfach nicht drauf warum. UND NUR DIESE KLASSE!!

    Die Klasse ist wie folgt aufgebaut:

    (Empfehlung von hier)
    Class BaseClass
    End Class
    Class Klasse1
    Inherits BaseClass
    End Class
    Class Klasse2
    Inherits BaseClass
    End Class

    Während das Programm läuft kann man mit der Klasse alles machen. Sobald ich das Prog beende und aus dem VS neu starte wird NUR DIESE Klasse resettet.

    An was kann das Liegen?

    Beste grüße

    Verlinkungen angepasst ~VaporiZed

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    DragsTrail schrieb:

    An was kann das Liegen?
    Wahrscheinlich an Deinem Code.
    Poste mal den kompletten Code (bereinigt, gezippt).
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @DragsTrail Es sieht so aus, als hätte die DLL separate Settings. Diese werden jedoch vom Anwendungsframework nicht automatisch unterstützt.
    Ich empfehle Dir, Settings lediglich im WinForm-Hauptprogramm zu halten und dann ggf. die Werte in die DLL hineinzureichen
    oder
    Du implementierst das Settings-Handling selbst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Wenn ich die ClassLibrary1 in WindowsApp1 als Klasse und nicht als DLL einfüge, kann ich Sie in my.Settings nicht auswählen.

    Wie Implementiert man das Settings-Handling? Hast vielleicht ein Code-Beispiel?

    HAB GERADE FOLLGENDES RAUSGEFUNDEN:

    Wenn ich in my.setting als TEST das Alter oder Augenfarbe ( Siehe PIC1 ) setze, dann bleibt der Wert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „DragsTrail“ ()

    @DragsTrail Pack mal beide Projekte in eine gemeinsame Projektmappe und füge die DLL als Projekt, nicht aber als DLL, dem HAuptprogramm als Verweis hinzu.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Jo - wurde ja glaub schon gesagt: Eine Anwendung kann nur ein Settings haben - und zwar die des Startprojekts.
    Hängt damit zusammen, dass Settings in .config-Dateien gespeichert werden.
    Und ein Grundkonzept der Configuration-Technologie ist: Es wird die .config-Datei ausgelesen und verarbeitet, die mit der Eintritts-Assembly verknüpft ist (also die denselben Namen hat wie die Eintritts-Assembly).
    Andere .configs mögen herumfliegen - im selben bin-, oder Appdata-Ordner, mit anderen Assemblies verknüpft - die werden ignoriert.

    @ErfinderDesRades

    Also jetzt noch mal, das ich das jetzt mal gesagt habe:

    Ich habe das Projekt ClassLib1

    Wenn ich dieses aufbaue wie folgt:

    Public Class PROFIL1
    End Class

    Public Class PROFIL2
    End Class

    und das in das Projekt WinApp1 in My.Settings einbaue, werden diese Klassen NICHT und NIE Resettet.

    ABER Wenn ich ClassLib1 so aufbaue:

    Public PROFIL
    End Class

    Public PROFIL_Funktion1
    Inherites PROFIL
    End Class

    WIRD DIESE KLASSE IMMER RESETTET.


    Dabei speilt es keine Rolle ob man nur die DLL im Verweis einbindet oder ob man das ganze Projekt einbindet und den Verweis aus dem Projekt holt, wie du in deinem Video gezeigt hast.

    Vermutlich verstehe ich nicht recht - auch weil deine Beschreibung schlecht lesbar und uneindeutig ist. Ich versuch mal zu übersetzen:

    DragsTrail schrieb:

    Ich habe das Projekt ClassLib1 (vermutlich gemeint ist ClassLib1.vbproj)
    Wenn ich dieses aufbaue wie folgt:

    VB.NET-Quellcode

    1. Public Class PROFIL1
    2. End Class
    4. Public Class PROFIL2
    5. End Class
    Dann hast du wohl ein Projekt namens ClassLib1, welches die Klassen PROFIL1 und PROFIL2 enthält.

    DragsTrail schrieb:

    und das in das Projekt WinApp1 in My.Settings einbaue...
    Das verstehe ich nicht: Wie kann man ein Projekt in Settings einbauen???
    Ich kann immer nur von einem Projekt auf andere Projekte verweisen.
    Aber My.Settings ist eine Klasse - wie kann man ein Projekt in eine Klasse einbauen???

    DragsTrail schrieb:

    ..., werden diese Klassen NICHT und NIE Resettet.
    Eine Klasse kann man nicht resetten - was soll das sein: "Klasse resetten".

    Allenfalls Objekte kann man resetten. Also du kannst ein Objekt der StopWatch-Klasse erzeugen, das Objekt kannste dann Starten und resetten. Aber die Klasse Stopwatch zu resetten ergibt überhaupt keinen Sinn.
    Eine Klasse ist der Bauplan eines Objekts. Also du kannst anhand von Konstruktions-Zeichnungen eine Stoppuhr bauen - die kannste dann starten und resetten.
    Aber die Konstruktions-Zeichnungen kannste doch nicht resetten - willste da iwelche Striche und Linien ausradieren, oder was soll damit gemeint sein?

    DragsTrail schrieb:

    ABER Wenn ich ClassLib1 so aufbaue:

    VB.NET-Quellcode

    1. Public PROFIL
    2. End Class
    Das kompiliert nicht.
    Vermutlich hast du ein Schlüsselwort vergessen, vielleicht meinst du aber auch was ganz anderes.


    Aber egal - mein Problem ist,
    1. was du mit resetten meinst, und wie das, wovon du sprichst wohl unresettet aussieht im Gegensatz zu resettet.
    2. Und was du wohl meinst, wenn du sagst, du würdest ein Projekt in iwelche Settings "einbauen".

    Tatsächlich habe ich noch nie überhaupt irgendetwas an den Settings modifiziert oder gar "eingebaut".
    Settings sind eine generierte Klasse, dazu gedacht, dass man zur Programmierzeit in den Projekteigenschaften da Variablen anlegen kann - welche dann zur Laufzeit verwendbar sind.
    Es gibt einige Spezis, die erfolgreich dieses Konzept erweitern, zu iwelchen Zwecken.
    Ich bin bislang gut klargekommen, ohne daran herumzufummeln.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Hm, ich glaube ein Testprojekt hochzuladen wäre einfacher gewesen. Aber wurscht. Ich hab's ausprobiert. Das Problem ist, dass das Ganze nicht abgespeichert wird. Ich korrigiere: Es wird als Leereintrag gespeichert. Irgendwie werd ich das Gefühl nicht los, dass die Settings nicht für das Abspeichern komplexer Datentypen gedacht sind. Der eine würde in solch einem Fall vielleicht sagen: nimm ein typisiertes DataSet. Der nächste: nimm ein BinarySerializer oder XmlSerializer (was ja im tDS schon quasi mit drinne ist). Ich steh ja inzwischen auf JsonSerializer. Weil der BinarySerializer für jeden Mist ein Attribut verlangt und außerdem immer Objektinstanzen speichert (obwohl ich nur die Inhalte speichern will) und der Framework-XmlSerializer alles auf Public will. Mit dem Newtonsoft-Json-Paket kann ich den für mich als Ballast betrachteten Kram der beiden anderen Serializer umgehen. Aber hey! Ich merk gerade, dass ich schon ganz weit vom Problem entfernt bin und genügend Passagen geschrieben habe, an den andere bestimmt ganz viel einwenden werden. Ach ja: Provokation zum Schluss: Wie wär's mit ner Datenbank?

    ##########

    Ok, in Post#3 wurde ja was hochgeladen. Hab's jetzt gesehen, aber bin nun zu faul es anzuschauen, da ich die Daten aus dem Video schon verarbeitet habe :|
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

    @VaporiZed

    Solange das Programm läuft wird alles ohne Probleme in My.Settings gespeichert.

    Die Projekte habe ich oben gepostet. Aber hier noch mal. Probiere es einfach aus. :)

    Datenbank. NEEEEEE. Dann lieber als XML abspeichern.
    Dateien

    • ClassLibrary1.zip

      (38,8 kB, 75 mal heruntergeladen, zuletzt: )

    • WindowsApp1.zip

      (65,49 kB, 72 mal heruntergeladen, zuletzt: )

    Missverständnis. Dass zur Laufzeit in My.Settings.xxx alles drinsteckt, kann ich nachvollziehen und ist ja auch im Video zu sehen. Es wird aber nichts in der entsprechenden Datei user.config gespeichert - außer eben der o.g. Leereintrag. Daher kann aus dieser Datei auch nichts nach Programmneustart geladen werden, daher der Klasseninstanz"reset". Die Instanzdaten sind nach Programmende weg.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Manage application settings (.NET)
    Application settings can be stored as any data type that is serialized to XML or has a TypeConverter that implements ToString/FromString. The most common types are String, Integer, and Boolean, but you can also store values as Color, Object, or as a connection string.


    Wenn du eigene Klassen in den Settings abspeichern möchtestest, dann brauchst du z.B. einen Converter, wenn diese Klasse zu komplex ist und nicht direkt als XML automatisch serialisiert werden kann. Am einfachste wäre jetzt (finde ich) alle Klassen als <Serializable()> markieren und dann einen TypeConverter für PersonenListe erstellen:

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.Globalization
    3. Imports System.IO
    4. Imports System.Runtime.Serialization.Formatters.Binary
    6. <Serializable()> ' <--------------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    7. Public Class Person
    9. Implements ICloneable
    11. Public Function Clone() As Object Implements System.ICloneable.Clone
    12. Return MemberwiseClone()
    13. End Function
    15. Public Sub New()
    16. End Sub
    18. End Class
    20. <Serializable()> ' <--------------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    21. Public Class Augenfarbe
    23. Inherits Person
    25. Public Sub New()
    26. End Sub
    28. Public Sub New(ByVal Augenfarbe As String)
    30. Me.Augenfarbe = Augenfarbe
    32. End Sub
    34. Public Sub Clear()
    36. Me.Augenfarbe = ""
    38. End Sub
    40. Private _Augenfarbe As String
    41. Public Property Augenfarbe As String
    42. Get
    43. Return _Augenfarbe
    44. End Get
    45. Set(ByVal value As String)
    46. _Augenfarbe = value
    47. End Set
    48. End Property
    50. End Class
    52. <Serializable()> ' <--------------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    53. Public Class Alter
    55. Inherits Person
    57. Public Sub New()
    58. End Sub
    60. Public Sub New(ByVal Alter As Integer)
    62. Me.Alter = Alter
    64. End Sub
    66. Public Sub Clear()
    68. Me.Alter = 0
    70. End Sub
    72. Private _Alter As Integer
    73. Public Property Alter As Integer
    74. Get
    75. Return _Alter
    76. End Get
    77. Set(ByVal value As Integer)
    78. _Alter = value
    79. End Set
    80. End Property
    82. End Class
    84. ' #########################################################################
    85. ' Diese Klasse benötige ich NUR um sie in My.Settings zu implemetieren
    86. ' Also die List(Of List(Of Person)) soll gespeichert werden
    87. ' #########################################################################
    89. <Serializable()>
    90. <TypeConverter(GetType(PersonenListeTypeConverter))> ' <--------------!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    91. Public Class PersonenListe
    93. Public Sub New()
    94. End Sub
    96. Public Sub New(ByVal PersonenListe As List(Of List(Of Person)))
    98. Me.PersonenListe = PersonenListe
    100. End Sub
    102. Public Sub Clear()
    104. Me.PersonenListe = New List(Of List(Of Person))
    106. End Sub
    108. Private _PersonenListe As New List(Of List(Of Person))
    109. Public Property PersonenListe As List(Of List(Of Person))
    110. Get
    111. Return _PersonenListe
    112. End Get
    113. Set(ByVal value As List(Of List(Of Person)))
    114. _PersonenListe = value
    115. End Set
    116. End Property
    118. End Class
    120. ' Der Konverter
    121. <TypeConverter(GetType(PersonenListeTypeConverter))>
    122. Public Class PersonenListeTypeConverter
    124. Inherits TypeConverter
    126. Public Sub New()
    127. End Sub
    129. Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object
    130. Using mem As New MemoryStream
    131. Dim x As New BinaryFormatter()
    132. x.Serialize(mem, value)
    133. Return Convert.ToBase64String(mem.ToArray())
    134. End Using
    135. End Function
    137. Public Overrides Function CanConvertFrom(context As ITypeDescriptorContext, sourceType As Type) As Boolean
    138. Return sourceType = GetType(String)
    139. End Function
    141. Public Overrides Function ConvertFrom(context As ITypeDescriptorContext, culture As CultureInfo, value As Object) As Object
    142. Using mem As New MemoryStream(Convert.FromBase64String(DirectCast(value, String)))
    143. Dim x As New BinaryFormatter()
    144. Return x.Deserialize(mem)
    145. End Using
    146. End Function
    148. End Class



    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Bluespide“ ()

    Ich hab folgendes Experiment gebastelt:

    VB.NET-Quellcode

    1. Imports ClassLibrary1
    3. Public Class Form1
    4. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    6. If My.Settings.TEST Is Nothing Then
    7. My.Settings.TEST = New PersonenListe()
    8. Dim p As New List(Of Person)
    10. p.Add(New Augenfarbe("Blau"))
    11. 'p.Add(New Alter(20))
    13. Dim ppl As New List(Of List(Of Person))
    14. 'ppl.Add(p)
    16. Dim pl As PersonenListe = New PersonenListe(ppl)
    18. My.Settings.TEST = pl
    19. Else
    20. Dim pl = My.Settings.TEST.PersonenListe
    21. pl.Add(New List(Of Person) From {New Person}) ' das funzt - pl wird von start zu start länger
    22. 'pl.Add(New List(Of Person) From {New Augenfarbe($"Blau{pl.Count}")})' funzt net: eine List(Of Person) mit Augenfarbe drin serialisiert nicht
    23. Dim i = 9 ' hier Haltepunkt
    24. End If
    26. My.Settings.Save()
    27. End
    28. End Sub
    30. End Class
    Also es liegt an der Polymorphie - das können die Settings nicht serialisieren. Könnte man nun probieren, obs an XmlSerialisierung liegt (was die Settings scheints verwenden) - also ob XmlSerialisierung generell eine polymorphe Liste (zB eine List(Of Person), wo nicht eine Person drin ist, sondern eine Augenfarbe) nicht serialisieren kann.
    Vonne Syntax her ist derlei Polymorphie zulässig, weil Augenfarbe erbt ja von Person.
    Aber einer von beiden ist zu doof dafür: entweder die Settings oder die zugrundeliegende XmlSerialisierung.

    Aber letztlich egal - mit dem TypeConverter bist du ja quasi auf Serialisierung per BinaryFormatter umgestiegen - der kann das offsichtlich.

    Im Anhang mein SampleProject
    Dateien

Facebook
Telefonspende