текстовое поле автозаполнения для .net с поддержкой разделителя

Я разрабатываю приложение, для которого требуется текстовое поле с автозаполнением/предложениями (выпадающим) для нескольких слов (разделенных разделителем, например пробелом), например текстовое поле тегов здесь, в StackOverflow.

Например, я начинаю вводить «приложение», и он должен отображать все слова в списке предложений, начиная с приложение, а когда я ввожу слово, нажимаю пробел и начинаю вводить новое слово, он должен отображать все предложения. для этого частичного слова.

Есть ли пример, на который я могу взглянуть?


text autocomplete vb.net
person Dasith Wijes    schedule 06.04.2011    source источник
comment
Все еще ищете тот? Я разместил свой образец, если он недостаточно ясен, просто прокомментируйте, и я объясню...   -  person Ezi    schedule 08.05.2011

Ответы (1)


arrow_upward
1
arrow_downward

Надеюсь, это поможет. Я использую инструменты для разработчиков, но то же самое можно использовать и с обычными компонентами .net.

Private Sub txtToEmail_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtToEmail.EditValueChanged
    Try
        Dim Emails As New List(Of String)
        Emails.Add("[email protected]")
        Emails.Add("[email protected]")
        Emails.Add("[email protected]")
        Emails.Add("[email protected]")

        Dim Txt = Trim(CStr(txtToEmail.EditValue))

        Dim Suggestions As IEnumerable(Of String)

        If Txt <> "" Then
            If Txt.IndexOf(",") = -1 Then
                Suggestions = From c In Emails Where c.StartsWith(Txt) Select c
            Else
                Dim lastIndex = Txt.LastIndexOf(",")
                Dim lastWord = Trim(Txt.Substring(lastIndex + 1))
                Suggestions = From c In Emails Where c.StartsWith(lastWord) Select c
            End If

            EmailList.Items.Clear()

            For Each r In Suggestions
                EmailList.Items.Add(r)
            Next

        End If

        If EmailList.ItemCount > 0 Then
            EmailList.Visible = True
        End If

    Catch ex As Exception
        ShowErrorBox(ex)
    End Try

End Sub

Private Sub EmailList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmailList.Click
    Try
        If EmailList.SelectedValue = Nothing OrElse EmailList.SelectedValue = "" Then Return

        Dim Txt = CStr(txtToEmail.EditValue)

        If Txt.IndexOf(",") = -1 Then
            txtToEmail.EditValue = EmailList.SelectedValue
        Else
            Dim lastIndex = Txt.LastIndexOf(",")
            txtToEmail.EditValue = Txt.Substring(0, lastIndex + 1) & EmailList.SelectedValue
        End If

        txtToEmail.Focus()
        txtToEmail.SelectionStart = CStr(txtToEmail.EditValue).Length

        EmailList.Visible = False
    Catch ex As Exception
        ShowErrorBox(ex)
    End Try

End Sub
person Ezi    schedule 08.05.2011
comment
эй спасибо. Я изменил этот codeproject.com/KB/cs/AutoCompleteTextBox.aspx, чтобы пословные предложения и многое другое. На самом деле это была переписка. Я имитировал поведение текстового поля тегов, которое вы получаете на этом сайте, когда создаете сообщение. Я попытался отправить код обратно на этот сайт, но у них нет такой возможности. - person Dasith Wijes; 09.05.2011
comment
Это полный код codeproject.com/KB/cs/ См. раздел комментариев для моего обновленного кода. - person Dasith Wijes; 09.05.2011
comment
Спасибо за ссылку, я тоже работаю над таким проектом. - person Ezi; 09.05.2011