Dim stringArray As Array = Array.CreateInstance(GetType([String]), ComboBox2.Items.Count)
Dim num As Integer
Dim numEnd As Integer
numEnd = ComboBox2.Items.Count - 1
For num = 0 To numEnd
stringArray.SetValue(ComboBox2.Items(num), num) '将ComboBox2内的数据导入stringArray数组
Next num
Thread.CurrentThread.CurrentCulture = New CultureInfo("zh-CN") '针对特定区域性对数据进行比较和排序,可查MSDN
Array.Sort(stringArray) '对一维 Array 对象中的元素进行排序
ComboBox2.Items.Clear()
For num = 0 To numEnd
ComboBox2.Items.Add(stringArray(num))
Next num
Dim num As Integer
Dim numEnd As Integer
numEnd = ComboBox2.Items.Count - 1
For num = 0 To numEnd
stringArray.SetValue(ComboBox2.Items(num), num) '将ComboBox2内的数据导入stringArray数组
Next num
Thread.CurrentThread.CurrentCulture = New CultureInfo("zh-CN") '针对特定区域性对数据进行比较和排序,可查MSDN
Array.Sort(stringArray) '对一维 Array 对象中的元素进行排序
ComboBox2.Items.Clear()
For num = 0 To numEnd
ComboBox2.Items.Add(stringArray(num))
Next num
博客代码实现将ComboBox2内的数据导入string数组,针对特定区域性对数据进行比较和排序,然后清空ComboBox2的内容,再将排序后的数组元素添加回ComboBox2。涉及数组创建、数据导入、排序等操作。
1万+

被折叠的 条评论
为什么被折叠?



