- spostamento + cambio nome

2024-10-03 16:30:55 +02:00
parent 6da345d8c5
commit 1aa26ca644
50 changed files with 34 additions and 189 deletions
@@ -0,0 +1,65 @@
+'----------------------------------------------------------------------------
+'  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 IniFile
+
+   Private m_sPath As String
+   Public ReadOnly Property sPath As String
+      Get
+         Return m_sPath
+      End Get
+   End Property
+   Friend 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 GetPrivateProfileLanguage(lpAppName As String, lpKeyName As String, lpFileName As String) As Language
+   '   Dim sVal As String = String.Empty
+   '   GetPrivateProfileString(lpAppName, lpKeyName, "", sVal, lpFileName)
+   '   Dim sItems() As String = sVal.Split(",".ToCharArray)
+   '   If sItems.Count() = 2 Then
+   '      Return New Language(sItems(0), sItems(1))
+   '   End If
+   '   Return Nothing
+   'End Function
+
+   'Public Function GetMainPrivateProfileLanguage(lpAppName As String, lpKeyName As String) As Language
+   '   Dim sVal As String = String.Empty
+   '   GetMainPrivateProfileString(lpAppName, lpKeyName, "", sVal)
+   '   Dim sItems() As String = sVal.Split(",".ToCharArray)
+   '   If sItems.Count() = 2 Then
+   '      Return New Language(sItems(0), sItems(1))
+   '   End If
+   '   Return Nothing
+   '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