-aggiunto controllo su textbox e combobox su stessa info

2025-11-10 12:14:14 +01:00
parent 2ce61cd5ab
commit 4f06a19553
1 changed files with 9 additions and 0 deletions
@@ -341,6 +341,15 @@ Public Class InputExpanderVM
   ''' </summary>
   ''' <param name="param"></param>
   Public Sub ShowInfoItem(ByVal param As Object)
+      ' Se presente info inserita in textbox
+      If m_TextBox IsNot String.Empty Then
+         Dim sSplitItem As String() = m_TextBox.Split("="c)
+         Dim ItemCombo As InfoItem = tmpInfoList.FirstOrDefault(Function(x) x.sKey = sSplitItem(0))
+         If Not IsNothing(ItemCombo) Then
+            ComboItemsList.Remove((ItemCombo.sKey & "=" & ItemCombo.sValour).Trim())
+            tmpInfoList.Remove(ItemCombo)
+         End If
+      End If
      ComboVisibility = Visibility.Visible
   End Sub