MSLoadingForms

app/DD_Clipboard_Searcher/frmProfileMatch.vb

@@ -4,6 +4,15 @@ Imports DevExpress.XtraGrid.Views.Tile.ViewInfo
 
 Public Class frmProfileMatch
     Private Sub frmProfileMatch_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If My.Settings.frmProfileMatchPosition.IsEmpty = False Then
+            If My.Settings.frmProfileMatchPosition.X > 0 And My.Settings.frmProfileMatchPosition.Y > 0 Then
+                Location = My.Settings.frmProfileMatchPosition
+            End If
+        End If
+        If My.Settings.frmProfileMatchSize.IsEmpty = False Then
+            Size = My.Settings.frmProfileMatchSize
+        End If
+
         CreateTiles()
         CurrSearch2Load = Nothing
     End Sub
@@ -166,4 +175,16 @@ Public Class frmProfileMatch
         OpenResults_Doc()
 
     End Sub
+
+    Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Try
+            ' Position und Größe speichern
+            My.Settings.frmProfileMatchSize = Me.Size
+            My.Settings.frmProfileMatchPosition = Me.Location
+            My.Settings.Save()
+        Catch ex As Exception
+            Logger.Error(ex)
+            Logger.Info("Error in Save FormLayout: " & ex.Message)
+        End Try
+    End Sub
 End Class