Question

vb list中两项数据排序问题

如下图，在text1和text2中输入数据点击command1可以将数据加入到list1中，两组数据间有一定间隔。我想在点击command1多次的时候不但可以输入多组数据，每组俩数，自动换行（这个已经实现），希望多组数据能按照text1的大小升序排列，但是我控制不了text2的数据了。。。vb新手求助，要不使用sorted属性的方法，麻烦了

Answer 1

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
    If Val(Text1.Text) < Val(Split(List1.List(i), " ")(0)) Then Exit For
Next
List1.AddItem Text1.Text & " " & Text2.Text, i
End Sub