| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 The following code sets the full line style property of a listview. Note, used for mostly for "Microsoft Windows Common Controls 5.0" as this didn't expose the full line select property. \par \par 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 \par Private Const LVM_FIRST = &H1000, LVM_GETNEXTITEM = (LVM_FIRST + 12) \par Private Const LVNI_SELECTED = &H2, LVM_GETSELECTEDCOUNT = (LVM_FIRST + 50) \par Private Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54, LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 55 \par Private Const LVS_EX_FULLROWSELECT = &H20 \par \par \par 'Purpose : Sets the line style of a listview. \par 'Inputs : bFullLineStyle If True the listview will select full rows, else will select first row \par ' oLV The listview to set the full line style on. \par 'Outputs : Returns True if an error occurred \par 'Author : Andrew Baker \par 'Date : 23/07/2000 20:00 \par 'Notes : Used for "Microsoft Windows Common Controls 5.0" as this didn't expose the full line select property. Requires the "View" property to be set to "lvwReport". \par 'Revisions : \par \par Function LVFullLineStyle(bFullLineStyle As Boolean, lLVHwnd As Long) As Boolean \par Dim lRetVal As Long, lStyle As Long \par \par On Error GoTo ErrFailed \par \par lStyle = SendMessageLong(lLVHwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&) \par If bFullLineStyle Then \par 'Set Full Row style bit \par lStyle = lStyle Or LVS_EX_FULLROWSELECT \par Else \par 'Remove Full Row style bit \par lStyle = lStyle Xor LVS_EX_FULLROWSELECT \par End If \par lRetVal = SendMessageLong(lLVHwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, lStyle) \par \par Exit Function \par \par ErrFailed: \par LVFullLineStyle = True \par End Function \par } |
Setting the Full Line Style of a Report Listview |
India web developer web development India | India web development company India ecommerce web developer