在 Combobox 中查找最大字符串

Question

我正在尝试根据组合框项目中的最大字符串来更改组合框的 DropDownWidth。 下面的代码返回所有项目的最大字符串长度。

 Dim maxStringLength As Integer = cboDt.AsEnumerable().
                  SelectMany(Function(row) row.ItemArray.OfType(Of String)()).
                  Max(Function(str) str.Length)

cboDt 是附加到组合框的数据表。
我想返回实际的字符串。 例如，如果组合框项目是：
“啊”
“bbbb”
“cccc”
我的代码返回 maxStringLength = 5（因为 5 是所有项目的最大字符数——这里是 ccccc） 我想要代码重新调整“ccccc”（当然在字符串变量中）

Answer 1

按字符串长度降序排列，然后取第一个结果。

Dim maxStringLength As Integer = 
    cboDt.AsEnumerable().
    SelectMany(Function(row) row.ItemArray.OfType(Of String)()).
    OrderByDescending(Function(str) str.Length).
    First()  ' You can use FirstOrDefault here, if you are
             ' not certain there will be a result.

Answer 2

假设DataTable的第一列显示在ComboBox中：

Dim maxStringLength As Integer = cboDt.AsEnumerable().
        Max(Function(r) r.Field(Of String)(0).Length)

请注意，这假定这要求此列永远不是null。

（当ComboBox 中根本没有显示表的（可能可用的）其他列时，我看不出你为什么要测量它们的长度。）

更新

在 Combobox 中查找最大字符串

现在我明白了，你想要的是字符串而不是长度：

Dim longestString = cboDt.AsEnumerable().
        OrderByDescending(Function(r) r.Field(Of String)(0).Length).
        First().Field(Of String)(0)

Answer 3

您可以使用 linq 和查找 maxStringLength = 5 的索引来实现此目的

Dim ls = comboBox4.Items.Cast(Of String)().ToList()
Dim index = ls.FindIndex(Function(c) c.ToString().Count() >= 5)
comboBox4.SelectedIndex = index

或使用Max() Method

Dim ls = comboBox4.Items.Cast(Of String)().ToList()
Dim index = ls.Max()
comboBox4.Text = index