实例学控件----Listview控件（原创）5.29更新第4楼

兰色幻想 · 发表于 2006-5-29 12:39

以下是引用[I]konggs[/I]在2006-5-29 11:39:15的发言：[BR]
贴上我给兰哥的短信了。
在2006-5-29 10:00:02，konggs给您发送的消息！
消息标题：兰哥
谢谢你的listview控件，我正学习。有两个问题向你反映。
1.好像listview的第一列的列标题只能左对齐。
2.listview version 5.0（sp2)不支持GridLines属性。
不知是不是这样，请指正在。

第一个问题我给给忽略了，我一会儿在贴中补充一下，第二个倒不晓得，一直是用6.0版的。

紫蝶儿菲菲 · 发表于 2006-5-29 12:44

Sit in a sofa.

jacksonzeng · 发表于 2006-5-29 13:33

Sit in a sofa with 紫蝶儿菲菲.

彭希仁 · 发表于 2006-5-29 14:12

ListView1.Icons = ImageList1

为什么非要这一句呢？不明白。

兰色幻想 · 发表于 2006-5-29 18:57

以下是引用[I]彭希仁[/I]在2006-5-29 14:12:29的发言：
ListView1.Icons = ImageList1
为什么非要这一句呢？不明白。

Listview所要显示的图标需要从ImageList1中取得。所以要此句建立和ImageList1控件的关联。

[此贴子已经被作者于2006-5-29 18:57:57编辑过]

爱痕 · 发表于 2006-5-29 20:09

我迟到了，在后排也没关系！支持兰版！！

djmzjz · 发表于 2006-5-29 20:27

兰老师好:

在你的代码中:

ListView1.SmallIcons = ImageList1
'设置循环
For i = 1 To 5

为什么5不能大地于5以上的数,小于5就能显示,只是不能全部显示出数据来,如果我需要增大于5条以上的数据加数据,怎么办?

wangrunming · 发表于 2006-5-29 21:11

请问高手，在如ListView1.ColumnHeaders.Add 1, , "QQ号", ListView1.Width / 3

能否让＂ＱＱ号＂显示为两行？？？？？？？？？？？？？？？

如何设置？？？？？？？？？？

yigepure · 发表于 2006-5-29 21:26

好，今天打球好累。刚洗完澡来看看。就这么多回复了。好。GOOD！呵呵，来灌灌水的。

兰色幻想 · 发表于 2006-5-29 22:25

以下是引用[I]djmzjz[/I]在2006-5-29 20:27:45的发言：[BR]
兰老师好:
在你的代码中:
ListView1.SmallIcons = ImageList1
'设置循环
For i = 1 To 5
为什么5不能大地于5以上的数,小于5就能显示,只是不能全部显示出数据来,如果我需要增大于5条以上的数据加数据,怎么办?

如果要添加更多可以使用For i = 1 To [A65536].End(xlUp).Row（详细2楼的代码）本例中使用FOR I=1 TO 5 主要是考虑到在ImageList1添加的图标只有5个，而程序中（ ITM.SmallIcon = i）又需要设置每条记录使用不同的图标。如果有足够的图标可供使用，或者每条记录都使用相同的记录，就可以使用For i = 1 To [A65536].End(xlUp).Row的循环方式进行添加了。

		自动登录	找回密码
密码			免费注册