EgtCAM5 2.7k2

-aggiunto in inputexpander possibilità di visualizzare tutte le info presenti una combobox
2025-11-07 14:29:27 +01:00
parent 08c4d9c7b9
commit 592e7161ce
3 changed files with 11 additions and 9 deletions
@@ -496,12 +496,15 @@ Public Class InputExpanderVM
   ''' Funzione che popola la lista ComboItemsList
   ''' </summary>
   Private Sub ComboInfo()
-      '''''''''''''''''''''''''''''' Recuperare funzione egtgetallinfo quando sarà pronta
-      Dim val As Integer
+      Dim sVal As String() = Nothing
+      EgtGetAllInfo(Map.refManageLayerExpanderVM.RightClickedTreeItemId, sVal)
+
+      Dim Ind As Integer = 0
      If Not m_tmpbShow Then
-         For Ind As Integer = 0 To 6
-            val += Ind
-            tmpInfoList.Add(New InfoItem(Ind, "A" & +Ind, val.ToString()))
+         For Each Item As String In sVal
+            Dim sSplitItem As String() = Item.Split("="c)
+            tmpInfoList.Add(New InfoItem(Ind, sSplitItem(0), sSplitItem(1)))
+            Ind += 1
         Next

         For Each InfoItem As InfoItem In tmpInfoList