
Fullrowselect in ListView-control (VB4 32)
I've used the following code to enable highlight of an entire row in a
listview-control (report-style).
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 Const LVM_FIRST = &H1000
Public Const LVS_EX_FULLROWSELECT = &H20
Public Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54
Public Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 55
Public Const LVS_FULLROWSELECT = &H20
rstyle = SendMessageLong(lvwUcode.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)
rstyle = rstyle Or LVS_FULLROWSELECT
r = SendMessageLong(lvwUcode.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, rstyle)
rstyle = SendMessageLong(lvwProjects.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, _
0&, 0&)
rstyle = rstyle Or LVS_FULLROWSELECT
r = SendMessageLong(lvwProjects.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, _
rstyle)
This works fine in Windows NT 4.0 but in W95 the entire row is not selected
(just the item clicked).
Does anybody know why??
Espen Stromsnes
_____________________________________________________________
Work: NM Data AS, P.O. Box 9090 Gronland, N-0133 Oslo, NORWAY
Home: Brenneriveien 1B, N-0182 Oslo, Norway
_____________________________________________________________