[VB.NET] سؤال عن AutoComplete - نسخة قابلة للطباعة

كود :
Imports System.Text.RegularExpressions

Imports System.Runtime.InteropServices



Public Class Form1

    Dim autoComp As New ComboBox



    <DllImport("user32.dll")> _

    Private Shared Function GetCaretPos(ByRef lpPoint As Point) As Boolean

    End Function



    Public Function GetCorrectCaretPos() As Point

        Dim pt As Point = Point.Empty

        If GetCaretPos(pt) Then

            Return pt

        Else

            Return Point.Empty

        End If

    End Function



    Dim curWord As String

    Dim spaceKeyHitCounter As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Controls.Add(autoComp)

    End Sub



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

        If e.KeyCode = Keys.Space Then

            If spaceKeyHitCounter < 1 Then

                spaceKeyHitCounter += 1

            Else

                spaceKeyHitCounter = 0

                curWord = ""

                autoComp.Hide()

            End If

        ElseIf e.Modifiers = Keys.Control And e.KeyCode = Keys.V Then

            My.Computer.Clipboard.Clear()

            curWord = curWord.Remove(curWord.Length - 1)

            rtxt.SelectionStart -= Len(curWord)

            rtxt.SelectionLength = curWord.Length '- 1

            rtxt.SelectedText = autoComp.Text

            spaceKeyHitCounter = 0

            curWord = ""

            autoComp.Hide()

        ElseIf e.KeyCode = Keys.Back Then

            Try

                curWord = curWord.Remove(curWord.Length - 1)

            Catch ex As Exception



            End Try

        Else

            If CurCharPos = 0 Then

                spaceKeyHitCounter = 1

            End If

            If e.KeyCode = Keys.Enter Then

                If CurCharPos = 0 Then

                    spaceKeyHitCounter = 1

                End If

                curWord = ""

            End If

            curWord += Chr(e.KeyCode)

            curWord = curWord.Trim()

            autoComp.Left = GetCorrectCaretPos().X

            autoComp.Top = GetCorrectCaretPos().Y + autoComp.Height - 5

            autoComp.Show()

            autoComp.BringToFront()

        End If

    End Sub



    Dim CurCharPos As Integer

    Private Sub rtxt_TextChanged(sender As Object, e As System.EventArgs) Handles rtxt.TextChanged

        CurCharPos = rtxt.GetPositionFromCharIndex(rtxt.GetFirstCharIndexFromLine(rtxt.GetLineFromCharIndex(rtxt.SelectionStart))).X

        Dim col As MatchCollection = Regex.Matches(rtxt2.Text, "\b(\w+)\b", RegexOptions.IgnoreCase Or RegexOptions.IgnorePatternWhitespace)

        autoComp.Items.Clear()

        For Each match As Match In col

            If Regex.IsMatch(match.Value, curWord, RegexOptions.IgnoreCase) Then

                If Not autoComp.Items.Contains(match.Value) Then

                    autoComp.Items.Add(match.Value)

                End If

                autoComp.SelectedIndex = 0

                'autoComp.SelectAll()

            End If

        Next

    End Sub

End Class