迹无痕123 发表于 2021-4-23 09:23

提示编译错误,用户定义类型未定义,怎么解决

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    On Error GoTo myerr    ' 错误处理
    ListView1.SortKey = ColumnHeader.Index - 1   ' 设定排序值的索引,sortkey是从0开始的,所以要减1
    If ListView1.SortOrder = lvwDescending Then   ' 当前是否为降序
      ListView1.SortOrder = lvwAscending       ' 按升序
    Else
      ListView1.SortOrder = lvwDescending      ' 按降序
    End If
    ListView1.Sorted = True                      ' 激活listview排序
myerr:      ' 错误处理
    Exit Sub
End Sub

提示编译错误,用户定义类型未定义,怎么解决

页: [1]
查看完整版本: 提示编译错误,用户定义类型未定义,怎么解决