自动调整listview标题头宽度的二种方法

最新推荐文章于 2023-09-25 10:12:23 发布

最新推荐文章于 2023-09-25 10:12:23 发布 · 558 阅读

文章标签：

#c# #c/c++ #移动开发

本文介绍了两种自动调整ListView标题头宽度的方法。方法一通过VBA脚本计算并设置每个标题头的宽度；方法二利用Windows API实现自动调整。这两种方法均可帮助开发者快速解决ListView标题头宽度适配问题。

自动调整listview标题头宽度的二种方法

方法一：
'*******************************
'用法:Call ResizeListView(ListView1)
'*******************************
Public Sub ResizeListview(objListView As ListView)
Dim dSecWidth As Double
Dim iLoop As Integer

With objListView
dSecWidth = (.Width / .ColumnHeaders.Count) - 30
For iLoop = 1 To .ColumnHeaders.Count
.ColumnHeaders(iLoop).Width = dSecWidth
'// DoEvents [ Optional, don't really need it ]
Next iLoop
End With
End Sub

方法二（使用API):
'**********************
'API声明
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const LVM_FIRST = &H1000

'函数
Public Sub AutoSizeColumnHeader(LView As ListView, Column As ColumnHeader, ByVal SizeToHeader As Boolean)
Dim l As Long
If SizeToHeader Then l = -2 Else l = -1
Call SendMessage(LView.hWnd, LVM_FIRST + 30, Column.Index - 1, l)
End Sub