如何在对象组合框中显示自定义 DisplayMember（即区域设置）

Question

我设置了以下代码，以在组合框中提供可用于 .NET 的语言环境列表。

Dim CurrencyList As List(Of CultureInfo) = CultureInfo.GetCultures(CultureTypes.SpecificCultures).ToList

cboCurrencyLocale.DataSource = CurrencyList
cboCurrencyLocale.DisplayMember = "DisplayName"
cboCurrencyLocale.ValueMember = "Name"

目前，这会将 ComboBox 控件设置为显示“DisplayName”属性并使用“Name”属性作为值。我想知道是否有办法进行设置，以便 DisplayMember 属性显示“英语（美国）[en-us]”

我尝试将cboCurrencyLocale.DisplayMember 行更改为cboCurrencyLocale.DisplayMember = "DisplayName" * "Name"，但组合框仍然只显示基本的“DisplayName”属性。

那么我如何编码这个 ComboBox 来显示一个自定义的 DisplayMember

Answer 1

使用继承 CultureInfo 的类的示例。

从 CultureInfo 类继承，您可以添加一个新属性，该属性返回您喜欢的格式的字符串。在这种情况下，将基类的DisplayName 和Name 属性修补在一起。

派生类需要提供至少一个与基类的构造器相匹配的构造器。在这种情况下，接受 Integer 值（对应于LCID 属性）的构造函数似乎是合适的。

您还应该在派生类中覆盖ToString()，以匹配自定义属性返回的值，以防其他地方需要相同的格式，而无法进行数据绑定。

Private Class MyCultureInfo
    Inherits CultureInfo

    Public Sub New(cultureId As Integer)
        MyBase.New(cultureId)
    End Sub

    Public Property MyDisplayMember As String = $"{MyBase.DisplayName} [{MyBase.Name}]"

    Public Overrides Function ToString() As String
        Return MyDisplayMember
    End Function
End Class

要构建List(Of MyCultureInfo)，初始化一个新列表，将这个类型的集合传递给接受IEnumerable 的构造函数。 本合集来源来自CultureInfo.GetCultures()。

Dim currencyList As New List(Of MyCultureInfo)(
    CultureInfo.GetCultures(CultureTypes.SpecificCultures).
    OrderBy(Function(d) d.DisplayName).
    Select(Function(c) New MyCultureInfo(c.LCID))
)

cboCurrencyLocale.DataSource = Nothing
cboCurrencyLocale.DisplayMember = "MyDisplayName"
cboCurrencyLocale.ValueMember = "Name"
cboCurrencyLocale.DataSource = currencyList