-Sistemato dictionary

OptionsWindow/OptionModule.vb

@@ -4,6 +4,9 @@ Imports EgtUILib
 Imports EgtWPFLib5
 
 Friend Module OptionModule
+
+#Region "FIELDS & PROPERTIES"
+
    ' flag per modalità di visualizzazione file (solo lettura)
    Friend ReadOnlyDDF As Boolean = False
 
@@ -199,6 +202,10 @@ Friend Module OptionModule
    Friend m_DimensionHardware As Visibility
    Friend m_DimensionDoor As Visibility
 
+#End Region    ' Fields & Properties
+
+#Region "METHODS"
+
    ' iniziliazzo il la lettura dei messaggi
    Friend Sub ReadMessages()
       ' Leggo elenco lingue disponibili da file ini
@@ -412,8 +419,8 @@ Friend Module OptionModule
       DefaultGetPrivateProfileObservableCollection("Material", "MaterialList", MaterialList)
       LoadMaterialList(MaterialList)
       ' se eiste un solo materiale allora non mostro a vodeo
-      If MaterialList.Count < 2 then
-          m_MaterialIsVisible = Visibility.Collapsed
+      If MaterialList.Count < 2 Then
+         m_MaterialIsVisible = Visibility.Collapsed
       End If
       Dim PropertyList As New ObservableCollection(Of String)
       ' se non trovo l'elenco dei materiali allora eseguo le vecchie istruzioni
@@ -790,14 +797,14 @@ Friend Module OptionModule
 
    End Sub
 
-   Friend sub LoadMaterialList (ByVal List As ObservableCollection(Of string))
-		If IsNothing(List) then Return
-	   For Each Material In List
-	      Dim Item As String() = Material.Split("/"c)
-	   	If Item.Count < 2 then
-	   	   m_MaterialList.Add(New MaterialType(Item(0),Item(0)))
-	   	else
-	   	   m_MaterialList.Add(New MaterialType(Item(0),Item(1)))
+   Friend Sub LoadMaterialList(ByVal List As ObservableCollection(Of String))
+      If IsNothing(List) Then Return
+      For Each Material In List
+         Dim Item As String() = Material.Split("/"c)
+         If Item.Count < 2 Then
+            m_MaterialList.Add(New MaterialType(Item(0), Item(0)))
+         Else
+            m_MaterialList.Add(New MaterialType(Item(0), Item(1)))
          End If
       Next
    End Sub
@@ -834,15 +841,15 @@ Friend Module OptionModule
             End If
          End If
       Next
-      Dim bNoneExists As Boolean = false
-      For Each Item in ListToBeLoaded
-         If Item.Name = NONE_DDF then
-            bNoneExists = true
-            Exit for
+      Dim bNoneExists As Boolean = False
+      For Each Item In ListToBeLoaded
+         If Item.Name = NONE_DDF Then
+            bNoneExists = True
+            Exit For
          End If
       Next
-      If Not bNoneExists then
-         ListToBeLoaded.Add(New PropertyItem(NONE_DDF, EgtMsg(50703), False))   
+      If Not bNoneExists Then
+         ListToBeLoaded.Add(New PropertyItem(NONE_DDF, EgtMsg(50703), False))
       End If
    End Sub
 
@@ -886,8 +893,8 @@ Friend Module OptionModule
          LocalPart.SetPropertiesList(OptionModule.m_MaterialList(0).PropertiesList)
          Return
       End If
-         ' configurazione senza materiali
-         If LocalPart.PropertiesList.Count > 0 Then LocalPart.PropertiesList.Clear()
+      ' configurazione senza materiali
+      If LocalPart.PropertiesList.Count > 0 Then LocalPart.PropertiesList.Clear()
       For Each Item In OptionModule.m_PropertList
          LocalPart.PropertiesList.Add(New PropertyItem(Item.Name, Item.GraphicName, Item.IsChecked))
       Next
@@ -1128,11 +1135,15 @@ Friend Module OptionModule
       EgtLuaResetGlobVar("CCD")
    End Sub
 
+#End Region    ' Methods
+
 End Module
 
 ' Classe che identifica una lingua del programma con nome e path del file dei messaggi
 Public Class Language
 
+#Region "FIELDS & PROPERTIES"
+
    Private m_sName As String
    Private m_sFilePath As String
 
@@ -1154,15 +1165,23 @@ Public Class Language
       End Set
    End Property
 
+#End Region    ' Fields & Properties
+
+#Region "CONSTRUCTOR"
+
    Sub New(sName As String, sFilePath As String)
       Me.Name = sName
       Me.FilePath = sFilePath
    End Sub
 
+#End Region    ' Constructor
+
 End Class
 
 Public Class MTable
 
+#Region "FIELDS & PROPERTIES"
+
    Private m_sName As String
    Private m_sFilePath As String
 
@@ -1184,9 +1203,15 @@ Public Class MTable
       End Set
    End Property
 
+#End Region    ' Fields & Properties
+
+#Region "CONSTRUCTOR"
+
    Sub New(sName As String, sFilePath As String)
       Me.Name = sName
       Me.FilePath = sFilePath
    End Sub
 
+#End Region    ' Constructor
+
 End Class