提示编译错误,用户定义类型未定义,怎么解决
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]