Hi, i have an autocomplete textbox in vb.net. It is working fine, but now i need to pop up the window again when the user hits enter or double clicks.

So far, i know that when the user hits enter, the keydown event raises with e.kecode = 13. I guess my code would go here. My problem is how do i tell autocomplete to start again after the user hits enter??

Thanks in advance.

GoProtoz commented: Hey guys visit +0

Recommended Answers

All 12 Replies

Can't you just call the auto complete code again? The last text entered is still in the text box at this point? It would just be a matter of detecting the enter key press and calling the function.

Yes, the last text entered will be in the textbox. I just don't know how to call the autocomplete code again. For example: if i start writing "user1@g" the list will appear and the text will be autocompleted "user1@gmail.com". Now if i hit the right arrow to start typing again the autocomplete will not work.

This is probably because the auto complete code is being called in the onTextChanged event and simply hitting the arrow key won't cause it to fire again (mainly because the text box doesn't have focus anymore). You can catch in the form's key event rather than that of the text box and call whatever function is called by onTextChanged function.

thecoder2012, I somewhat understand what you are asking, do correct .Me If I am wrong.:)

You have items in the AutoComplete as "12,13,14,21,23,24".
You start typing "1", of course, AutoComplete starts.
You press the Keys.Enter, and you would like to continue typing in TextBox, though have the AutoComplete."RELOAD" again and give you more options "again".

If this is on the right.path, I am not sure If the .Default AutoComplete that comes w/vb.net allows such and you might have to create your own Custom.AutoComplete.

Being a new morning for a new bright.day, I have this idea.suggestion.
.1 Add a TextBox.
2. Add a "ContextMenuStrip" and use that as your AutoComplete.
.3 Have the "ContextMenuStrip" Load/.Show with all of your AutoComplete.Items, and when you press enter, to ."re"Load/Show" w/the AutoComplete.Items from the .SubString of the TextBox, where you pressed Keys.Enter last.

Could be a fun little project to work on, thus I will let you have fun w/it and I will Challenge a mythical.history with Assasin's Creed:Revelations.:D

If .My above idea/suggestion is something you think it is possible, I especially do, do give it a Go and post results of your progress.
If Nothing or something achieved and I need to boot up vb.net, do let .Me know, of course, after you started making some progress.

Hope this helps and that the New Year will be a Challenging and Happy New Year, for you and anyone else that reads this before the end of this k"ewwll".night(12.31.o11).:)

First thing to say is, Happy new year everybody. Second, Thank you guys for all your help, but i don't have a solution yet. I've been trying all of your sugestion but nothing works yet.

Hericles, i don't know which function it's been called, i don't see any code related to the autocomplete property.

Codeorder, i played a little bit with the contexmenustrip control (and after that God of war lol), and it can be done that way. The problem is that i don't want a menu for this project. For this app, i have a form to send emails. I need the emails to appear automatically when users type. something similar hotmail or gmail.

