Projects

Winpopup Plus

November 23, 2002 by Java

Browsing ListViewFunctions.bas (1.28 KB)

Attribute VB_Name = "ListViewFunctions"

Private 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
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Const LVS_EX_FULLROWSELECT = &H20

Private Const LVM_FIRST = &H1000
Private Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54
Private Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 55
Private Const LVM_GETHEADER = (LVM_FIRST + 31)

Private Const HDS_BUTTONS = &H2
Private Const GWL_STYLE = (-16)

Public Sub LV_FlatColumnHeaders(ListViewObj As ListView)
SetWindowLong SendMessageLong(ListViewObj.hwnd, LVM_GETHEADER, 0, ByVal 0&), GWL_STYLE, _
GetWindowLong(SendMessageLong(ListViewObj.hwnd, LVM_GETHEADER, 0, ByVal 0&), GWL_STYLE) Xor HDS_BUTTONS
End Sub

Public Sub LV_FullRowSelect(ListViewObj As ListView)
SendMessageLong ListViewObj.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, _
SendMessageLong(ListViewObj.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&) Xor LVS_EX_FULLROWSELECT
End Sub

Download ListViewFunctions.bas

Back to file list

---

Back to project page