jj: Auswahlliste wird geschlossen, wenn Text eingegeben wird

Global_Indexer/frmIndex.vb

@@ -133,8 +133,20 @@ Public Class frmIndex
         AddHandler cmb.SelectedIndexChanged, AddressOf OncmbSIndexChanged
         AddHandler cmb.GotFocus, AddressOf OncmbGotFocus
         AddHandler cmb.LostFocus, AddressOf OncmbLostFocus
+        AddHandler cmb.KeyDown, AddressOf OncmbKeyDown
         Return cmb
     End Function
+
+    '    <STAThread()> _
+    Public Sub OncmbKeyDown(sender As System.Object, e As System.EventArgs)
+        Dim cmb As ComboBox = sender
+
+        ' Verhindert, dass Auswahlliste und Autocompleteliste übereinander liegen
+        If cmb.DroppedDown = True Then
+            cmb.DroppedDown = False
+        End If
+    End Sub
+
     '    <STAThread()> _
     Public Sub OncmbGotFocus(sender As System.Object, e As System.EventArgs)
         Dim cmb As ComboBox = sender