有了下面这个ListView标题平面显示教程，不懂ListView标题平面显示的也能装懂了，赶紧get起来装逼一下吧！
【 tulaoshi.com - 编程语言 】
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（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）
来源:https://www.tulaoshi.com/n/20160219/1613457.html
看过《ListView标题平面显示》的人还看了以下文章 更多>>
