listview - only one vertical scrollbar.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 28 行

Public Const LVM_FIRST = &H1000 
Public Const LVM_SETCOLUMNWIDTH = (LVM_FIRST + 30) 
Public Const LVSCW_AUTOSIZE = -1 
Public Const LVSCW_AUTOSIZE_USERHEADER = -2 
Public Const LVM_GETHEADER = (LVM_FIRST + 31) 

Declare Function SendMessage Lib "user32.dll" Alias _ 
"SendMessageA" (ByVal hWnd As Long, _ 
ByVal Msg As Long, ByVal wParam As Long, _ 
ByVal lParam As Long) As Long 


Public Sub ResizeHeader(boolFirstColVisible As Boolean, lstv As ListView) 

Dim lColumn As Long 
Dim lCounter As Long 

If boolFirstColVisible Then lCounter = 0 Else lCounter = 1 

For lColumn = lCounter To lstv.ColumnHeaders.Count - 1 
SendMessage lstv.hWnd, _ 
LVM_SETCOLUMNWIDTH, _ 
lColumn, _ 
LVSCW_AUTOSIZE_USERHEADER 
Next 


End Sub