I think the autocomplete property just work for one item. :(

I think it also works for one item, the first, which just makes programming that much more interesting for the rest of us big kids, we get bad toys to play with.:D

I'll see what I can do and will try to post something reasonable as soon as I have something reasonable. Should be no time, If Not for Assasin's Creed:Revelations:D, though almost at the end of story.:(

.k., started working on this:
1.TextBox,1.Label,1.ContextMenuStrip(toolbox:Menus & sh.t:)

Public Class Form1
    Private myEmailAddresses() As String = {"abc@daniweb.com", "abc.again@daniweb.com", "bcd@daniweb.com", "bcd.again@daniweb.com"}
    Private chrEmailSeparator As Char = ";"
    Private WithEvents tmrCM As New Timer With {.Interval = 500, .Enabled = True}

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        With ContextMenuStrip1
            '.dropdown()
        End With
    End Sub

    Private Sub TextBox1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, ContextMenuStrip1.KeyDown
        Select Case e.KeyCode
            Case Keys.Down
                With ContextMenuStrip1
                    If Not .Items.Count = 0 Then
                        .Select() : .Focus()
                        Dim iItemIndex As Integer = -1, sItemText As String = .GetItemAt(.DisplayRectangle.X, .DisplayRectangle.Y).Text
                        'For Each itm As ToolStripItem In .Items
                        '    If itm.Text = sItemText Then
                        '        iItemIndex += 1
                        '        Exit For
                        '    End If
                        'Next
                        TextBox1.Text = sItemText : .Select() : .Focus()
                    End If
                End With
        End Select

    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        loadCoolAutoComplete(myEmailAddresses, TextBox1, ContextMenuStrip1)
    End Sub

    'Private isReloaded As Boolean = True
    Private Sub loadCoolAutoComplete(ByVal selEmailsCoolArray As Array, ByVal selCoolTextBox As TextBox, ByVal selContextMenu As ContextMenuStrip)
        With selContextMenu
            .Items.Clear()
            Dim txtIndex As Integer = selCoolTextBox.GetLineFromCharIndex(selCoolTextBox.SelectionStart) - selCoolTextBox.GetFirstCharIndexFromLine(selCoolTextBox.GetLineFromCharIndex(selCoolTextBox.SelectionStart))
            For Each itm As String In selEmailsCoolArray
                If itm.StartsWith(selCoolTextBox.Text) Then .Items.Add(itm)
            Next
            'Dim sItemText As String = .GetItemAt(.DisplayRectangle.X, .DisplayRectangle.Y).Text
            'TextBox1.Text = sItemText : .Select() : .Focus()

            selCoolTextBox.Select(selCoolTextBox.TextLength, 0)
            '   If Not .Items.Count = 0 Then .Items(0).Select()
            '  selCoolTextBox.Text = .GetItemAt(.DisplayRectangle.X, .DisplayRectangle.Y).Text
            '  selCoolTextBox.Select(txtIndex, selCoolTextBox.TextLength - txtIndex)
            If Not selCoolTextBox.Text = Nothing Then 'andalso Not selCoolTextBox .Text .Contains ( Then
                .AutoClose = False
                .Show(Me, selCoolTextBox.Location.X, selCoolTextBox.Location.Y + selCoolTextBox.Height)
                If Not .Width = selCoolTextBox.Width Then .Width = selCoolTextBox.Width
            Else
                .AutoClose = True
                .Visible = False
            End If

        End With
    End Sub

    Private Sub ContextMenuStrip1_Closing(sender As Object, e As System.Windows.Forms.ToolStripDropDownClosingEventArgs) Handles ContextMenuStrip1.Closing
        tmrCM.Stop()
    End Sub

    Private Sub ContextMenuStrip1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles ContextMenuStrip1.KeyDown
        'With ContextMenuStrip1
        '    Dim sItemText As String = .GetItemAt(.DisplayRectangle.X, .DisplayRectangle.Y).Text
        '    Me.Text = sItemText
        'End With


    End Sub

    Private Sub _tmrCM_Tick(sender As Object, e As System.EventArgs) Handles tmrCM.Tick

    End Sub

    Private Sub ContextMenuStrip1_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ContextMenuStrip1.MouseMove
        With ContextMenuStrip1
            Try
                Dim sItemText As String = .GetItemAt(PointToScreen(MousePosition)).Text
                Label1.Text = sItemText
            Catch ex As Exception
                Label1.Text = ex.Message
            End Try

        End With
    End Sub

    Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
        tmrCM.Start()
    End Sub
End Class

It's Not bad? for a start.up, hope it helps.:)

Hey,

I happened to be working on this problem myself right now. Here is a simple bit of code you can add to the TextChanged event to give the Append autocomplete function anywhere in the textbox. It uses the AutoCompleteUstomSource already loaded for the TextBox

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged

        'Requires class level variable in order to stop event self-referencing
        If ImAdding Then Exit Sub

        'Load textbox.AutoCustomCompleteSource into List (of String)
        Dim SourceList As New List(Of String)
        For Each s As String In TextBox1.AutoCompleteCustomSource
            SourceList.Add(s)
        Next

        'Get last word entered
        Dim Txt = Trim(CStr(TextBox1.Text))
        Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)
        Dim CursorPosition As Integer = TextBox1.SelectionStart
        Dim lastWord As String = Trim(Txt.Substring(lastIndex))

        'Get word suggestions
        Dim Suggestions As IEnumerable(Of String)
        If Txt <> "" Then
            Suggestions = From c In SourceList Where c.StartsWith(lastWord, StringComparison.CurrentCultureIgnoreCase) Select c

        End If

        'Add word completion if available
        Try
            If Suggestions(0) <> "" Then

                ImAdding = True

                Dim addition As String = Suggestions(0)

                lastIndex = addition.IndexOf(lastWord, 0, Len(addition), StringComparison.CurrentCultureIgnoreCase) + Len(lastWord)
                Dim endofWord As String = Trim(addition.Substring(lastIndex))
                TextBox1.Text &= endofWord
                TextBox1.SelectionStart = CursorPosition
                TextBox1.SelectionLength = TextBox1.Text.Count

                ImAdding = False

            End If

        Catch ex As Exception

        End Try

    End Sub

This should go well with the dropdown being developed.

Hey,

I added the code to give a dropdown list as suggested above. Key handlers have also been added to automatically accept appended data when the space or enter keys are pressed, similar to how Intellisense works. Typed values are replaced with those from custom complete list in order to preserve preferred capitalization. The code is also generic so that any TextBox that uses the tb_TextChanged and tb_KeyDown methods will have the same dropdown capabilities. When the list of suggestions is less than 5, the search method switches from "StartsWith" to "Contains" to find all possible matches to the entered text.

Code contains 6 Class variables and 3 Methods for TextChanged and KeyDown Events, and for the "DropDown" click.

This will be useful when entering lists such as e-mail adressess or formulas.

Private ImAdding As Boolean = False
    Private ImDone As Boolean = False
    Private IveBeenClicked As Boolean = False
    Private tb As New TextBox
    Private newWord As String
    Private cmsDropDown As New ContextMenuStrip

    Private Sub tb_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged

        'Exit conditions: ImAdding prevents recursive event call, ImDeleting allows Backspace to work
        If bLoading Or ImAdding Or ImDone Or IveBeenClicked Or Trim(sender.text) = "" Then
            cmsDropDown.Close()
            Return
        End If

        'Close old dropdown lists
        cmsDropDown.Close()

        'Get last word entered
        tb = sender
        Dim CursorPosition As Integer = tb.SelectionStart
        Dim Txt = Trim(CStr(tb.Text))
        Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)
        Dim lastWord As String = Trim(Txt.Substring(lastIndex))

        'Get word suggestions based on word start for Append function
        Dim StringList As New List(Of String)
        For Each c In tb.AutoCompleteCustomSource
            StringList.Add(c)
        Next
        Dim Suggestions As IEnumerable(Of String) = From c In StringList Where c.StartsWith(lastWord, StringComparison.CurrentCultureIgnoreCase) Select c

        'Append word if available
        If Not (Suggestions(0) Is Nothing) Then

            ImAdding = True

            newWord = Suggestions(0)

            lastIndex = newWord.IndexOf(lastWord, 0, Len(newWord), StringComparison.CurrentCultureIgnoreCase) + Len(lastWord)
            Dim endofWord As String = Trim(newWord.Substring(lastIndex))
            tb.Text &= endofWord
            tb.SelectionStart = CursorPosition
            tb.SelectionLength = tb.Text.Count

            ImAdding = False

        End If

        'Reset suggestion list to 'contains' if list is small - NOW CASE SENSITIVE
        If Suggestions.Count < 5 Then
            Suggestions = From c In StringList Where c.IndexOf(lastWord, StringComparison.InvariantCultureIgnoreCase) <> -1 Select c 'c.Contains(lastWord) 
        End If

        'Display dropdown list
        If Suggestions.Count > 1 Then

            With cmsDropDown
                .Items.Clear()
                For iCount As Integer = 0 To IIf(Suggestions.Count > 25, 25, Suggestions.Count)
                    .Items.Add(Suggestions(iCount))
                    AddHandler .Items(iCount).Click, AddressOf cmsDropDown_Click
                Next
                .AutoSize = False
                .AutoClose = False
                .Width = tb.Width
                .Font = tb.Font
                .BackColor = tb.BackColor
                .MaximumSize = New Size(tb.Width, 200)
                .LayoutStyle = ToolStripLayoutStyle.VerticalStackWithOverflow
                .Show(tlpBasic, tb.Location.X, tb.Location.Y + tb.Height)
            End With

            'set focus back to original control
            tb.Focus()
        Else

            cmsDropDown.Close()

        End If

    End Sub

    Private Sub cmsDropDown_Click(sender As System.Object, e As System.EventArgs)

        cmsDropDown.Close()

        'Get last word of TextBox
        Dim Txt = Trim(CStr(tb.Text))
        Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)

        'Set to new value
        With tb
            .SelectionStart = lastIndex
            .SelectionLength = .TextLength
            .SelectedText = sender.text
        End With

        IveBeenClicked = True

    End Sub

    Private Sub tb_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown


        Select Case e.KeyCode

            Case Keys.Back
                ImDone = True
                IveBeenClicked = False
                newWord = ""

            Case Keys.Space
                'If tb.SelectionLength = 0 Then
                Dim Txt = Trim(CStr(tb.Text))
                Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)

                'Set to new value
                If newWord <> "" Then
                    With tb
                        .SelectionStart = lastIndex
                        .SelectionLength = .TextLength
                        .SelectedText = newWord
                    End With
                    newWord = ""
                End If
                'End If

                tb.SelectionStart = tb.TextLength

                ImDone = True
                IveBeenClicked = False

            Case Keys.Enter
                Dim Txt = Trim(CStr(tb.Text))
                Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)

                'Set to new value
                If newWord <> "" Then
                    With tb
                        .SelectionStart = lastIndex
                        .SelectionLength = .TextLength
                        .SelectedText = newWord
                    End With
                    newWord = ""
                End If

                tb.SelectionStart = tb.TextLength

                ImDone = True
                IveBeenClicked = False
                newWord = ""

            Case Else
                ImDone = False
                IveBeenClicked = False

        End Select

    End Sub

