CONFIG.UserConfigPath

This commit is contained in:
2020-12-22 14:33:43 +01:00
parent e326a7b660
commit 650ebd8848
8 changed files with 341 additions and 171 deletions

View File

@@ -10,7 +10,7 @@ Public Class frmUserKonfig_AddUsers
Private Sub frmUserKonfig_AddUsers_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name)
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
Dim XMLPath = System.IO.Path.Combine(CONFIG.UserConfigPath, Filename)
GridViewUsers.SaveLayoutToXml(XMLPath)
Catch ex As Exception
LOGGER.Error(ex)
@@ -46,7 +46,7 @@ Public Class frmUserKonfig_AddUsers
End Try
Try
Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name)
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
Dim XMLPath = System.IO.Path.Combine(CONFIG.UserConfigPath, Filename)
If File.Exists(XMLPath) Then
GridViewUsers.RestoreLayoutFromXml(XMLPath)
'grvwGrid.ClearGrouping()