25 lines
862 B
VB.net
25 lines
862 B
VB.net
Imports System.IO
|
|
|
|
Public Class ClassLayout
|
|
Public Enum LayoutName
|
|
LayoutMain
|
|
End Enum
|
|
|
|
Public Enum LayoutComponent
|
|
DockManager
|
|
DocumentManager
|
|
End Enum
|
|
|
|
Public Shared Function GetLayoutPath(LayoutName As LayoutName, Component As LayoutComponent) As String
|
|
Dim oFileName As String = $"{LayoutName.ToString}-{Component.ToString}.xml"
|
|
Return IO.Path.Combine(GetAppDataFolder(), ClassConstants.FOLDER_NAME_LAYOUT, oFileName)
|
|
End Function
|
|
|
|
Private Shared Function GetAppDataFolder() As String
|
|
Dim oLocalAppData = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
|
|
Dim oProduct = My.Application.Info.ProductName
|
|
Dim oCompany = My.Application.Info.CompanyName
|
|
Return Path.Combine(oLocalAppData, oCompany, oProduct)
|
|
End Function
|
|
End Class
|