0

下面是我正在使用的代码。我的帐户存储在 Dictionary(Of String, Integer) 中，以便我可以轻松地将值与它们关联。我的列表视图在我将其转换为虚拟模式后运行良好，但我失去了搜索功能，只需输入我想要返回的列表视图即可。没有它，除非我可以按名称搜索，否则整个功能实际上毫无用处。我已经搜索并实现了多个示例，但我无法得到任何工作。我究竟做错了什么？它应该怎么看？

这填充了我的列表视图。

Private Sub lstAccounts_RetrieveVirtualItem(sender As Object, e As RetrieveVirtualItemEventArgs) Handles lstAccounts.RetrieveVirtualItem
    lstAccounts.VirtualListSize = MainForm.accounts.Count 'Update after a dictionary edit.

    Dim i As New ListViewItem(MainForm.accounts.Keys(e.ItemIndex))
    If MainForm.accounts.ContainsKey(MainForm.accounts.Keys(e.ItemIndex).ToString) Then
        i.SubItems.Add(MainForm.accounts.Item(i.Text))
    End If
    e.Item = i
End Sub

这是来自 MSDN。据说是搜索所必需的，我能找到的唯一例子..

Private Sub lstAccounts_SearchForVirtualItem(sender As Object, e As SearchForVirtualItemEventArgs) Handles lstAccounts.SearchForVirtualItem
    Dim x As Double = 0
    If [Double].TryParse(e.Text, x) Then 'check if this is a valid search
        x = Math.Sqrt(x)
        x = Math.Round(x)
        e.Index = Fix(x)
    End If
End Sub

这也来自 MSDN。无论我搜索什么，它都会不断返回 null。

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Dim item1 As ListViewItem = lstAccounts.FindItemWithText(TextBox1.Text)
    If (item1 IsNot Nothing) Then
        MessageBox.Show("Calling FindItemWithText passing" & TextBox1.Text & ": " _
            & item1.ToString())
    Else
        MessageBox.Show("Calling FindItemWithText passing" & TextBox1.Text & ": null")
    End If
End Sub
4

1 回答 1

1

在您的SearchForVirtualItem事件处理程序中，您必须搜索您的字典，然后告诉与ListView键入的内容匹配的行的索引。

猜测你想搜索文本，你想要这样的东西：

foreach (var x in MainForm.accounts) {
    if (x.Value == e.Text) {
        e.Index = x.Key;
        return;
    }
}

顺便说一句，最好在其他地方更新虚拟列表的大小。RetrieveVirtualItem 事件的处理程序不是更改列表大小的正确位置。

于 2014-11-27T02:13:43.230 回答