Hope this solves your problem.

Chris
http://thephilosopherstone.ca

Hi guys, i am sorry for the late response, was on vacation. Now to the fun again lol. I will try the 3 solutions and will let know the results. Thank you for all your help.

Eagerly, Not waiting.:D
btw, hope you enjoyed your vacation and that you were only thinking about the pussy.cat and vb.net.

I DID KINDA MAKE SOME CHANGES IT WORKED WELL FOR ME!
I HAD TO JOIN JUST TO SHARE IT!

Imports System.Drawing
Imports System.Windows.Forms
Imports System.String
Imports System.Text

Public Class SyntaxTextBox
    Inherits RichTextBox
    Private ImAdding As Boolean = False
    Private ImDone As Boolean = False
    Private IveBeenClicked As Boolean = False
    Private tb As SyntaxTextBox = Me
    Private newWord As String
    Private cmsDropDown As New ContextMenuStrip
    Dim Suggestions As IEnumerable(Of String)
    Dim lastWord As String = ""
    Dim LastIndex As Integer = 0

    Private iSyntax As New List(Of String)
    Public Property Syntax As List(Of String)
        Get
            Return iSyntax
        End Get
        Set(value As List(Of String))
            iSyntax = value
        End Set
    End Property





    Public Sub HighlightTerm(ByRef Str As String)
        Highlighter.HighlightWord(Me, Str)
    End Sub
    Public Sub HighlightTerms(ByRef Str As List(Of String))

        For Each item In Str
            Highlighter.HighlightWord(Me, item)
        Next


    End Sub


    ''' <summary>
    ''' Colors Words in RichText Box
    ''' </summary>
    Public Class Highlighter
        ''' <summary>
        ''' Returns Propercase Sentence
        ''' </summary>
        ''' <param name="TheString">String to be formatted</param>
        ''' <returns></returns>
        Private Shared Function ProperCase(ByRef TheString As String) As String
            ProperCase = UCase(Strings.Left(TheString, 1))

            For i = 2 To Len(TheString)

                ProperCase = If(Mid(TheString, i - 1, 1) = " ", ProperCase & UCase(Mid(TheString, i, 1)), ProperCase & LCase(Mid(TheString, i, 1)))
            Next i
        End Function
        Public Shared SyntaxTerms() As String = ({"SPYDAZ", "ABS", "ACCESS", "ADDITEM", "ADDNEW", "ALIAS", "AND", "ANY", "APP", "APPACTIVATE", "APPEND", "APPENDCHUNK", "ARRANGE", "AS", "ASC", "ATN", "BASE", "BEEP", "BEGINTRANS", "BINARY", "BYVAL", "CALL", "CASE", "CCUR", "CDBL", "CHDIR", "CHDRIVE", "CHR", "CHR$", "CINT", "CIRCLE", "CLEAR", "CLIPBOARD", "CLNG", "CLOSE", "CLS", "COMMAND", "
COMMAND$", "COMMITTRANS", "COMPARE", "CONST", "CONTROL", "CONTROLS", "COS", "CREATEDYNASET", "CSNG", "CSTR", "CURDIR$", "CURRENCY", "CVAR", "CVDATE", "DATA", "DATE", "DATE$", "DIM", "DATESERIAL", "DATEVALUE", "DAY", "
DEBUG", "DECLARE", "DEFCUR", "CEFDBL", "DEFINT", "DEFLNG", "DEFSNG", "DEFSTR", "DEFVAR", "DELETE", "DIM", "DIR", "DIR$", "DO", "DOEVENTS", "DOUBLE", "DRAG", "DYNASET", "EDIT", "ELSE", "ELSEIF", "END", "ENDDOC", "ENDIF", "
ENVIRON$", "EOF", "EQV", "ERASE", "ERL", "ERR", "ERROR", "ERROR$", "EXECUTESQL", "EXIT", "EXP", "EXPLICIT", "FALSE", "FIELDSIZE", "FILEATTR", "FILECOPY", "FILEDATETIME", "FILELEN", "FIX", "FOR", "FORM", "FORMAT", "
FORMAT$", "FORMS", "FREEFILE", "FUNCTION", "GET", "GETATTR", "GETCHUNK", "GETDATA", "DETFORMAT", "GETTEXT", "GLOBAL", "GOSUB", "GOTO", "HEX", "HEX$", "HIDE", "HOUR", "IF", "IMP", "INPUT", "INPUT$", "INPUTBOX", "INPUTBOX$", "
INSTR", "INT", "INTEGER", "IS", "ISDATE", "ISEMPTY", "ISNULL", "ISNUMERIC", "KILL", "LBOUND", "LCASE", "LCASE$", "LEFT", "LEFT$", "LEN", "LET", "LIB", "LIKE", "LINE", "LINKEXECUTE", "LINKPOKE", "LINKREQUEST", "
LINKSEND", "LOAD", "LOADPICTURE", "LOC", "LOCAL", "LOCK", "LOF", "LOG", "LONG", "LOOP", "LSET", "LTRIM",
    "LTRIM$", "ME", "MID", "MID$", "MINUTE", "MKDIR", "MOD", "MONTH", "MOVE", "MOVEFIRST", "MOVELAST", "MOVENEXT", "MOVEPREVIOUS",
    "MOVERELATIVE", "MSGBOX", "NAME", "NEW", "NEWPAGE", "NEXT", "NEXTBLOCK", "NOT", "NOTHING",
    "NOW", "NULL", "OCT", "OCT$", "ON", "OPEN", "OPENDATABASE", "OPTION", "OR", "OUTPUT", "POINT", "PRESERVE", "PRINT",
    "PRINTER", "PRINTFORM", "PRIVATE", "PSET", "PUT", "PUBLIC", "QBCOLOR", "RANDOM", "RANDOMIZE", "READ", "REDIM", "REFRESH",
    "REGISTERDATABASE", "REM", "REMOVEITEM", "RESET", "RESTORE", "RESUME", "RETURN", "RGB", "RIGHT", "RIGHT$", "RMDIR", "RND",
    "ROLLBACK", "RSET", "RTRIM", "RTRIM$", "SAVEPICTURE", "SCALE", "SECOND", "SEEK", "SELECT", "SENDKEYS", "SET", "SETATTR",
    "SETDATA", "SETFOCUS", "SETTEXT", "SGN", "SHARED",
    "SHELL", "SHOW", "SIN", "SINGLE", "SPACE", "SPACE$", "SPC", "SQR",
    "STATIC", "STEP", "STOP", "STR", "STR$", "STRCOMP", "STRING", "STRING$", "SUB",
    "SYSTEM", "TAB", "TAN", "TEXT", "TEXTHEIGHT", "TEXTWIDTH", "THEN", "TIME", "TIME$",
    "TIMER", "TIMESERIAL", "TIMEVALUE", "TO", "TRIM",
    "TRIM$", "TRUE", "TYPE", "TYPEOF", "UBOUND", "UCASE", "UCASE$", "UNLOAD",
    "UNLOCK", "UNTIL", "UPDATE", "USING", "VAL", "VARIANT", "VARTYPE", "WEEKDAY", "WEND", "WHILE", "WIDTH",
    "WRITE", "XOR", "YEAR", "ZORDER", "ADDHANDLER", "ADDRESSOF", "ALIAS", "AND", "ANDALSO", "AS", "BYREF",
    "BOOLEAN", "BYTE", "BYVAL", "CALL", "CASE", "CATCH", "CBOOL", "CBYTE", "CCHAR", "CDATE",
    "CDEC", "CDBL", "CHAR", "CINT", "CLASS", "CLNG", "COBJ", "CONST", "CONTINUE", "CSBYTE",
    "CSHORT", "CSNG", "CSTR", "CTYPE", "CUINT", "CULNG", "CUSHORT", "DATE", "DECIMAL", "DECLARE",
    "DEFAULT", "DELEGATE", "DIM", "DIRECTCAST", "DOUBLE", "DO", "EACH", "ELSE", "ELSEIF", "END",
    "ENDIF", "ENUM", "ERASE", "ERROR", "EVENT", "EXIT", "FALSE", "FINALLY", "FOR", "FRIEND",
    "FUNCTION", "GET", "GETTYPE", "GLOBAL", "GOSUB", "GOTO", "HANDLES", "IF", "IMPLEMENTS",
    "IMPORTS", "IN", "INHERITS", "INTEGER", "INTERFACE", "IS", "ISNOT", "LET", "LIB", "LIKE",
    "LONG", "LOOP", "ME", "MOD", "MODULE", "MUSTINHERIT", "MUSTOVERRIDE", "MYBASE", "MYCLASS",
    "NAMESPACE", "NARROWING", "NEW", "NEXT", "NOT", "NOTHING", "NOTINHERITABLE", "NOTOVERRIDABLE",
    "OBJECT", "ON", "OF", "OPERATOR", "OPTION", "OPTIONAL", "OR", "ORELSE", "OVERLOADS",
    "OVERRIDABLE", "OVERRIDES", "PARAMARRAY", "PARTIAL", "PRIVATE", "PROPERTY", "PROTECTED",
    "PUBLIC", "RAISEEVENT", "READONLY", "REDIM", "REM", "REMOVEHANDLER", "RESUME", "RETURN",
    "SBYTE", "SELECT", "SET", "SHADOWS", "SHARED", "SHORT", "SINGLE", "STATIC", "STEP", "STOP",
    "STRING", "STRUCTURE", "SUB", "SYNCLOCK", "THEN", "THROW", "TO", "TRUE", "TRY", "TRYCAST",
    "TYPEOF", "WEND", "VARIANT", "UINTEGER", "ULONG", "USHORT", "USING", "WHEN", "WHILE", "WIDENING",
    "WITH", "WITHEVENTS", "WRITEONLY", "XOR", "#CONST", "#ELSE", "#ELSEIF", "#END", "#IF"})

        Private Shared indexOfSearchText As Integer = 0

        Private Shared start As Integer = 0

        Private mGrammar As New List(Of String)

        Public Shared Sub ColorSearchTerm(ByRef SearchStr As String, Rtb As RichTextBox)
            ColorSearchTerm(SearchStr, Rtb, Color.CadetBlue)
        End Sub

        Public Shared Sub ColorSearchTerm(ByRef SearchStr As String, Rtb As RichTextBox, ByRef MyColor As Color)
            Dim startindex As Integer = 0
            start = 0
            indexOfSearchText = 0

            If SearchStr <> "" Then

                SearchStr = SearchStr & " "
                If SearchStr.Length > 0 Then
                    startindex = FindText(Rtb, ProperCase(SearchStr), start, Rtb.Text.Length)
                End If
                If SearchStr.Length > 0 And startindex = 0 Then
                    startindex = FindText(Rtb, LCase(SearchStr), start, Rtb.Text.Length)
                End If
                If SearchStr.Length > 0 And startindex = 0 Then
                    startindex = FindText(Rtb, UCase(SearchStr), start, Rtb.Text.Length)
                End If
                If SearchStr.Length > 0 And startindex = 0 Then
                    startindex = FindText(Rtb, SearchStr, start, Rtb.Text.Length)
                End If
                ' If string was found in the RichTextBox, highlight it
                If startindex >= 0 Then
                    ' Set the highlight color as red
                    Rtb.SelectionColor = MyColor

                    ' Find the end index. End Index = number of characters in textbox
                    Dim endindex As Integer = SearchStr.Length
                    ' Highlight the search string

                    Rtb.Select(startindex, endindex)
                    Rtb.SelectedText.ToUpper()
                    ' mark the start position after the position of last search string
                    start = startindex + endindex

                End If
            Else
            End If
            Rtb.Select(Rtb.TextLength, Rtb.TextLength)
        End Sub

        ''' <summary>
        ''' Searches For Internal Syntax
        ''' </summary>
        ''' <param name="Rtb"></param>
        ''' <remarks></remarks>
        Public Shared Sub SearchSyntax(ByRef Rtb As RichTextBox)
            'Searches Basic Syntax
            For Each wrd As String In SyntaxTerms
                start = 0
                indexOfSearchText = 0
                ColorSearchTerm(wrd, Rtb)
            Next
            For Each wrd As String In SyntaxTerms
                start = 0
                indexOfSearchText = 0
                ColorSearchTerm(wrd, Rtb)
            Next
        End Sub

        ''' <summary>
        ''' Searches For Internal Syntax
        ''' </summary>
        ''' <param name="Rtb"></param>
        ''' <remarks></remarks>
        Public Shared Sub SearchSyntax(ByRef Rtb As RichTextBox, ByRef Terms As List(Of String))
            'Searches Basic Syntax
            For Each wrd As String In SyntaxTerms
                start = 0
                indexOfSearchText = 0
                ColorSearchTerm(wrd, Rtb)
            Next
            For Each wrd As String In Terms
                start = 0
                indexOfSearchText = 0
                ColorSearchTerm(UCase(wrd), Rtb)
            Next
        End Sub

        ''' <summary>
        ''' Searches for Specific Word to colorize (Blue)
        ''' </summary>
        ''' <param name="Rtb"></param>
        ''' <param name="SearchStr"></param>
        ''' <remarks></remarks>
        Public Shared Sub SearchSyntax(ByRef Rtb As RichTextBox, ByRef SearchStr As String)
            start = 0
            indexOfSearchText = 0
            ColorSearchTerm(SearchStr, Rtb)
        End Sub

        ''' <summary>
        ''' Searches for Specfic word to colorize specified color
        ''' </summary>
        ''' <param name="Rtb"></param>
        ''' <param name="SearchStr"></param>
        ''' <param name="MyColor"></param>
        ''' <remarks></remarks>
        Public Shared Sub SearchSyntax(ByRef Rtb As RichTextBox, ByRef SearchStr As String, MyColor As Color)

            start = 0
            indexOfSearchText = 0
            ColorSearchTerm(SearchStr, Rtb, MyColor)

        End Sub

        Private Shared Function FindText(ByRef Rtb As RichTextBox, SearchStr As String,
                                                        ByVal searchStart As Integer, ByVal searchEnd As Integer) As Integer

            ' Unselect the previously searched string
            If searchStart > 0 AndAlso searchEnd > 0 AndAlso indexOfSearchText >= 0 Then
                Rtb.Undo()
            End If

            ' Set the return value to -1 by default.
            Dim retVal As Integer = -1

            ' A valid starting index should be specified. if indexOfSearchText = -1, the end of search
            If searchStart >= 0 AndAlso indexOfSearchText >= 0 Then

                ' A valid ending index
                If searchEnd > searchStart OrElse searchEnd = -1 Then

                    ' Find the position of search string in RichTextBox
                    indexOfSearchText = Rtb.Find(SearchStr, searchStart, searchEnd, RichTextBoxFinds.WholeWord)

                    ' Determine whether the text was found in richTextBox1.
                    If indexOfSearchText <> -1 Then
                        ' Return the index to the specified search text.
                        retVal = indexOfSearchText
                    End If

                End If
            End If
            Return retVal

        End Function

        Public Shared Sub HighlightInternalSyntax(ByRef sender As RichTextBox)


            For Each Word As String In SyntaxTerms
                '  HighlightWord(sender, Word)
                HighlightWord(sender, LCase(Word))
                HighlightWord(sender, ProperCase(Word))
            Next

        End Sub

        Public Shared Sub HighlightWord(ByRef sender As RichTextBox, ByRef word As String)

            Dim index As Integer = 0
            While index < sender.Text.LastIndexOf(word)
                'find
                sender.Find(word, index, sender.TextLength, RichTextBoxFinds.WholeWord)
                'select and color
                sender.SelectionColor = Color.Blue
                ' word = UCase(word)
                index = sender.Text.IndexOf(word, index) + 1
            End While
        End Sub
    End Class

    Private Sub InitializeComponent()
        Me.SuspendLayout()
        '
        'SyntaxTextBox
        '
        Me.AutoWordSelection = True
        Me.EnableAutoDragDrop = True
        Me.Font = New System.Drawing.Font("Courier New", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ResumeLayout(False)
        AddTerms()
    End Sub

    Private Sub SyntaxTextBox_TextChanged(sender As Object, e As EventArgs) Handles Me.TextChanged
        'Exit conditions: ImAdding prevents recursive event call, ImDeleting allows Backspace to work
        If ImAdding Or ImDone Or IveBeenClicked Or Strings.Trim(sender.text) = "" Then
            cmsDropDown.Close()
            Return
        End If
        'Close old dropdown lists
        cmsDropDown.Close()

        'Get last word entered
        tb = sender
        Dim CursorPosition As Integer = tb.SelectionStart
        lastWord = GetLastWordEntered(tb)
        Suggestions = GetSuggestions(lastWord)
        LastIndex = GetLastIndex(tb)

        ''Display dropdown list above 3 to stop keep popping up
        If Suggestions.Count > 0 Then

            With cmsDropDown
                .Items.Clear()
                For iCount As Integer = 0 To IIf(Suggestions.Count > 40, 40, Suggestions.Count)
                    .Items.Add(Suggestions(iCount))
                    AddHandler .Items(iCount).Click, AddressOf cmsDropDown_Click
                Next
                .AutoSize = True
                .AutoClose = False
                .Width = tb.Width
                .Font = tb.Font
                .ForeColor = Color.Aqua
                .BackColor = Color.Black
                .BackgroundImage = My.Resources.Bar2
                .BackgroundImageLayout = ImageLayout.Stretch
                .MaximumSize = New Size(tb.Width, 300)
                .LayoutStyle = ToolStripLayoutStyle.Flow
                .Show(MousePosition.X + 10, MousePosition.Y + 50)

            End With

            'set focus back to original control
            tb.Focus()
        Else

            cmsDropDown.Close()

        End If
    End Sub
    Public Function GetLastIndex(ByRef sender As SyntaxTextBox) As Integer
        'Get last word entered
        tb = sender
        Dim CursorPosition As Integer = tb.SelectionStart
        Dim Txt = Strings.Trim(CStr(tb.Text))
        Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)
        Return lastIndex
    End Function
    Public Function GetSuggestions(ByVal LastWord As String) As IEnumerable(Of String)
        Dim QueryStR As String = LastWord
        'Get word suggestions based on word start for Append function
        Dim StringList As New List(Of String)
        For Each c In tb.iSyntax
            StringList.Add(c)
        Next
        Dim iSuggestions As IEnumerable(Of String) = From c In StringList Where c.StartsWith(QueryStR, StringComparison.InvariantCultureIgnoreCase) Select c
        ''Reset suggestion list to 'contains' if list is small - NOW CASE SENSITIVE
        If iSuggestions.Count < 5 Then
            iSuggestions = From c In StringList Where c.IndexOf(LastWord, StringComparison.InvariantCultureIgnoreCase) <> -1 Select c 'c.Contains(lastWord) 
        End If
        Return iSuggestions
    End Function
    Public Function GetLastWordEntered(ByRef Sender As SyntaxTextBox) As String
        'Get last word entered
        tb = Sender
        Try
            Dim CursorPosition As Integer = tb.SelectionStart
            Dim Txt = Strings.Trim(CStr(tb.Text))
            Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)
            Dim lastWord As String = Strings.Trim(Txt.Substring(lastIndex))
            Return lastWord

        Catch ex As Exception
            MessageBox.Show(ex.ToString, "GetLastWordEntered Error ")
        End Try
        Return ""
    End Function
    Public Sub AddTerms()
        For Each item In SyntaxTerms
            If Checkterm(item) = False Then
                Me.Syntax.Add(item)
            End If
        Next
    End Sub
    Public Function Checkterm(ByRef str As String) As Boolean
        Checkterm = False
        For Each item In Syntax
            If item = str Then Return True

        Next
    End Function

    Public Shared SyntaxTerms() As String = ({"SPYDAZ", "ABS", "ACCESS", "ADDITEM", "ADDNEW", "ALIAS", "AND", "ANY", "APP", "APPACTIVATE", "APPEND", "APPENDCHUNK", "ARRANGE", "AS", "ASC", "ATN", "BASE", "BEEP", "BEGINTRANS", "BINARY", "BYVAL", "CALL", "CASE", "CCUR", "CDBL", "CHDIR", "CHDRIVE", "CHR", "CHR$", "CINT", "CIRCLE", "CLEAR", "CLIPBOARD", "CLNG", "CLOSE", "CLS", "COMMAND", "
COMMAND$", "COMMITTRANS", "COMPARE", "CONST", "CONTROL", "CONTROLS", "COS", "CREATEDYNASET", "CSNG", "CSTR", "CURDIR$", "CURRENCY", "CVAR", "CVDATE", "DATA", "DATE", "DATE$", "DIM", "DATESERIAL", "DATEVALUE", "DAY", "
DEBUG", "DECLARE", "DEFCUR", "CEFDBL", "DEFINT", "DEFLNG", "DEFSNG", "DEFSTR", "DEFVAR", "DELETE", "DIM", "DIR", "DIR$", "DO", "DOEVENTS", "DOUBLE", "DRAG", "DYNASET", "EDIT", "ELSE", "ELSEIF", "END", "ENDDOC", "ENDIF", "
ENVIRON$", "EOF", "EQV", "ERASE", "ERL", "ERR", "ERROR", "ERROR$", "EXECUTESQL", "EXIT", "EXP", "EXPLICIT", "FALSE", "FIELDSIZE", "FILEATTR", "FILECOPY", "FILEDATETIME", "FILELEN", "FIX", "FOR", "FORM", "FORMAT", "
FORMAT$", "FORMS", "FREEFILE", "FUNCTION", "GET", "GETATTR", "GETCHUNK", "GETDATA", "DETFORMAT", "GETTEXT", "GLOBAL", "GOSUB", "GOTO", "HEX", "HEX$", "HIDE", "HOUR", "IF", "IMP", "INPUT", "INPUT$", "INPUTBOX", "INPUTBOX$", "
INSTR", "INT", "INTEGER", "IS", "ISDATE", "ISEMPTY", "ISNULL", "ISNUMERIC", "KILL", "LBOUND", "LCASE", "LCASE$", "LEFT", "LEFT$", "LEN", "LET", "LIB", "LIKE", "LINE", "LINKEXECUTE", "LINKPOKE", "LINKREQUEST", "
LINKSEND", "LOAD", "LOADPICTURE", "LOC", "LOCAL", "LOCK", "LOF", "LOG", "LONG", "LOOP", "LSET", "LTRIM",
    "LTRIM$", "ME", "MID", "MID$", "MINUTE", "MKDIR", "MOD", "MONTH", "MOVE", "MOVEFIRST", "MOVELAST", "MOVENEXT", "MOVEPREVIOUS",
    "MOVERELATIVE", "MSGBOX", "NAME", "NEW", "NEWPAGE", "NEXT", "NEXTBLOCK", "NOT", "NOTHING",
    "NOW", "NULL", "OCT", "OCT$", "ON", "OPEN", "OPENDATABASE", "OPTION", "OR", "OUTPUT", "POINT", "PRESERVE", "PRINT",
    "PRINTER", "PRINTFORM", "PRIVATE", "PSET", "PUT", "PUBLIC", "QBCOLOR", "RANDOM", "RANDOMIZE", "READ", "REDIM", "REFRESH",
    "REGISTERDATABASE", "REM", "REMOVEITEM", "RESET", "RESTORE", "RESUME", "RETURN", "RGB", "RIGHT", "RIGHT$", "RMDIR", "RND",
    "ROLLBACK", "RSET", "RTRIM", "RTRIM$", "SAVEPICTURE", "SCALE", "SECOND", "SEEK", "SELECT", "SENDKEYS", "SET", "SETATTR",
    "SETDATA", "SETFOCUS", "SETTEXT", "SGN", "SHARED",
    "SHELL", "SHOW", "SIN", "SINGLE", "SPACE", "SPACE$", "SPC", "SQR",
    "STATIC", "STEP", "STOP", "STR", "STR$", "STRCOMP", "STRING", "STRING$", "SUB",
    "SYSTEM", "TAB", "TAN", "TEXT", "TEXTHEIGHT", "TEXTWIDTH", "THEN", "TIME", "TIME$",
    "TIMER", "TIMESERIAL", "TIMEVALUE", "TO", "TRIM",
    "TRIM$", "TRUE", "TYPE", "TYPEOF", "UBOUND", "UCASE", "UCASE$", "UNLOAD",
    "UNLOCK", "UNTIL", "UPDATE", "USING", "VAL", "VARIANT", "VARTYPE", "WEEKDAY", "WEND", "WHILE", "WIDTH",
    "WRITE", "XOR", "YEAR", "ZORDER", "ADDHANDLER", "ADDRESSOF", "ALIAS", "AND", "ANDALSO", "AS", "BYREF",
    "BOOLEAN", "BYTE", "BYVAL", "CALL", "CASE", "CATCH", "CBOOL", "CBYTE", "CCHAR", "CDATE",
    "CDEC", "CDBL", "CHAR", "CINT", "CLASS", "CLNG", "COBJ", "CONST", "CONTINUE", "CSBYTE",
    "CSHORT", "CSNG", "CSTR", "CTYPE", "CUINT", "CULNG", "CUSHORT", "DATE", "DECIMAL", "DECLARE",
    "DEFAULT", "DELEGATE", "DIM", "DIRECTCAST", "DOUBLE", "DO", "EACH", "ELSE", "ELSEIF", "END",
    "ENDIF", "ENUM", "ERASE", "ERROR", "EVENT", "EXIT", "FALSE", "FINALLY", "FOR", "FRIEND",
    "FUNCTION", "GET", "GETTYPE", "GLOBAL", "GOSUB", "GOTO", "HANDLES", "IF", "IMPLEMENTS",
    "IMPORTS", "IN", "INHERITS", "INTEGER", "INTERFACE", "IS", "ISNOT", "LET", "LIB", "LIKE",
    "LONG", "LOOP", "ME", "MOD", "MODULE", "MUSTINHERIT", "MUSTOVERRIDE", "MYBASE", "MYCLASS",
    "NAMESPACE", "NARROWING", "NEW", "NEXT", "NOT", "NOTHING", "NOTINHERITABLE", "NOTOVERRIDABLE",
    "OBJECT", "ON", "OF", "OPERATOR", "OPTION", "OPTIONAL", "OR", "ORELSE", "OVERLOADS",
    "OVERRIDABLE", "OVERRIDES", "PARAMARRAY", "PARTIAL", "PRIVATE", "PROPERTY", "PROTECTED",
    "PUBLIC", "RAISEEVENT", "READONLY", "REDIM", "REM", "REMOVEHANDLER", "RESUME", "RETURN",
    "SBYTE", "SELECT", "SET", "SHADOWS", "SHARED", "SHORT", "SINGLE", "STATIC", "STEP", "STOP",
    "STRING", "STRUCTURE", "SUB", "SYNCLOCK", "THEN", "THROW", "TO", "TRUE", "TRY", "TRYCAST",
    "TYPEOF", "WEND", "VARIANT", "UINTEGER", "ULONG", "USHORT", "USING", "WHEN", "WHILE", "WIDENING",
    "WITH", "WITHEVENTS", "WRITEONLY", "XOR", "#CONST", "#ELSE", "#ELSEIF", "#END", "#IF"})

    Public Sub New()
        AddTerms()
    End Sub

    Private Sub cmsDropDown_Click(sender As System.Object, e As System.EventArgs)

        cmsDropDown.Close()

        'Get last word of TextBox
        Dim Txt = Strings.Trim(CStr(Me.Text))
        Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)

        'Set to new value 
        With Me
            .SelectionStart = lastIndex
            .SelectionLength = .TextLength
            .SelectedText = sender.text
        End With

        IveBeenClicked = True

    End Sub
    Private Sub ClassInteliTextBox_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown

        AddTerms()

        Select Case e.KeyCode
            Case Keys.Insert
                Dim CursorPosition As Integer = tb.SelectionStart
                Highlighter.HighlightInternalSyntax(Me)
                Highlighter.SearchSyntax(Me, iSyntax)
                sender.SelectionStart = CursorPosition
            Case Keys.Tab
                If Suggestions IsNot Nothing Then
                    ImAdding = True
                    Dim CursorPosition As Integer = tb.SelectionStart
                    'Append word if available (autoSelect)
                    If Not (Suggestions(0) Is Nothing) Then
                        newWord = Suggestions(0)
                    End If
                    'If tb.SelectionLength = 0 Then
                    Dim Txt = Strings.Trim(CStr(tb.Text))
                    Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)
                    Dim Pos As Integer = 0
                    'Set to new value
                    If newWord <> "" Then
                        With sender
                            .SelectionStart = lastIndex
                            .SelectionLength = .TextLength
                            .SelectedText = newWord
                            Pos = .TextLength
                        End With
                        newWord = ""
                    End If
                    'End If

                    sender.SelectionStart = Pos

                    ImDone = True
                    IveBeenClicked = True
                    e.SuppressKeyPress = True

                End If
            Case Keys.Back
                ImDone = True
                IveBeenClicked = False
                newWord = ""

            Case Keys.Space

                If sender.SelectionLength > 0 Then
                    Dim Txt = Strings.Trim(CStr(sender.Text))
                    Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)

                    'Set to new value
                    If newWord <> "" Then
                        With sender
                            .SelectionStart = lastIndex
                            .SelectionLength = .TextLength
                            .SelectedText = newWord
                        End With
                        newWord = ""
                    End If
                    'End If

                    sender.SelectionStart = sender.TextLength

                    ImDone = True
                    IveBeenClicked = False
                End If
                ImDone = True
                IveBeenClicked = False
            Case Keys.Enter
                Dim Txt = Strings.Trim(CStr(sender.Text))
                Dim lastIndex As Integer = IIf(Txt.LastIndexOf(" ") = -1, 0, Txt.LastIndexOf(" ") + 1)

                'Set to new value
                If newWord <> "" Then
                    With sender
                        .SelectionStart = lastIndex
                        .SelectionLength = .TextLength
                        .SelectedText = newWord
                    End With
                    newWord = ""
                End If

                tb.SelectionStart = sender.TextLength

                ImDone = True
                IveBeenClicked = False
                newWord = ""

            Case Else
                ImDone = False
                IveBeenClicked = False

        End Select


    End Sub


End Class
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, learning, and sharing knowledge.