listview问题

Question

1、打开“我的电脑”后，每一项都可以双击打开，listview怎么做到？
2、点完listview的一个项目后，当中的listitem会与mouse一起动，使用模式禁了之后，会有一个不能　　拖运的小圆圈跟着，不爽，有没别的办法？
3、使用详细列表看“我的电脑”时，在列头上有个小图标，不过这个小图标是放在左边的，listview　　中如何做到？

Answer 1

http://www.zjol.com.cn/vbbible/software/program/ocxcontrol.htm13 kenjLV1 10K ListView的API效果演示

Answer 2

1、响应ListView1_ItemClick事件
2、不知道设置MousePointer可不可以
3、设置第一列为图片应该可以吧。

Answer 3

添加ImageList控件
插入图片，例如：小三角形的索引为1,倒三角为2ListView1关联ImageList1
分别设置ListView1的小图标和列图标为ImageList1在每添加一行数据时，赋小图标初值
 Dim ItemKey As String
 Dim LItm As MSComctlLib.ListItem
 Dim i As Integer i=1
 ItemKey = "TP" & i
 Set LItm = ListView1.ListItems.Add(, ItemKey, ItemKey)
 LItm.SmallIcon = 1'小三角形当选择时，显示倒小三角
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    ListView1.ListItems(Item).SmallIcon = 2
End Sub

Answer 4

楼上的：可能是我讲得不够清楚1、我是要响应双击事件
2、发生ListView1_ItemClick事件后，图标不能与mouse移动
3、图标我知道能放，不过是想让图标放在文字的右边

Answer 5

好了，谢谢　online(龙卷风V3.0--笑傲江湖)