VB.NET中的擴展方法錯誤

Question

我正在嘗試在VB.NET中編寫擴展方法

Imports System.Runtime.CompilerServices

Module ExtensionMethods

    <Extension()> _
    Public Function FindByText(ByVal collection As ListItemCollection, text As String, comparisonType As StringComparison) As ListItem
        Dim result As ListItem = collection.OfType(Of ListItem)().FirstOrDefault(Function(s) s.Text.Equals(text, comparisonType))
        Return result
    End Function

    <Extension()> _
    Public Function FindByValue(ByVal collection As ListItemCollection, text As String, comparisonType As StringComparison) As ListItem
        Dim result As ListItem = collection.OfType(Of ListItem)().FirstOrDefault(Function(s) s.Value.Equals(text, comparisonType))
        Return result
    End Function

End Module

但我收到此錯誤。

無法索引類'System.Web.UI.WebControls.ListItem'，因為它沒有默認屬性

有什么事嗎

我正在這樣調用代碼。

ddlSalesmanager.Items.FindByText(survey, StringComparison.CurrentCultureIgnoreCase)

PS：我將這段很棒的代碼從C＃移植到了VB

Answer 1

1. 您的代碼有效，因此必須在其他地方引發異常（什么是survey ？）。
2. 使用collection.Cast(Of ListItem)()而不是collection.OfType(Of ListItem)()因為ListItemCollection中的所有對象本質上都是ListItem類型的。

經過測試

<asp:DropDownList ID="DdlFoo" runat="server" AutoPostBack="true" OnSelectedIndexChanged="FooSelected" >
    <asp:ListItem Text="Foo1" Value="1"></asp:ListItem>
    <asp:ListItem Text="Foo2" Value="2"></asp:ListItem>
    <asp:ListItem Text="Foo3" Value="3"></asp:ListItem>
</asp:DropDownList>

並在SelectedIndexChanged事件處理程序中：

Dim foo2 = DirectCast(sender, DropDownList).Items.FindByText("FOO2", StringComparison.CurrentCultureIgnoreCase)
If Not foo2 Is Nothing Then
    ' your overloaded extension is called successfully
End If