关于ListView

[hnzsy]

请问:
1、怎样在report形式下显示网格
2、怎样在report形式下使当前选中行加亮

[hnzsy]

to nik_Amis(Azrael) , XLYT(雨田) :
listview没有gridlines、HotTracking 属性

to zfive5(最码) :
请问用什么api函数？

[fling_boy]

你用的listview是 Microsoft windows common controls 5.0 吧.
用Microsoft windows common controls 6.0就会有那几个属性了.
如果不想用这个,我给你查查API.

[fling_boy]

Public Enum LVW_EX_Style
LVS_EX_GRIDLINES = &H1&
LVS_EX_SUBITEMIMAGES = &H2&
LVS_EX_CHECKBOXES = &H4&
LVS_EX_TRACKSELECT = &H8&
LVS_EX_HEADERDRAGDROP = &H10&
LVS_EX_FULLROWSELECT = &H20&
LVS_EX_ONECLICKACTIVATE = &H40&
LVS_EX_TWOCLICKACTIVATE = &H80&
LVS_EX_FLATSB = &H100&
LVS_EX_REGIONAL = &H200&
LVS_EX_INFOTIP = &H400&
LVS_EX_UNDERLINEHOT = &H800&
LVS_EX_UNDERLINECOLD = &H1000&
LVS_EX_MULTIWORKAREAS = &H2000&
End Enum

其中的New_Style 可以是上面的一个或多个的和.

Public Function SetListViewExtendStyle(ByVal hWnd As Long, ByVal New_Style As long ) As Long
Dim lStyle As Long

lStyle = SendMessage(hWnd, LVM_&H1036, 0, 0)
lStyle = lStyle Or New_Style
SetListViewExtendStyle = SendMessage(hWnd, LVM_&H1036, 0, ByVal New_Style)
End Function

[fling_boy]

上面的API只能用于5.0对6.0无效.

[online]

属性值可以设定

[Jim_OU]

右键属性，编辑一下

[nik_Amis]

.ListItems.Clear
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
.HotTracking = True

[醉马不肖]

vc中
lIndex=m_MList.GetExtendedStyle();
m_MList.SetExtendedStyle(Index|LVS_EX_GRIDLINES|LVS_EX_FULLROWSELECT);

vb中需要通过api函数来实现

[XLYT]

zfive5(最码)：没那么复杂吧？
只需要编辑listview的gridlines和fullrowselect属性就可以了。