Fensterposition speichern

jan99 · 8. Juni 2021, 11:07

Moin!

ich möchte ein Fenster in seiner Position speichern und beim nächsten öffnen wieder dort öffnen.

My.settings habe ich hierzu gefunden und folgendes implementiert:

VB.NET-Quellcode

Private Sub frm_GrundstDoku_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Me.TopMost = True
Me.Location = My.Settings.FormLocation
....

VB.NET-Quellcode

Private Sub Form1_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
My.Settings.FormLocation = Me.Location
End Sub
Private Sub Form1_Closed(sender As Object, e As EventArgs) Handles Me.Closed
My.Settings.Save()
End Sub

FormLocation war zunächst unbekannt und über das Kontextmenü wurde mir eine Fehlerbehebung angeboten die dann eine Settings.Designer.vb angelegt hat.

Spoiler anzeigen

VB.NET-Quellcode

'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
Public Property FormLocation As Point
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.EBL_GStkHistorie.My.MySettings
Get
Return Global.EBL_GStkHistorie.My.MySettings.Default
End Get
End Property
End Module
End Namespace

Im Web hatte ich den Hinweis gefunden, dass die Settings unter C:\Users\Benutzername\AppData\Local\Microsoft gespeichert werden.

Aber dort wird nix angelegt und auch das Fenster wird weiterhin an der alten Position geöffnet.

In der Form-Eigenschaft steht für StartPosition der Wert WindowsDefaultBounds.

