请教用代码实现ListView标题的小三角符合

Question

'想实现"像资源管理器"标头上的小三角符号.'这是在网上找到的代码,为何会提示"类型不匹配",请教下!Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   Dim i As Integer
   
   ListView1.Sorted = True
   
   For i = 1 To ListView1.ColumnHeaders.Count
      ListView1.ColumnHeaders(i).Text = ListView1.ColumnHeaders(i).Tag
   Next i   If ColumnHeader.Index = CInt(ListView1.Tag) Then
      If ListView1.SortOrder = lvwAscending Then
         ListView1.SortOrder = lvwDescending
      Else
         ListView1.SortOrder = lvwAscending
      End If
   End If
   
   If ListView1.SortOrder = lvwDescending Then
      ColumnHeader.Text = ColumnHeader.Tag & " ▽"
   Else
      ColumnHeader.Text = ColumnHeader.Tag & " △"
   End If
   
   ListView1.Tag = ColumnHeader.Index
   ListView1.SortKey = ColumnHeader.Index - 1
   ListView1.Sorted = False
End Sub

Answer 1

If ColumnHeader.Index = CInt(ListView1.Tag) Then

Answer 2

'If ColumnHeader.Index = CInt(ListView1.Tag) Then

Answer 3

Option ExplicitPrivate Sub Form_Load()
       With Me.ListView1
                  .ColumnHeaders.Add , , "标题"
                   
                  .ListItems.Add , , "2"
                  .ListItems.Add , , "4"
                  .ListItems.Add , , "1"
                  .ListItems.Add , , "3"
          End With
          
         ListView1.Tag = 0
End SubPrivate Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   Dim i As Integer
   
   ListView1.Sorted = True
   
   For i = 1 To ListView1.ColumnHeaders.Count
      ListView1.ColumnHeaders(i).Text = ListView1.ColumnHeaders(i).Tag
   Next i   If ColumnHeader.Index = CInt(ListView1.Tag) Then
      If ListView1.SortOrder = lvwAscending Then
         ListView1.SortOrder = lvwDescending
      Else
         ListView1.SortOrder = lvwAscending
      End If
   End If
   
   If ListView1.SortOrder = lvwDescending Then
      ColumnHeader.Text = ColumnHeader.Tag & " ▽"
   Else
      ColumnHeader.Text = ColumnHeader.Tag & " △"
   End If
   
   ListView1.Tag = ColumnHeader.Index
   ListView1.SortKey = ColumnHeader.Index - 1
   ListView1.Sorted = False
End Sub

Answer 4

ListView1.Tag = 0  初始化啊

Answer 5

ListView1.Tag中没有值或不是数字

Answer 6

为什么一点排序ListView1标题全都没了呢