Speichern einer Form

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Speichern einer Form

    Hallo



    Kann auf einfache Art eine Form mit Steuerelementen z.B.Buttons,PictureBoxen,TextBoxen...

    gespeichert werden.

    Die Steuerelemente können verschoben und verändert werden.

    Nach neuen Aufruf müssen die Veränderungen aktuell sein.



    MfG

    Ist das Programm zum installieren oder nicht?
    Falls schon, kannst du My.Settings gebrauchen, ist ziemlich einfach, damit kannst du sicher auch Position speichern,
    Falls das Prog nicht zum installieren ist, ist My.Setting nicht zu empfehlen, weil alle Einstellungen verloren gehen, wenn das Prog verschoben wird,
    aber ich glaube es gibt .ini-Dateien oder so...

    Einstellungen in ein INI Datei speichern

    Versuch mal damit Einstellungen in ein INI Datei speichern oder so:

    -Menüleiste -> Projekt -> Eigenschaften -> Einstellunen -> Name z.B Textbox1save

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. TextBox1.Text = My.Settings.Textbox1save 'In (Form)_Load eingeben
    3. end sub


    VB.NET-Quellcode

    1. Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    2. My.Settings.Textbox1save = TextBox1.Text 'In (Form)_Close eingeben
    3. My.Settings.Save()
    4. end sub


    Das wäre jetzt zum Beispiel für die Textbox (Textbox1.Text).
    Für Checkbox z.B (My.Settings.Check1save = Checkbox1.Checked 'Das kommt wiederum in Form_Close)

    Hoffe konnte dir helfen ;)

    Hallo

    Danke für die Antworten.

    Settings und Inis sind mir mehr oder weniger bekannt und nutze Sie.

    Ich habe z.B. 50-100 Steuerelemente auf der Form.

    Diese werden neu Angeordnet und verändert (vom Anwender).

    Bedienerführung angepasst damit es Übersichtlicher wird.

    Jedes Steuerelement hat nun mal einen Sack voll Parameter.

    Diese wollte ich alle mit einen Ruck speichern und nicht einzeln wie bisher.

    Gruß

    @mox
    Bin schon ewig am suchen und machen und bin tatsächlich gerade darauf gestoßen und probiere aus wie ein irrer. Dabei sind mir einige Fehler an meinem Control aufgefallen, die das Speichern und Laden der Parameter schwer machen, wenn diese gar nicht richtig übergeben werden :D

    Speichern der Parameter klappt jetzt, nur die Controls mit dem entsprechenden Settings einzeln zu laden verwirrt mich einfach total.
    Es funktioniert einfach nicht.

    Ich muss ja eigentlich (Nehme jetzt mal einen BTN start Load) unter BTN_Load.click

    VB.NET-Quellcode

    1. 'Zähle wieviel Controls gespeichert wurden
    2. controls.add("Mein Control so oft wie gezählt dabei Name anpassen")
    3. For each x in Me.Controls.oftyle(of "Mein Steuerelement")
    4. x.name= 'Ladde daten aus Control Nr x
    5. next


    Ich beschäftige mich non stop damit aber der Funke will einfach nicht überspringen :D
    ~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~

    ~blaze~ schrieb:

    Hi
    serialisiere nicht die Steuerelemente, sondern die Daten.


    Hi, ich weiß leider überhaupt nicht was du meist und wie ich das umsetzen könnte.
    Kannst du mir das vielleicht etwas besser beschreiben?

    //EDIT

    Habe es so hinbekommen, dass es mit allen anderen Steuerelementen funktioniert, die bereits in der Form enthalten sind. Es liegt also an der Focused Property von meinem Steuerelement. Finde allerdings nirgendwo diese Property um sie nachzubauen.
    ~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~

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

    Speichere einfach die Einstellungen in einer Klasse und serialisiere dann die Instanz davon. Sämtliche Datenverarbeitung findet dort statt. Schau' dir am besten auch Datenbindung und das MVC-Pattern an.
    Du hast sonst eigentlich nur Nachteile. Du hast alle Daten gemischt mit ihrem anzeigenden Steuerelement und dessen vollständigen Eigenschaften. Das ist einfach total unpraktisch so. Außerdem wird eine riesige Datei erstellt, die Eigenschaften enthält, die eh nicht benötigt werden.

    Viele Grüße
    ~blaze~

    Also, ich habe mein Steuerelement ja als eigene Klasse erzeugt.

    Ich habe das Steuerelement mal hochgeladen.

    Es funktioniert so wie ich es haben möchte, allerdings lässt sich schlecht damit arbeiten.
    Versucht mal das element mehrmals während der Laufzeit in ein Panel zu laden und es mit Focused oder ActiveControl anzeigen zu lassen.

    Vielleicht könnt ihr mir so auch ohne Code einfach spezifischere Tipps geben und mir einen echten Gefallen tun.
    Ich weiß eben nur nicht wo mein Fehler liegt.
    Andere controls wie ein Button oder sowas, da funktioniert das...

    Klar das ist sicherlich alles etwas bescheuert aber was solls. Schließlich will ich ja wissen wie man es besser macht.
    Dateien

    • AddRoutine.rar

      (194,84 kB, 98 mal heruntergeladen, zuletzt: )
    ~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~

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

    Ich weiß nicht, wieviele Vorkenntnisse du bereits hast und ich habe auch nicht genügend Informationen über das Problem.
    Geht es dir darum, Controls mit einer spezifischen Konfiguration auf eine Form zu platzieren?

    Viele Grüße
    ~blaze~

    PS: Ich bin niemand, der gerne Projekte oder dergleichen herunterlädt. Erkläre das Problem lieber.

    Also, ich habe ein Steuerelement entworfen.
    Habe Properties gesetzt, die selbsterklärend sind.

    Jetzt habe ich eine WindosForm.

    Ich möchte auf dieser Form in einem Panel dem User ermöglichen, per Button bis zu 10(erstmal klein anfangen) Steuerelemente hinzuzufügen.
    Diese kann er bewegen und löschen.

    Jetzt möchte ich erreichen. dass mir der Name des Steuerelements, welches ich angeklickt habe angezeigt wird. Normal geht das ja mit me.activecontrol.name
    In diesem Fall und da es sich in einem Panel befindet, geht das nicht.

    Dieses Problem möchte ich lösen.
    Ich möchte wenn das Programm fertig ist folgende Optionen bieten:

    - User kann Steuerelemente hinzufügen und löschem
    - Die Einstellungen des Programms sollen gespeichert werden

    Für mein Steuerelement wird benötigt:

    2x Checkbox
    2x Panel
    3x Label
    2x Textbox
    2x Button
    1x Timer
    1x Openfiledialog

    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.Drawing
    3. Imports System.IO
    4. Imports System.Text.RegularExpressions
    5. Imports System.Windows.Forms
    7. Public Class Rout
    8. Private LBLText As String = "Routine"
    9. Private RoutAkt As Boolean = False
    10. Private RTtime As String = "HH:MM:SS"
    11. Private RoutAut As Boolean = False
    12. Private MSel As Boolean = False
    13. Private Routpath As String = ""
    15. Property RoutName() As String
    16. Get
    17. Return LBLText
    18. End Get
    19. Set(ByVal value As String)
    20. LBLText = value
    21. LBLNewRout.Text = LBLText
    22. End Set
    23. End Property
    25. Property Aktiv() As Boolean
    26. Get
    27. Return RoutAkt
    28. End Get
    29. Set(ByVal value As Boolean)
    30. RoutAkt = value
    31. CBAkt.Checked = RoutAkt
    32. End Set
    33. End Property
    35. Property Automatik() As Boolean
    36. Get
    37. Return RoutAut
    38. End Get
    39. Set(ByVal value As Boolean)
    40. RoutAut = value
    41. CBAut.Checked = RoutAut
    42. End Set
    43. End Property
    45. Property RoutPfad() As String
    46. Get
    47. Return Routpath
    48. End Get
    49. Set(value As String)
    50. Routpath = value
    51. End Set
    52. End Property
    54. Property RoutTime() As String
    55. Get
    56. Return RTtime
    58. End Get
    59. Set(value As String)
    60. Dim Muster As String
    61. Dim Rgx As Regex
    62. Dim Ergebnis As Boolean
    63. Muster = "^[0-2]{1}[0-9]{1}:[0-5]{1}[0-9]{1}:[0-5]{1}[0-9]{1}$"
    64. Rgx = New Regex(Muster)
    65. Ergebnis = Rgx.IsMatch(value)
    67. If Ergebnis = True Then
    68. RTtime = value
    69. Else
    70. RTtime = "Bitte an das Format halten!"
    71. End If
    72. value = RTtime
    74. End Set
    75. End Property
    77. Private Sub CBAkt_CheckedChanged(sender As Object, e As EventArgs) Handles CBAkt.CheckedChanged
    78. If CBAkt.Checked = True Then
    79. Label1.BackColor = Color.LightGreen
    80. Me.Aktiv = True
    81. Else
    82. Label1.BackColor = Color.Transparent
    83. Me.Aktiv = False
    84. End If
    85. End Sub
    87. Private Sub CBAut_CheckedChanged(sender As Object, e As EventArgs) Handles CBAut.CheckedChanged
    89. If CBAut.Checked = True Then
    90. Label2.BackColor = Color.LightGreen
    91. Me.Automatik = True
    92. Else
    93. Label2.BackColor = Color.Transparent
    94. Me.Automatik = False
    95. End If
    96. End Sub
    97. Dim i As Integer
    98. Dim x As Rout
    99. Dim app, cur As New Point(0, 0)
    100. Private Sub sync()
    101. app = Me.Location
    102. cur = Cursor.Position
    103. End Sub
    104. Private Sub Move_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown
    105. Timer1.Enabled = True
    106. Timer1.Start()
    107. sync()
    108. End Sub
    109. Private Sub Move_Mouseup(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
    110. Timer1.Stop()
    111. sync()
    112. End Sub
    113. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    114. Me.Location = app - cur + Cursor.Position
    115. End Sub
    116. Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
    117. If e.KeyCode = Keys.Enter Then
    118. Dim Muster As String
    119. Dim Rgx As Regex
    120. Dim Ergebnis As Boolean
    121. Muster = "^[0-2]{1}[0-9]{1}:[0-5]{1}[0-9]{1}:[0-5]{1}[0-9]{1}$"
    122. Rgx = New Regex(Muster)
    123. Ergebnis = Rgx.IsMatch(TextBox1.Text)
    124. If Ergebnis = True Then
    125. RTtime = TextBox1.Text
    126. Else
    127. TextBox1.Text = "Format korrigieren"
    128. End If
    129. End If
    130. End Sub
    132. Private Sub LBLNewRout_KeyDown(sender As Object, e As KeyEventArgs) Handles LBLNewRout.KeyDown
    133. If e.KeyCode = Keys.Enter Then
    134. Me.Name = LBLNewRout.Text
    135. End If
    136. End Sub
    138. Private Sub BTNDatei_Click(sender As Object, e As EventArgs) Handles BTNDatei.Click
    139. Dim opfdia As New OpenFileDialog()
    140. OpenFileDialog1.ShowDialog()
    141. Routpath = OpenFileDialog1.FileName
    142. MsgBox(Routpath)
    143. End Sub
    145. Private Sub Routine_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    147. End Sub
    149. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    150. Me.Dispose()
    151. End Sub
    152. End Class
    Bilder

    • steuerelement.png

      3,69 kB, 282×184, 89 mal angesehen
    ~Wir leben zwar alle unter dem gleichen Himmel, aber es haben nicht alle den gleichen Horizont~

    Rout ist dann wohl eine partielle Klasse, die dein Fenster enthält, oder?

    Meine Herangehensweise wäre folgende: Falls jeder Eintrag mehrere Steuerelemente benötigt, diese in einem Behälter, d.h. UserControl oder Fenster, zu gruppieren und anschließend Instanzen dieses UserControls zu erstellen und an die Instanz einer Klasse Routine zu binden. Innerhalb des UserControls werden also alle Events abonniert, die für die Verwaltung nötig sind.
    Die Routine-Klasse könnte bspw. so aussehen:

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    3. Public Class Routine
    4. Implements INotifyPropertyChanged
    5. Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
    7. Private _ausführungszeit As DateTime
    9. Public Property Ausführungszeit As DateTime
    10. Get
    11. Return _ausführungszeit
    12. End Get
    13. Set(value As DateTime)
    14. If value <> _ausführungszeit Then
    15. _ausführungszeit = value
    16. OnPropertyChanged(NameOf(Ausführungszeit))
    17. End If
    18. End Set
    19. End Property
    21. Protected Sub OnPropertyChanged(e As PropertyChangedEventArgs)
    22. RaiseEvent PropertyChanged(Me, e)
    23. End Sub
    25. Protected Sub OnPropertyChanged(propertyName As String)
    26. OnPropertyChanged(New PropertyChangedEventArgs(propertyName))
    27. End Sub
    29. End Class


    Durch das Interface INotifyPropertyChanged kann halbwegs elegant an Eigenschaften gebunden werden. Man gibt den Namen der Eigenschaft an, die ihren Wert geändert hat. Das machst du dann über alle Eigenschaften, die es zu speichern gilt.
    Manche würden, anstatt es selbst zu implementieren, übrigens auch auf DataSet zurückgreifen, denke ich. Das ist mir aber bei dem geringen Kompexitätsgrad zu hoch gegriffen.

    Die Datenbindung kann bspw. durch die Binding-Klasse erfolgen.
    Es wäre eine gute Wahl, dem Behälter eine Eigenschaft hinzuzufügen, die die Datenbindung durchführt. D.h. du fügst dem Setter eine Routine hinzu, die die alten Eventabonnements (Bindungen sind i.a. gekapselte Event-Abonnements) entfernt und die neuen registriert. Diese Eigenschaft setzt du dann auf dem UserControl, sobald du die Einstellungen deserialisierst. D.h. du fügst den Einstellungen alle Instanzen der Routine-Klasse hinzu, die angezeigt werden.

    Übrigens ist die Datenbindung in WPF wesentlich eleganter, als in Windows.Forms. Du musst wesentlich weniger implementieren, auch wenn sie dafür komplizierter ist, als in Windows Forms.

    Viele Grüße
    ~blaze~

Facebook
Telefonspende