查看完整版本: 如何制作平面式的listview列头

如何制作平面式的listview列头

　　callzjy（原作）
在通常情况下，listview的列头是按钮式的，如果你想把列头做成平面式的，那就用我的方法试试，源码如下
Option Explicit
** Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
** Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
** 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 GWL_STYLE = (-16)
** Const LVM_FIRST =