Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Awesome control and some help and ideas needed.
#1
<!-- m --><a class="postlink" href="http://www.codeproject.com/KB/edit/FastColoredTextBox_.aspx?msg=4072439#xx4072439xx">http://www.codeproject.com/KB/edit/Fast ... x4072439xx</a><!-- m -->
Here is an amazing control that Brandon and I were discussing today. Does anyone have an idea of how to use the AutoComplete feature in VB?
#2
Another thing - does anyone have an idea of how to use a custom syntax file with it?
#3
This is what is shown from the code converter

Code:
Imports System.Windows.Forms
Imports FastColoredTextBoxNS
Imports System.Drawing
Imports System.Linq
Imports System.Collections.Generic
Imports System.Text.RegularExpressions

Namespace Tester
    Public Partial Class AutocompleteSample2
        Inherits Form
        Private popupMenu As AutocompleteMenu
        Private keywords As String() = {"abstract", "as", "base", "bool", "break", "byte", _
            "case", "catch", "char", "checked", "class", "const", _
            "continue", "decimal", "default", "delegate", "do", "double", _
            "else", "enum", "event", "explicit", "extern", "false", _
            "finally", "fixed", "float", "for", "foreach", "goto", _
            "if", "implicit", "in", "int", "interface", "internal", _
            "is", "lock", "long", "namespace", "new", "null", _
            "object", "operator", "out", "override", "params", "private", _
            "protected", "public", "readonly", "ref", "return", "sbyte", _
            "sealed", "short", "sizeof", "stackalloc", "static", "string", _
            "struct", "switch", "this", "throw", "true", "try", _
            "typeof", "uint", "ulong", "unchecked", "unsafe", "ushort", _
            "using", "virtual", "void", "volatile", "while", "add", _
            "alias", "ascending", "descending", "dynamic", "from", "get", _
            "global", "group", "into", "join", "let", "orderby", _
            "partial", "remove", "select", "set", "value", "var", _
            "where", "yield"}
        Private methods As String() = {"Equals()", "GetHashCode()", "GetType()", "ToString()"}
        Private snippets As String() = {"if(^)" & vbLf & "{" & vbLf & ";" & vbLf & "}", "if(^)" & vbLf & "{" & vbLf & ";" & vbLf & "}" & vbLf & "else" & vbLf & "{" & vbLf & ";" & vbLf & "}", "for(^;;)${" & vbLf & ";" & vbLf & "}", "while(^)" & vbLf & "{" & vbLf & ";" & vbLf & "}", "do${" & vbLf & "^;" & vbLf & "}while();", "switch(^)" & vbLf & "{" & vbLf & "case : break;" & vbLf & "}"}
        Private declarationSnippets As String() = {"public class ^" & vbLf & "{" & vbLf & "}", "private class ^" & vbLf & "{" & vbLf & "}", "internal class ^" & vbLf & "{" & vbLf & "}", "public struct ^" & vbLf & "{" & vbLf & ";" & vbLf & "}", "private struct ^" & vbLf & "{" & vbLf & ";" & vbLf & "}", "internal struct ^" & vbLf & "{" & vbLf & ";" & vbLf & "}", _
            "public void ^()" & vbLf & "{" & vbLf & ";" & vbLf & "}", "private void ^()" & vbLf & "{" & vbLf & ";" & vbLf & "}", "internal void ^()" & vbLf & "{" & vbLf & ";" & vbLf & "}", "protected void ^()" & vbLf & "{" & vbLf & ";" & vbLf & "}", "public ^{ get; set; }", "private ^{ get; set; }", _
            "internal ^{ get; set; }", "protected ^{ get; set; }"}

        Public Sub New()
            InitializeComponent()

            'create autocomplete popup menu
            popupMenu = New AutocompleteMenu(fastColoredTextBox1)
            popupMenu.Items.ImageList = imageList1
            popupMenu.SearchPattern = "[\w\.:=!<>]"
            '
            BuildAutocompleteMenu()
        End Sub

        Private Sub BuildAutocompleteMenu()
            Dim items As New List(Of AutocompleteItem)()

            For Each item As var In snippets
                items.Add(New SnippetAutocompleteItem(item) With { _
                    Key .ImageIndex = 1 _
                })
            Next
            For Each item As var In declarationSnippets
                items.Add(New DeclarationSnippet(item) With { _
                    Key .ImageIndex = 0 _
                })
            Next
            For Each item As var In methods
                items.Add(New MethodAutocompleteItem(item) With { _
                    Key .ImageIndex = 2 _
                })
            Next
            For Each item As var In keywords
                items.Add(New AutocompleteItem(item))
            Next

            items.Add(New InsertSpaceSnippet())
            items.Add(New InsertSpaceSnippet("^(\w+)([=<>!:]+)(\w+)$"))
            items.Add(New InsertEnterSnippet())

            'set as autocomplete source
            popupMenu.Items.SetAutocompleteItems(items)
        End Sub

        ''' <summary>
        ''' This item appears when any part of snippet text is typed
        ''' </summary>
        Private Class DeclarationSnippet
            Inherits SnippetAutocompleteItem
            Public Sub New(snippet As String)
                MyBase.New(snippet)
            End Sub

            Public Overrides Function Compare(fragmentText As String) As CompareResult
                Dim pattern = Regex.Replace(fragmentText, FastColoredTextBoxNS.FindForm.RegexSpecSymbolsPattern, "\$0")
                If Regex.IsMatch(Text, "\b" & pattern, RegexOptions.IgnoreCase) Then
                    Return CompareResult.Visible
                End If
                Return CompareResult.Hidden
            End Function
        End Class

        ''' <summary>
        ''' Divides numbers and words: "123AND456" -> "123 AND 456"
        ''' Or "i=2" -> "i = 2"
        ''' </summary>
        Private Class InsertSpaceSnippet
            Inherits AutocompleteItem
            Private pattern As String

            Public Sub New(pattern As String)
                MyBase.New("")
                Me.pattern = pattern
            End Sub

            Public Sub New()
                Me.New("^(\d*)([a-zA-Z_]+)(\d*)$")
            End Sub

            Public Overrides Function Compare(fragmentText As String) As CompareResult
                If Regex.IsMatch(fragmentText, pattern) Then
                    Text = InsertSpaces(fragmentText)
                    If Text <> fragmentText Then
                        Return CompareResult.Visible
                    End If
                End If
                Return CompareResult.Hidden
            End Function

            Public Function InsertSpaces(fragment As String) As String
                Dim m = Regex.Match(fragment, pattern)
                If m Is Nothing Then
                    Return fragment
                End If
                If m.Groups(1).Value = "" AndAlso m.Groups(3).Value = "" Then
                    Return fragment
                End If
                Return (m.Groups(1).Value & " " & m.Groups(2).Value & " " & m.Groups(3).Value).Trim()
            End Function

            Public Overrides ReadOnly Property ToolTipTitle() As String
                Get
                    Return Text
                End Get
            End Property
        End Class

        ''' <summary>
        ''' Inerts line break after '}'
        ''' </summary>
        Private Class InsertEnterSnippet
            Inherits AutocompleteItem
            Private enterPlace As Place = Place.Empty

            Public Sub New()
                MyBase.New("[Line break]")
            End Sub

            Public Overrides Function Compare(fragmentText As String) As CompareResult
                Dim r = Parent.Fragment.Clone()
                While r.Start.iChar > 0
                    If r.CharBeforeStart = "}"C Then
                        enterPlace = r.Start
                        Return CompareResult.Visible
                    End If

                    r.GoLeftThroughFolded()
                End While

                Return CompareResult.Hidden
            End Function

            Public Overrides Function GetTextForReplace() As String
                'extend range
                Dim r As Range = Parent.Fragment
                Dim [end] As Place = r.[End]
                r.Start = enterPlace
                r.[End] = r.[End]
                'insert line break
                Return Environment.NewLine + r.Text
            End Function

            Public Overrides Sub OnSelected(popupMenu As AutocompleteMenu, e As SelectedEventArgs)
                MyBase.OnSelected(popupMenu, e)
                If Parent.Fragment.tb.AutoIndent Then
                    Parent.Fragment.tb.DoAutoIndent()
                End If
            End Sub

            Public Overrides ReadOnly Property ToolTipTitle() As String
                Get
                    Return "Insert line break after '}'"
                End Get
            End Property
        End Class
    End Class
End Namespace
#4
THis might help a lot: <!-- m --><a class="postlink" href="http://www.codeproject.com/KB/edit/FastColoredTextBox_.aspx?msg=4028470#xx4028470xx">http://www.codeproject.com/KB/edit/Fast ... x4028470xx</a><!-- m -->
#5
someone asked the same qustion right there, and apparently got the answer.
#6
Anyone figured anything out? I've gotten so close, but not there.


Possibly Related Threads…
Thread Author Replies Views Last Post
  Using the Gecko Web Browser control openeXpressions 18 61,822 12-12-2011, 07:08 AM
Last Post: openeXpressions
  i need more ideas to put on my SphereZoid-Webrowser DylanSphere 1 9,043 08-13-2011, 08:01 AM
Last Post: brandonio21

Forum Jump:


Users browsing this thread: 1 Guest(s)