VB.NET中ComboBox排序时波浪线排字母前，如何让其排末尾？

启用ComboBox的SORTED属性时，它不会单纯按ASCII码值排序，而是遵循系统区域设置的字符串排序规则（比如Windows平台用StrCmpLogicalW函数处理）。在绝大多数默认规则里，~这类非字母数字的特殊字符会被归为“优先前置”的类别，哪怕它的ASCII码（126）是可打印字符里最高的，排序时还是会跑到列表最前面。

1. 手动控制排序（最稳妥） #

关掉ComboBox的SORTED属性，自己先把正常数据排序好，最后再手动加~Unkn项：

• C# WinForms示例：

// 从数据库/资源获取正常纪念币数据
List<string> coinData = FetchCoinData();
// 对正常数据按默认规则排序
coinData.Sort();
// 把未知项追加到末尾
coinData.Add("~Unkn");
// 关闭自动排序，绑定处理好的数据
comboBox1.Sorted = false;
comboBox1.Items.Clear();
comboBox1.Items.AddRange(coinData.ToArray());

• VB6示例：

Dim coinData As New Collection
' 先填充所有已知州的纪念币数据...
' 把数据转成数组排序
Dim tempArr() As String
ReDim tempArr(coinData.Count - 1)
For i = 1 To coinData.Count
    tempArr(i - 1) = coinData(i)
Next
' 用自定义排序或API排序数组
Sort tempArr
' 清空ComboBox，关闭自动排序
Combo1.Sorted = False
Combo1.Clear
' 添加排序后的正常数据
For Each item In tempArr
    Combo1.AddItem item
Next
' 最后加未知项
Combo1.AddItem "~Unkn"

2. 调整未知项的字符串格式 #

如果不想手动排序，可以给~Unkn加个能让系统排序把它放最后的前缀，比如多个z（因为字母z在排序里优先级最低）：

zzz~Unkn

不过这种方法依赖区域排序规则，稳定性不如手动排序。

3. 自定义排序比较器（.NET平台适用） #

如果用WPF或新版WinForms，可以写自定义比较器来精准控制排序逻辑，同样要先关闭SORTED属性：

List<string> coinData = FetchCoinData();
coinData.Add("~Unkn");
// 自定义排序：正常项按默认规则排，~Unkn固定在最后
coinData.Sort((a, b) => {
    if (a.Equals("~Unkn")) return 1;
    if (b.Equals("~Unkn")) return -1;
    return string.Compare(a, b, StringComparison.CurrentCulture);
});
comboBox1.Sorted = false;
comboBox1.Items.AddRange(coinData.ToArray());

内容的提问来源于stack exchange，提问作者E Bell