自动填表_网页自动填表_填表软件_万能填表官网

    搜索
    热搜: 活动 交友 discuz
    查看: 487|回复: 0

    vb6 LISTVIEW 排序

    [复制链接]

    243

    主题

    301

    帖子

    1182

    积分

    管理员

    Rank: 9Rank: 9Rank: 9

    积分
    1182
    发表于 2018-1-7 22:47:04 | 显示全部楼层 |阅读模式

    Private Sub Form_Load()
    Dim i As Integer, t As Integer
    For i = 1 To 100
      Randomize (999)
      Call l1.ListItems.Add(, , i)
      l1.ListItems.Item(i).SubItems(1) = Format(Rnd(999), "000.00000")
      Next
      
    End Sub
    Private Sub l1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    Dim TempColumnHeader As ColumnHeader            '定义一个listview 的“列”对象
    Set TempColumnHeader = l1.ColumnHeaders.Add(, "tmp")   '添加一个临时列
    l1.ColumnHeaders(TempColumnHeader.Index).Width = 0      '将临时列宽度设为0

    For i = 1 To l1.ListItems.Count
        If ColumnHeader.Index = 1 Then
            l1.ListItems.Item(i).SubItems(TempColumnHeader.Index - 1) = Format(l1.ListItems.Item(i).Text, "0000000000000000000000000000000000.0000000")   '添加标准格式,用于排序
        Else
            l1.ListItems.Item(i).SubItems(TempColumnHeader.Index - 1) = Format(l1.ListItems.Item(i).SubItems(ColumnHeader.Index - 1), "0000000000000000000000000000000000.0000000")
        End If
    Next

    l1.Sorted = True                                       '允许排序

    If l1.SortOrder = 1 Then                                '排序方式
        l1.SortOrder = 0
        Else: l1.SortOrder = 1
    End If
            l1.SortKey = TempColumnHeader.Index - 1         '排序列
            l1.Sorted = False
            l1.ColumnHeaders.Remove "tmp"                   '移除临时列
    End Sub

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|Archiver|手机版|小黑屋|Comsenz Inc.万能填表软件官网  2010-2016 qq:353502250

    GMT+8, 2018-4-21 13:40 , Processed in 0.068186 second(s), 23 queries .

    Powered by Discuz! X3.2

    © 2001-2013 Comsenz Inc.

    快速回复 返回顶部 返回列表