Emmanuele Sassi
46 lines
2.5 KiB
VB.net
46 lines
2.5 KiB
VB.net
Imports EgtUILib
|
|
|
|
Module IniFile
|
|
|
|
' MainWindow Page
|
|
Friend m_sIniFilePath As String
|
|
Friend m_sMachinesRoot As String
|
|
' Project Page
|
|
Friend m_ProjectSceneContext As Integer
|
|
' TOOLS DB PAGE
|
|
Friend m_sDbsCurrMachIniFilePath As String 'IniFile della macchina correntemente selezionata nella pagina di Db selezionata (Tools o Machinings)
|
|
Friend m_sTdbCurrMachToolsDirPath As String
|
|
' Variabile che contiene la path della cartella che contiene i ToolMaker
|
|
Friend m_sToolMakersDir As String = String.Empty
|
|
' Variabile che contiene il contesto della scena presente nel database utensili
|
|
Friend m_ToolsDbSceneContext As Integer
|
|
|
|
Public Function GetPrivateProfileInt(IpAppName As String, IpKeyName As String, nDefault As Integer) As Integer
|
|
Return EgtUILib.GetPrivateProfileInt(IpAppName, IpKeyName, nDefault, m_sIniFilePath)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileDouble(IpAppName As String, IpKeyName As String, nDefault As Integer) As Double
|
|
Return EgtUILib.GetPrivateProfileDouble(IpAppName, IpKeyName, nDefault, m_sIniFilePath)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileString(IpAppName As String, IpKeyName As String, IpDefault As String, ByRef IpString As String) As Integer
|
|
Return EgtUILib.GetPrivateProfileString(IpAppName, IpKeyName, IpDefault, IpString, m_sIniFilePath)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileColor(IpAppName As String, IpKeyName As String, ByRef Col As EgtUILib.EgtInterface.Color3d) As Boolean
|
|
Return EgtUILib.GetPrivateProfileColor(IpAppName, IpKeyName, Col, m_sIniFilePath)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileWinPos(IpAppName As String, IpKeyName As String, ByRef nFlag As Integer, ByRef nLeft As Integer, ByRef nTop As Integer, ByRef nWidth As Integer, ByRef nHeight As Integer) As Boolean
|
|
Return EgtUILib.GetPrivateProfileWinPos(IpAppName, IpKeyName, nFlag, nLeft, nTop, nWidth, nHeight, m_sIniFilePath)
|
|
End Function
|
|
|
|
Public Function GetPrivateProfileZoomWin(IpAppName As String, IpKeyName As String, ByRef bOutline As Boolean, ByRef Col As EgtUILib.EgtInterface.Color3d) As Boolean
|
|
Return EgtUILib.GetPrivateProfileZoomWin(IpAppName, IpKeyName, bOutline, Col, m_sIniFilePath)
|
|
End Function
|
|
|
|
Public Function WritePrivateProfileString(IpAppName As String, IpKeyName As String, ByRef IpString As String) As Boolean
|
|
Return EgtUILib.WritePrivateProfileString(IpAppName, IpKeyName, IpString, m_sIniFilePath)
|
|
End Function
|
|
End Module
|