按字母或数字顺序排列列表框中的列表项-速孚全球组件中文网——全球最大、最优秀的组件\控件产品中文门户

Online Service 在线服务

New Articles 最新更新

Hot Articles 热点文章

Google 广告

首页 … 技术文档 Technical Articles

按字母或数字顺序排列列表框中的列表项

（时间:2007-5-13 0:14:48 共有人次浏览）

将以下代码加入到你的程序中.
Sub ReSort(L As Control)
Dim P%, PP%, C%, Pre$, S$, V&, NewPos%, CheckIt%
Dim TempL$, TempItemData&, S1$

For P = 0 To L.ListCount - 1
S = L.List(P)
For C = 1 To Len(S)
V = Val(Mid$(S, C))
If V > 0 Then Exit For
     Next
         If V > 0 Then
             If C > 1 Then Pre = Left$(S, C - 1)
                 NewPos = -1
                 For PP = P + 1 To L.ListCount - 1
                 CheckIt = False
                 S1 = L.List(PP)
                     If Pre <> "" Then
                            If InStr(S1, Pre) = 1 Then CheckIt = True
                      Else
                              If Val(S1) > 0 Then CheckIt = True
                     End If
                    If CheckIt Then
                             If Val(Mid$(S1, C)) < V Then NewPos = PP
                                    Else
                                         Exit For
                             End If
                   Next
                 If NewPos > -1 Then
                         TempL = L.List(P)
                         TempItemData = L.ItemData(P)
                          L.RemoveItem (P)
                          L.AddItem TempL, NewPos
                          L.ItemData(L.NewIndex) = TempItemData
                          P = P - 1
                  End If
           End If
    Next
Exit Sub

【打印该页】【关闭窗口】

此技术资料来自网络，仅供参考。未经许可，不得转载。
若有侵权，请及时与我们取得联系！

FAQS 常见问题

Consultation 即时咨询