实现report视图下任何列头的双向排序

2008-02-23 07:04:56来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  本文向大家展示了listview控件在report视图下任何列头的双向排序技巧,源代码如下

  Option Explicit

  Private Sub Form_Load()
  
  Dim i As Integer
  Dim itemx As ListItem
  ListView1.View = lvwReport
  With ListView1.ColumnHeaders
  .Add , , "编号", 600, lvwColumnLeft
  For i = 1 To 2
  .Add , , "内容项" & i, 1000, lvwColumnRight
  Next
  End With
  
  With ListView1.ListItems
  For i = 1 To 10
  Set itemx = .Add
  itemx.SubItems(1) = i
  itemx.SubItems(2) = Chr(64 i)
  itemx.SubItems(3) = Format(DateAdd("m", i, Date), "yyyy-mm-dd")
  Next
  End With
  
  End Sub
  
  Private Sub ListView1_ColumnClick(ByVal ColumnHeader As   MSComctlLib.ColumnHeader)
  With ListView1
  If (ColumnHeader.Index - 1) = .SortKey Then
  .SortOrder = (.SortOrder 1) Mod 2
  Else
  .Sorted = False
  .SortOrder = 0
  .SortKey = ColumnHeader.Index - 1
  .Sorted = True
  End If
  End With
  End Sub
  


   



上一篇: 用DLL实现把数据库的记录导出到EXCEL中
下一篇: 用VB写歌词搜索程序

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:VB实战进阶之拼图游戏

下一篇:用DLL实现把数据库的记录导出到EXCEL中