火狐的Blog

First love

按中文字母排序--源代码

        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
阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/firefox77/article/details/377085
文章标签: integer string
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