ListView标题平面显示

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 LongPublic Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _　 (ByVal hwnd As Long, ByVal nIndex As Long) As LongPublic Declare Function SetWindowLong Lib "user32"　Alias "SetWindowLongA" _　 (ByVal hwnd As Long, ByVal nIndex As Long,　ByVal dwNewLong As Long) As LongPublic Const GWL_STYLE = (-16)Public Const LVM_FIRST = &H1000Public Const LVM_GETHEADER = (LVM_FIRST + 31Public 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