vb 6.0 Listview控件 怎样实现根据字符长度自动调整列宽？

Posted 2023-02-25

工程中引入如下代码就可以自动调整列宽了。
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub AutosizeColumns(ByVal TargetListView As ListView)
Const SET_COLUMN_WIDTH As Long = 4126
Const AUTOSIZE_USEHEADER As Long = -2
Dim lngColumn As Long

For lngColumn = 0 To (TargetListView.ColumnHeaders.Count - 1)
Call SendMessage(TargetListView.hwnd, SET_COLUMN_WIDTH, lngColumn, ByVal AUTOSIZE_USEHEADER)

Next lngColumn
End Sub追问

怎么使用直接粘贴进去？

追答

开一个公共模块啊

追问

刚接触vb 能不能说的详细点？

追答

要怎么详细你才能懂

追问

是不是把把这个名称TargetListView改成我的上面的控件名称就可以？

参考技术A vb6.0有一个帮助系统，记得是四个英语大写字母组成的，叫什么想不起来，具体怎么做他会教你的，太久没用有些忘了。或者你点一下，然后方法找找，一般看名字就可以大概知道是什么意思了。 参考技术B 你百度搜下vb listview自动调整列宽，可以搜到的，要用系统的SendMessage消息函数实现，我好久没用过vb了，没法测试，不过我印象当中也不记得有没有设置自动调整列宽了 参考技术C 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。