Visual Basic

<br />
    Private Sub CompletionCombo_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp<br />
        Dim sTypedText As String<br />
        Dim iFoundIndex As Integer<br />
        Dim oFoundItem As Object<br />
        Dim sFoundText As String<br />
        Dim sAppendText As String<br />
<br />
        If Me.Items.Count > 0 Then<br />
            'Allow select keys without Autocompleting<br />
            Select Case e.KeyCode<br />
                Case Keys.Back, Keys.Left, Keys.Right, Keys.Up, Keys.Delete, Keys.Down, Keys.ControlKey, Keys.ShiftKey, Keys.Alt, Keys.ShiftKey, Keys.MButton, Keys.LButton, Keys.RButton, Keys.Home, Keys.End<br />
                    'e.Handled = False<br />
                    Exit Sub<br />
            End Select<br />
<br />
            'Get the Typed Text and Find it in the list<br />
            If Me.Text.Length > 0 And Me.Text.Length <> Me.SelectedText.Length Then<br />
                sTypedText = Me.Text<br />
                iFoundIndex = Me.FindString(sTypedText)<br />
<br />
                'If we found the Typed Text in the list then Autocomplete<br />
                If iFoundIndex >= 0 Then<br />
                    'Get the Item from the list (Return Type depends if Datasource was bound <br />
                    ' or List Created)<br />
                    oFoundItem = Me.Items(iFoundIndex)<br />
<br />
                    'Use the ListControl.GetItemText to resolve the Name in case the Combo <br />
                    ' was Data bound<br />
                    sFoundText = Me.GetItemText(oFoundItem)<br />
<br />
                    'Append then found text to the typed text to preserve case<br />
                    sAppendText = sFoundText.Substring(sTypedText.Length)<br />
                    Me.Text = sTypedText & sAppendText<br />
<br />
                    'Select the Appended Text<br />
                    Me.SelectionStart = sTypedText.Length<br />
                    Me.SelectionLength = sAppendText.Length<br />
                    'Me.SelectedIndex = iFoundIndex<br />
                End If<br />
            End If<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub CompletionCombo_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave<br />
        Dim iFoundIndex As Integer<br />
<br />
        If Me.Items.Count > 0 Then<br />
            Dim sFoundText As String = ""<br />
            If Me.SelectedText.Length <> Me.Text.Length Then<br />
                sFoundText = Me.Text.Substring(Me.SelectedText.Length, Me.Text.Length - Me.SelectedText.Length)<br />
            End If<br />
            If sFoundText.Length > 0 Then<br />
                iFoundIndex = Me.FindString(Me.Text)<br />
<br />
                Me.SelectedIndex = iFoundIndex<br />
            End If<br />
        End If<br />
<br />
    End Sub<br />