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 |
ListView标题平面显示(VB)
最新推荐文章于 2015-05-13 13:08:21 发布