Kann mir jemand weiterhelfen`?

Gruß Jan

VaporiZed · 8. Juni 2021, 11:25

Lege in den Projekt-Einstellungen beim Reiter Einstellungen 2 Integer-Werte an: X und Y. Darin speicherst Du dann die Formposition. My.Settings.Save() brauchst Du standardmäßig nicht. Beim Start nimmst Du die Werte her und setzt die Formposition darauf, beim Schließen vice versa. Fertig.

VB.NET-Quellcode

Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Left = My.Settings.FormPositionX
Me.Top = My.Settings.FormPositionY
End Sub
Private Sub FrmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
My.Settings.FormPositionX = Me.Left
My.Settings.FormPositionY = Me.Top
End Sub

##########

Da geht bestimmt auch was mit DataBinding, aber für den Anfang sollte es reichen.

RodFromGermany · 8. Juni 2021, 11:54

@jan99 Ich hab da ne Klasse, die Du als Basisklasse jeder Form gibst, deren Position gespeichert und restauriert werden soll.
Feddich.
====
Die Datei wird hier abgelegt: Users\User\AppData\Local\

Das kannst Du aber beliebig anpassen.
Ich denke, dass Du den Code problemlos von C# nach VBN.NET übersetzen kannst.

Spoiler anzeigen

C#-Quellcode

using System;
using System.Data;
using System.Drawing;
using System.Windows.Forms;
namespace MyTestProgram
{
public class FormBase : Form
{
#region Constants
/// <summary>
/// Pfad der XML-Datei der DataTable in Users\User\AppData\Local\
/// </summary>
private const string DataFolder = "MyFirma";
/// <summary>
/// Name der XML-Datei der DataTable in Users\User\AppData\Local\
/// </summary>
private const string DataFile = "MyFile.xml";
#endregion Constants
#region Static Member
/// <summary>
/// Pfad zur DataTable
/// </summary>
private static string _DataPath;
/// <summary>
/// DataTable mit den Form-Informationen
/// </summary>
private static DataTable _DataTable;
#endregion Static Member
#region Konstruktoren
/// <summary>
/// Statischer Konstruktor der Klasse FormBase
/// </summary>
static FormBase()
{
FormBase._DataPath = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData) + "\\" + FormBase.DataFolder + "\\" + FormBase.DataFile;
FormBase.CreateTable();
FormBase.LoadTable();
}
/// <summary>
/// Standardkonstruktor der Klasse FormBase
/// </summary>
public FormBase()
: base()
{
this.InitBaseClass();
}
/// <summary>
/// Initialisierung der BaseClass-Funktionalität
/// </summary>
private void InitBaseClass()
{
this.StartPosition = FormStartPosition.Manual;
}
#endregion Konstruktoren
#region Private DataTable Stuff
/// <summary>
/// Laden der DataTable`aus einer Datei
/// </summary>
private static void LoadTable()
{
FormBase._DataTable.Clear();
try
{
System.IO.FileInfo fi = new System.IO.FileInfo(FormBase._DataPath);
if (fi.Exists)
{
FormBase._DataTable.ReadXml(FormBase._DataPath);
}
}
catch (Exception ex)
{
MessageBox.Show("File not found: " + FormBase._DataPath + "\n\n" + ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
/// <summary>
/// Generieren der Einträge der DataTable
/// </summary>
private static void CreateTable()
{
// Für diese Datentypen ist kein XMLSchema-Eintrag erforderlich
DataColumn title = new DataColumn("Title", typeof(string));
DataColumn rect = new DataColumn("Bounds", typeof(Rectangle));
FormBase._DataTable = new DataTable("FormSettings");
FormBase._DataTable.Columns.Add(title);
FormBase._DataTable.Columns.Add(rect);
FormBase._DataTable.Constraints.Add("Key1", title, true); // "Key1" ist der Name der Einschränkung; IDColumn ist Primärschlüssel
}
/// <summary>
/// Auslesen der Fensterposition,
/// wenn sie in der Tabelle vorgefunden wurde
/// </summary>
/// <param name="name">Name des Fensters</param>
/// <returns>die Fensterposition</returns>
private static Rectangle GetBounds(string name)
{
DataRow rows = FormBase._DataTable.Rows.Find(name);
if ((rows == null) ||
(rows.ItemArray.Length < 2))
{
// nicht gefunden
return Rectangle.Empty;
}
if (rows[1] is DBNull)
{
// nicht gefunden
return Rectangle.Empty;
}
try
{
return (Rectangle)rows[1];
}
catch
{
// falscher Typ
return Rectangle.Empty;
}
}
/// <summary>
/// Auslesen des Tabelleneintrags für ein eingetragenes Fenster
/// </summary>
/// <param name="name">Name des Fensters</param>
/// <returns>Größe und Position</returns>
private static Rectangle GetWindowRect(string name)
{
return FormBase.GetBounds(name);
}
/// <summary>
/// Schreiben der Tabelleninformation
/// </summary>
/// <param name="name">Name des Fensters</param>
/// <param name="rect">seine Größe und Position</param>
private static void SetBounds(string name, Rectangle rect)
{
DataRow rows = FormBase._DataTable.Rows.Find(name);
if (rows == null)
{
// nicht gefunden
FormBase._DataTable.Rows.Add(new object[] { name, rect });
return;
}
rows[0] = name;
rows[1] = rect;
}
#endregion Private DataTable Stuff
#region EventHandler
/// <summary>
/// Restaurieren der Fensterposition im Zustand
/// .WindowState = FormWindowState.Normal;
/// </summary>
protected override void OnLoad(EventArgs e)
{
base.OnLoad(e);
Rectangle rect = FormBase.GetWindowRect(this.Name);
if (rect == Rectangle.Empty)
{
// Eintrag war nicht vorhanden oder Fenster war minimiert,
// nun mit Default-Position und -Größe anzeigen
this.StartPosition = FormStartPosition.WindowsDefaultLocation;
return;
}
this.Location = rect.Location;
if ((this.FormBorderStyle == FormBorderStyle.Sizable) ||
(this.FormBorderStyle == FormBorderStyle.SizableToolWindow))
{
this.Size = rect.Size;
}
}
/// <summary>
/// Speichern der Größe und der Position
/// des Dialogs beim Schließen,
/// Abspeichern der Tabelle.
/// </summary>
protected override void OnFormClosing(FormClosingEventArgs e)
{
base.OnFormClosing(e);
if (this.WindowState == FormWindowState.Normal)
{
FormBase.SetBounds(this.Name, this.Bounds);
}
else
{
// Minimized: .Location = { -32000, -32000 }, .Size = { 160, 27 }
// Maximized: .Location = { -8, -8 }, .Size = { max. Fenstergröße }
FormBase.SetBounds(this.Name, this.RestoreBounds);
}
FormBase._DataTable.WriteXml(FormBase._DataPath);
}
#endregion EventHandler
}
}

jan99 · 8. Juni 2021, 12:01

Moin!

erst dachte ich der Lösung sehr nahe zu sein. Bis ich dann die Einstellung setzen wollte my.settings beim Herunterfahren zu speichern.

Da kam dann diese Meldung:

Das "Problem" ist, dass meine Anwendung eine Konsolenanwendung ist, die dann eine Form öffnet.

In der Konsole prüfe ich ab, ob die Parameter richtig übergeben wurden und wenn nicht wird ausgestiegen.

Nun müsste ich alles in den Load verschieben und dann den Dialog automatisch wieder schließen, wenn Fehler vorliegen.
:thumbdown:

Oder gibt es noch einen anderen Weg???

Jan

VaporiZed · 8. Juni 2021, 12:03

Ah, die verschiwiegenen Details

Dann eben doch mit My.Settings.Save und My.Settings.Load

ErfinderDesRades · 8. Juni 2021, 12:20

des weiteren muss man für das Form auch StartupPosition.Manual einstellen.

VaporiZed · 8. Juni 2021, 12:22

Ehm, nööö? Zumindest nicht mit dem Post#2-Code in ner normalen WinForms-App. OK, in der SubMain-WinForms-Kombi habe ich es nicht getestet.

jan99 · 8. Juni 2021, 12:25

danke

RodFromGermany · 8. Juni 2021, 12:26

jan99 schrieb:

wo soll das dann eingebaut werden?

Mit meinem Code genügt Inherits FormBase. Feddich.

jan99 · 8. Juni 2021, 12:30

Moin!

VB.NET-Quellcode

My.Settings.Load

wird mir aber als unbekannt gekennzeichnet!

Gruß Jan

VaporiZed · 8. Juni 2021, 12:32

My.Settings.Reload :rolleyes:

jan99 · 8. Juni 2021, 13:02

Moin!

in meinen Spoiler oben hatte ich den Code aus dem Designer hinterlegt.

Wenn ich jetzt kompiliere, dann kommt es zu folgender Meldung:

Die Meldung kommt auch, wenn ich die ..Designer.vb speichern will.

Kann / Muss ich die Datei ändern oder löschen?

Aber im Projektmappen-Explorer finde ich die Datei nicht!

????

Gruß Jan

jan99 · 8. Juni 2021, 13:54

Moin!

jetzt habe ich es hinbekommen!

Gruß jan

Fensterposition speichern

Fensterposition speichern

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

jan99 schrieb:

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

4 Benutzer haben hier geschrieben