关于listbox的排序问题

Question

我是把TXT文件读入listbox ，在listbox我选择了Sorted 为true  但是我发现当我添加数据的时候 ，新数据在最下面，没有排序  我希望能实现一个按钮把添加数据后的listb内容重新排序下，我前面用了冒泡法觉得不是好 希望大牛们能帮助我实现下 最好给出代码  

Answer 1

不知道是楼主的VB问题 ? 还是 RP问题 ?List1的Sorted属性设为 True 它会全自动的插入适当的位置 保持排序的不论是 自动加进List1或读文件加进去的,或textbox输入的,LIST1完全自动的排序.Dim i&, aa$
Private Sub Form_Load()
   For i = 100 To 0 Step -1
      List1.AddItem i
   Next i
End SubPrivate Sub Command1_Click()
   List1.Clear
   Open "c:\test.txt" For Input As #1
   While Not EOF(1)
      Line Input #1, aa
      List1.AddItem aa
   Wend
   Close #1
End SubPrivate Sub Command2_Click()
   List1.AddItem Text1.Text
End Sub

Answer 2

Rem 加list1控件，list2控件，command1控件
Private Sub Command1_Click()
    ReDim a(0 To List1.ListCount - 1) As Integer
    For i = 0 To List1.ListCount - 1
        a(i) = Val(List1.List(i))
    Next
    Sort a
    List2.Clear
    For i = 0 To List1.ListCount - 1
        List2.AddItem a(i)
    Next
End SubPrivate Sub Form_Load()
    n = 50
    Randomize
    For i = 0 To n - 1
        List1.AddItem Int(100 * Rnd)
    Next
End SubPrivate Sub Sort(a() As Integer)
    Dim i, j, t
    For i = LBound(a) To UBound(a) - 1
        For j = i + 1 To UBound(a)
            If a(i) < a(j) Then '从大到小是<，从小到大是>
                t = a(i): a(i) = a(j): a(j) = t
            End If
        Next j
    Next i
End Sub

Answer 3

在设计时将List1的Sorted属性设为 True，的确是可以自动排序，无论什么时候添加都可以的。升级成SP6后试试。 

Answer 4

我觉得可能是我的RP问题  谢谢 dbcontrols和cbm666 2位老师了

Answer 5

不要把我跟别人同提，有些人的代码与问题无关
只是show代码而show代码，不是冲问题来的