Me.Size - was mach ich falsch ;)

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Infinity.

    Me.Size - was mach ich falsch ;)

    Hallo alle zusammen,

    bin neu hier und nach recht unerfahren in VB, aber ich hab hier schon viel hilfreiches gefunden, vielleich kann mir ja jemand mit meinem Problem helfen!
    Hab mal ein Minimalbeispiel gemacht!
    Die Size vom Form1 wird einfach auf den Anfangswert gesetzt, also das speichern in My.Settings.wsize geht, wird aber beim Neustart nicht gesetzt!
    Einfach mal ausprobieren!

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Me.WindowState = My.Settings.wstate
    5. Me.Location = My.Settings.wloc
    6. Me.Size = My.Settings.wsize
    7. End Sub
    9. Private Sub Form1_LocationChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LocationChanged
    10. If Me.WindowState.ToString = "Normal" Then
    11. My.Settings.wloc = Me.Location
    12. My.Settings.Save()
    13. End If
    14. End Sub
    16. Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
    17. If Me.WindowState.ToString = "Normal" Then
    18. My.Settings.wsize = Me.Size
    19. My.Settings.Save()
    20. End If
    21. End Sub
    23. Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    24. My.Settings.wstate = Me.WindowState
    25. My.Settings.Save()
    26. End Sub
    27. End Class

    1) VB-Tag richtig benutzen
    2) Du musst im Designer Form.StartPosition.Manual einstellen.

    ich würd nicht in jedem Resize die Settings speichern. Reicht nicht im Form_Closing? Mindestens würdich auf _ResizeEnd gehen.

    Überhaupt, Settings.Save brauchste garnet zu machen, jdfs. wenn inne Projekteigenschaften "My.Settings beim Herunterfahren abspeichern" angehakt ist.

    @ fichz
    DANKE, DANKE!!
    das war der richtige hinweis!


    @ ErfinderDesRades
    zu 1) danke gut zu wissen
    zu 2) StartPosition war bereits auf Manual
    Hab nun die Zuweisung My.Settings.wsize = Me.Size in Form1_ResizeEnd gemacht, ist glaub ich wirklich besser!
    In Form1_FormClosing alles zu machen ist nicht gut, wenn ich das Form1 "Maximized" schließe würden Size und Location falsch gespeichert!
    "My.Settings beim Herunterfahren abspeichern" war ein gute Tipp, danke!


    @ alle
    so funktioniert es, und tut genau das was ich will!!

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Me.WindowState = My.Settings.wstate
    5. Me.Location = My.Settings.wloc
    6. Me.Size = New Size(CType(My.Settings.wsize, Point))
    7. End Sub
    9. Private Sub Form1_LocationChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LocationChanged
    10. If Me.WindowState.ToString = "Normal" Then
    11. My.Settings.wloc = Me.Location
    12. End If
    13. End Sub
    15. Private Sub Form1_ResizeEnd(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.ResizeEnd
    16. If Me.WindowState.ToString = "Normal" Then
    17. My.Settings.wsize = Me.Size
    18. End If
    19. End Sub
    21. Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    22. If Me.WindowState.ToString <> "Minimized" Then
    23. My.Settings.wstate = Me.WindowState
    24. End If
    25. End Sub
    26. End Class

    Ich weiß das Thema ist schon erledigt, aber schau dir mal diesen Artikel an:

    msdn.microsoft.com/de-de/library/wabtadw6(v=vs.85).aspx

    Du musst nicht jede Eigenschaft von deinem Form/Control selbst Speichern sondern kannst es automatisch über den Designer machen.

Facebook
Telefonspende