ListView标题平面显示（VB）


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