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 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