将以下代码加入到你的程序中.Sub ReSort(L As Control)Dim P%, PP%, C%, Pre$, S$, V&, NewPos%, CheckIt%Dim TempL$, TempItemData&, S1$For P = 0 To L.ListCount - 1S = L.List(P)For C = 1 To Len(S)V = Val(Mid$(S, C))If V > 0 Then Exit ForNextIf V > 0 ThenIf C > 1 Then Pre = Left$(S, C - 1)NewPos = -1For PP = P + 1 To L.ListCount - 1CheckIt = FalseS1 = L.List(PP)If Pre <> "" ThenIf InStr(S1, Pre) = 1 Then CheckIt = TrueElseIf Val(S1) > 0 Then CheckIt = TrueEnd IfIf CheckIt ThenIf Val(Mid$(S1, C)) < V Then NewPos = PPElseExit ForEnd IfNextIf NewPos > -1 ThenTempL = L.List(P)TempItemData = L.ItemData(P)L.RemoveItem (P)L.AddItem TempL, NewPosL.ItemData(L.NewIndex) = TempItemDataP = P - 1End IfEnd IfNextExit Sub

评论