关于ListView

hnzsy 2002-12-25 09:26:57
请问:
1、怎样在report形式下显示网格
2、怎样在report形式下使当前选中行加亮
...全文
6 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
XLYT 2002-12-25
zfive5(最码):没那么复杂吧?
只需要编辑listview的gridlines和fullrowselect属性就可以了。
回复
醉马不肖 2002-12-25
vc中
lIndex=m_MList.GetExtendedStyle();
m_MList.SetExtendedStyle(Index|LVS_EX_GRIDLINES|LVS_EX_FULLROWSELECT);

vb中需要通过api函数来实现
回复
nik_Amis 2002-12-25
.ListItems.Clear
.View = lvwReport
.FullRowSelect = True
.Gridlines = True
.HotTracking = True
回复
Jim_OU 2002-12-25
右键属性,编辑一下
回复
online 2002-12-25
属性值可以设定
回复
fling_boy 2002-12-25
上面的API只能用于5.0对6.0无效.
回复
fling_boy 2002-12-25
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 2002-12-25
你用的listview是 Microsoft windows common controls 5.0 吧.
用Microsoft windows common controls 6.0就会有那几个属性了.
如果不想用这个,我给你查查API.
回复
hnzsy 2002-12-25
to nik_Amis(Azrael) , XLYT(雨田) :
listview没有gridlines、HotTracking 属性

to zfive5(最码) :
请问用什么api函数?
回复
相关推荐
发帖
控件
创建于2007-09-28

1425

社区成员

VB 控件
申请成为版主
帖子事件
创建了帖子
2002-12-25 09:26
社区公告
暂无公告