Emmanuele Sassi
36 lines
1.1 KiB
VB.net
36 lines
1.1 KiB
VB.net
Public Class FiveLakesUIVM
|
|
Inherits VMBase
|
|
|
|
Private m_sDataRoot As String
|
|
Private m_sConfigDir As String
|
|
Private m_sIniFile As String
|
|
Private m_sResourcesRoot As String
|
|
|
|
Private m_TextTest As String
|
|
Public ReadOnly Property TextTest As String
|
|
Get
|
|
Return m_TextTest
|
|
End Get
|
|
End Property
|
|
Friend Sub SetTextTest(sValue As String)
|
|
m_TextTest = sValue
|
|
NotifyPropertyChanged(NameOf(TextTest))
|
|
End Sub
|
|
|
|
Sub New()
|
|
' Impostazione path radice per i dati
|
|
m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory
|
|
If GetPrivateProfileString(S_DATA, K_DATAROOT, "", m_sDataRoot, m_sDataRoot & "\" & DAT_FILE_NAME) = 0 Then
|
|
m_sDataRoot = System.AppDomain.CurrentDomain.BaseDirectory
|
|
End If
|
|
m_sDataRoot &= "\" & "Plugin\Supervisor.Plugin.FiveLakes"
|
|
' Impostazione direttorio di configurazione
|
|
m_sConfigDir = m_sDataRoot & "\" & CONF_DIR
|
|
' Impostazione path Ini file
|
|
IniFile.SetIniFile(m_sConfigDir & "\" & INI_FILE_NAME)
|
|
' Impostazione path resources dir
|
|
m_sResourcesRoot = m_sDataRoot & "\" & RES_DIR
|
|
End Sub
|
|
|
|
End Class
|