MS Anpassungen Structure Nodes etc

app/DD-Record-Organizer/ClassControlBuilder.vb

@@ -250,12 +250,22 @@ Public Class ClassControlBuilder
     End Sub
 
     Public Sub OnComboBoxFocus(sender As Object, ByVal e As EventArgs)
-        Dim combo As CustomComboBox = sender
-        combo.BackColor = Color.LemonChiffon
+        Try
+            Dim combo As CustomComboBox = sender
+            combo.BackColor = Color.LemonChiffon
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected error in OnComboBoxFocus: " & ex.Message, True)
+        End Try
+
     End Sub
     Public Sub OnComboBoxLostFocus(sender As Object, ByVal e As EventArgs)
-        Dim combo As CustomComboBox = sender
-        combo.BackColor = Color.White
+        Try
+            Dim combo As CustomComboBox = sender
+            combo.BackColor = Color.White
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected error in OnComboBoxLostFocus: " & ex.Message, True)
+        End Try
+
     End Sub
     Dim CONTROL_ID
     Public Sub Enable_Controls(control As Control, TableResult As DataTable, value As Object)
@@ -1872,53 +1882,64 @@ Public Class ClassControlBuilder
 
     End Sub
     Public Sub AutoCompleteCombo_KeyUp(ByVal cbo As CustomComboBox, ByVal e As KeyEventArgs)
-        ''Allow select keys without Autocompleting
-        Select Case e.KeyCode
-            Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down
-                Return
-        End Select
+        Try
+            ''Allow select keys without Autocompleting
+            Select Case e.KeyCode
+                Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down
+                    Return
+            End Select
 
-        Dim iFoundIndex As Integer
-        iFoundIndex = cbo.FindStringExact(cbo.Text)
-        'cbo.SelectedIndex = iFoundIndex
-        'Dim sTypedText As String
-        'Dim iFoundIndex As Integer
-        'Dim oFoundItem As Object
-        'Dim sFoundText As String
-        'Dim sAppendText As String
+            Dim iFoundIndex As Integer
+            iFoundIndex = cbo.FindStringExact(cbo.Text)
+            'cbo.SelectedIndex = iFoundIndex
+            'Dim sTypedText As String
+            'Dim iFoundIndex As Integer
+            'Dim oFoundItem As Object
+            'Dim sFoundText As String
+            'Dim sAppendText As String
 
 
 
-        ''Get the Typed Text and Find it in the list
-        'sTypedText = cbo.Text
-        'iFoundIndex = cbo.FindString(sTypedText)
+            ''Get the Typed Text and Find it in the list
+            'sTypedText = cbo.Text
+            'iFoundIndex = cbo.FindString(sTypedText)
 
-        ''If we found the Typed Text in the list then Autocomplete
-        'If iFoundIndex >= 0 Then
+            ''If we found the Typed Text in the list then Autocomplete
+            'If iFoundIndex >= 0 Then
 
-        '    'Get the Item from the list (Return Type depends if Datasource was bound 
-        '    ' or List Created)
-        '    oFoundItem = cbo.Items(iFoundIndex)
+            '    'Get the Item from the list (Return Type depends if Datasource was bound 
+            '    ' or List Created)
+            '    oFoundItem = cbo.Items(iFoundIndex)
 
-        '    'Use the ListControl.GetItemText to resolve the Name in case the Combo 
-        '    ' was Data bound
-        '    sFoundText = cbo.GetItemText(oFoundItem)
+            '    'Use the ListControl.GetItemText to resolve the Name in case the Combo 
+            '    ' was Data bound
+            '    sFoundText = cbo.GetItemText(oFoundItem)
 
-        '    'Append then found text to the typed text to preserve case
-        '    sAppendText = sFoundText.Substring(sTypedText.Length)
-        '    cbo.Text = sTypedText & sAppendText
+            '    'Append then found text to the typed text to preserve case
+            '    sAppendText = sFoundText.Substring(sTypedText.Length)
+            '    cbo.Text = sTypedText & sAppendText
 
-        '    'Select the Appended Text
-        '    cbo.SelectionStart = sTypedText.Length
-        '    cbo.SelectionLength = sAppendText.Length
+            '    'Select the Appended Text
+            '    cbo.SelectionStart = sTypedText.Length
+            '    cbo.SelectionLength = sAppendText.Length
+
+            'End If
+        Catch ex As Exception
+            ClassLogger.Add("Unexpected error in AutoCompleteComboKEyUp: " & ex.Message, True)
+
+        End Try
 
-        'End If
 
     End Sub
     Public Sub AutoCompleteCombo_Leave(ByVal cbo As CustomComboBox)
-        Dim iFoundIndex As Integer
-        iFoundIndex = cbo.FindStringExact(cbo.Text)
-        cbo.SelectedIndex = iFoundIndex
+        Try
+            Dim iFoundIndex As Integer
+            iFoundIndex = cbo.FindStringExact(cbo.Text)
+            cbo.SelectedIndex = iFoundIndex
+        Catch ex As Exception
+
+        End Try
+
     End Sub
     Public Sub AddDateTimePicker(id As Integer,
                                 name As String,