Emmanuele Sassi
46 lines
1.6 KiB
VB.net
46 lines
1.6 KiB
VB.net
'----------------------------------------------------------------------------
|
|
' EgalTech 2017-2017
|
|
'----------------------------------------------------------------------------
|
|
' File : IniFile.vb Data : 08.05.24 Versione : 2.6e1
|
|
' Contenuto : Modulo IniFile per gestione lettura/scrittura da file INI.
|
|
'
|
|
'
|
|
'
|
|
' Modifiche : 08.05.24 ES Creazione modulo.
|
|
'
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
|
|
Imports System.Collections.ObjectModel
|
|
|
|
Public Module PluginIniFile
|
|
|
|
Private m_sPath As String
|
|
Public ReadOnly Property sPath As String
|
|
Get
|
|
Return m_sPath
|
|
End Get
|
|
End Property
|
|
Public Sub SetIniFile(sPath)
|
|
m_sPath = sPath
|
|
End Sub
|
|
|
|
Public Function GetPluginPrivateProfileInt(IpAppName As String, IpKeyName As String, nDefault As Integer) As Integer
|
|
Return GetPrivateProfileInt(IpAppName, IpKeyName, nDefault, m_sPath)
|
|
End Function
|
|
|
|
Public Function GetPluginPrivateProfileDouble(IpAppName As String, IpKeyName As String, dDefault As Double) As Double
|
|
Return GetPrivateProfileDouble(IpAppName, IpKeyName, dDefault, m_sPath)
|
|
End Function
|
|
|
|
Public Function GetPluginPrivateProfileString(IpAppName As String, IpKeyName As String, IpDefault As String, ByRef IpString As String) As Integer
|
|
Return GetPrivateProfileString(IpAppName, IpKeyName, IpDefault, IpString, m_sPath)
|
|
End Function
|
|
|
|
Public Function WritePluginPrivateProfileString(IpAppName As String, IpKeyName As String, ByRef IpString As String) As Boolean
|
|
Return WritePrivateProfileString(IpAppName, IpKeyName, IpString, m_sPath)
|
|
End Function
|
|
|
|
End Module
|