ListView标题平面显示(VB)

王朝vb·作者佚名  2006-04-30
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航