ListView标题平面显示（VB）

最新推荐文章于 2007-07-03 16:00:00 发布

最新推荐文章于 2007-07-03 16:00:00 发布 · 148 阅读

本文介绍如何使用VB代码实现ListView标题的平面显示效果。通过调用Windows API函数如SendMessageLong、GetWindowLong和SetWindowLong来修改ListView的Header样式属性，移除或添加HDS_BUTTONS标志来达到标题平面化的目的。

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