VB.NET 内联委托谓词不起作用

Question

这是我的问题。如果我写这个 -

Private ListValue As Object = Nothing

Private Sub FindIndex(ByVal e As ListBoxFindItemArgs)
    e.IsFound = Object.Equals(ListValue, e.ItemValue)
End Sub

Private Sub SearchValues
    ListValue  = 5
    Index = Me.lst_department.FindItem(0, True, AddressOf FindIndex)
End Sub

但我只是不明白为什么这段代码，写来做同样的事情不起作用 -

Private Sub SearchValues
    ListValue  = 5
    Index = Me.lst_department.FindItem(0, True, Function(e As ListBoxFindItemArgs) e.IsFound = Object.Equals(ListValue, e.ItemValue))
End Sub

Answer 1

因为您的“谓词”不是函数¹，而是一个Sub。如果您使用的是最新版本的VB，您可以编写以下内容；否则，你就不走运了：

Index = Me.lst_department.FindItem(0, True, Sub(e As ListBoxFindItemArgs) e.IsFound = Object.Equals(ListValue, e.ItemValue))

---

¹ 此外，它不是一个谓词。谓词是一种特定类型的函数，对于某种类型 T 具有签名 Function(x As T) As Boolean。