ListView标题平面显示

ListView标题平面显示2009-10-06
Public 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
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
  （ByVal hwnd As Long, ByVal nIndex As Long） As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  （ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long） As Long
Public Const GWL_STYLE = （-16）
Public Const LVM_FIRST = &H1000
Public Const LVM_GETHEADER = （LVM_FIRST + 31
Public Const HDS_BUTTONS = &H2
 
"执行下列代码放在你的创建ListView代码中
  Dim r As Long
  Dim style As Long
  Dim hHeader As Long
 "get the handle to the listview header
  hHeader = SendMessageLong（ListView1.hwnd, LVM_GETHEADER, 0, ByVal 0&）
 "get the current style attributes for the header
  style = GetWindowLong（hHeader, GWL_STYLE）
 "modify the style by toggling the HDS_BUTTONS style
  style = style Xor HDS_BUTTONS   "set the new style and redraw the listview
  If style Then
   r = SetWindowLong（hHeader, GWL_STYLE, style）
  End If