Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Visual Basic (Classic) FAQ

Add-in and tools

AutoCompleteComboBox by Craig0201
Posted: 13 Mar 03 (Edited 27 Jan 04)

Public Class AutoCompleteComboBox
    Inherits System.Windows.Forms.ComboBox

#Region " Windows Form Designer generated code "

    Public Sub New()

        'This call is required by the Windows Form Designer.

        'Add any initialization after the InitializeComponent() call

    End Sub

    'UserControl overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
            End If
        End If
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container()
    End Sub

#End Region

    Private _LastValue As New Object()

    Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)

        Dim _FindString As String

        Select Case Asc(e.KeyChar)
            Case Keys.Escape
                Text = ""
            Case Keys.Back
                    Text = Text.Substring(0, SelectionStart - 1)
                Catch ex As ArgumentOutOfRangeException
                    Text = ""
                    Call Find()
                End Try
            Case Else
                    Call Find()
        End Select
        e.Handled = True
    End Sub

    Private Sub Find()
        Dim _PreFindTextLength As Integer = Text.Length
        Dim _Position As Integer = Me.FindString(Text)
        If _Position <> -1 Then
            SelectedItem = Items(_Position)
            SelectionStart = _PreFindTextLength
            SelectionLength = Text.Length
            _LastValue = SelectedItem
            SelectedItem = _LastValue
            SelectionStart = 0
            SelectionLength = _LastValue.Length
        End If
    End Sub

End Class

Have fun with it!


Back to Visual Basic (Classic) FAQ Index
Back to Visual Basic (Classic) Forum

My Archive

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close