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 。