Question

I have Questions? If I enter a data in a textbox, I want my listview to select the same data entered in the textbox,

example, I have a StudentNumber column in my listview and it has data on it(ex. 123456) I will enter 123456 in the textbox. The ListView must select 123456 ? Please Help

THANK YOU,

Answer 1

我认为,这将做你想要的东西。它将检索名单Box中文本的“名单”一栏。

列出清单:

With ListView1
    .MultiSelect = False  Ensure only one item selected at a time
    .HideSelection = False  Shows the selection when the textbox changes
     Add some items for testing
    .Items.Add("1234")
    .Items.Add("1122")
    .Items.Add("1133")
End With

然后在文本箱中TextChanged。改变事件:

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    ListView1.SelectedItems.Clear()
    Dim foundItem As ListViewItem = ListView1.FindItemWithText(TextBox1.Text, False, 0, False)
    If (foundItem IsNot Nothing) Then foundItem.Selected = True
End Sub

或者,如果你想具体说明贵国为寻找案文而写的名单上的

Private Sub SelectListViewItem(ByRef listviewSource As ListView, ByVal textToFind As String, ByVal column As Integer)
    Dim foundItem As ListViewItem = Nothing
    Dim startIndex As Integer = 0

    listviewSource.SelectedItems.Clear()

    Do Until Not foundItem Is Nothing AndAlso foundItem.SubItems(column).Text = TextBox2.Text
        If foundItem Is Nothing Then startIndex = 0 Else startIndex = foundItem.Index + 1
        If startIndex > listviewSource.Items.Count - 1 Then Exit Sub  We have reached end of the listview
        foundItem = listviewSource.FindItemWithText(textToFind, True, startIndex)
        If foundItem Is Nothing Then Exit Sub
    Loop

    If (foundItem IsNot Nothing) Then foundItem.Selected = True
End Sub

使用:

Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged SelectListViewItem(ListView1, TextBox2.Text, 1) End Sub

Warning - 在这两种情况下,如果您在清单中有许多物品,你可能会考虑将守则移至背景工人,那么这可能导致你的申请效果不佳。

友情链接