ListView Flat Headers

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Richard Moss

Version Compatibility:

More information:

If you do not want your ListViews to have button style column headers, you can use this code to change them to a flat style.

Usage:

LV_FlatHeaders ParentObject.hWnd, ListViewControl.hWnd

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Declare Function SendMessageLong Lib "user32" Alias _ "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" (ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As _ Long, ByVal dwNewLong As Long) As Long Private Declare Function SetWindowPos Lib "user32" _ (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal Y As Long, ByVal CX As Long, _ ByVal CY As Long, ByVal wFlags As Long) As Long Const GWL_STYLE = (-16) Private Const LVM_FIRST = &H1000 Private Const LVM_GETHEADER = _ (LVM_FIRST + 31) Private Const HDS_BUTTONS = &H2 Private Const SWP_DRAWFRAME = &H20 Private Declare Function SendMessageLong Lib "user32" Alias _ "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetWindowLong Lib "user32" _ Alias "GetWindowLongA" (ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" _ Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As _ Long, ByVal dwNewLong As Long) As Long Private Declare Function SetWindowPos Lib "user32" _ (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _ ByVal x As Long, ByVal Y As Long, ByVal CX As Long, _ ByVal CY As Long, ByVal wFlags As Long) As Long Const GWL_STYLE = (-16) Private Const LVM_FIRST = &H1000 Private Const LVM_GETHEADER = _ (LVM_FIRST + 31) Private Const HDS_BUTTONS = &H2 Private Const SWP_DRAWFRAME = &H20 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOZORDER = &H4 Private Const SWP_FLAGS = SWP_NOZORDER _ Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME

Code: