写了个ListView类,实现了基本的ListView功能(VB6.0)
作者:admin 日期:2009-06-23
工程是打好包的,而且也加了说明,那证明我肯定曾经在哪里发过.
但是我找了半天,就没在论坛与BLOG里发现哪里有这个,干脆上传吧.......
....先发图:

然后是压缩包:
点击下载此文件
把ListView控件的基本功能实现了,还顺便做了一下滚动条的平面样式,个人感觉要漂亮点....
这主要是为了方便,以后在使用基本功能时,就不需要再带个控件了.
如果谁把它补完了更全的功能,麻烦通知我一声,谢谢.
******* 2010-01-26 *******
* 增加LV_GetSelectedItem方法,用于获取当前选中行索引.
但是我找了半天,就没在论坛与BLOG里发现哪里有这个,干脆上传吧.......


然后是压缩包:

把ListView控件的基本功能实现了,还顺便做了一下滚动条的平面样式,个人感觉要漂亮点....
这主要是为了方便,以后在使用基本功能时,就不需要再带个控件了.
如果谁把它补完了更全的功能,麻烦通知我一声,谢谢.

******* 2010-01-26 *******
* 增加LV_GetSelectedItem方法,用于获取当前选中行索引.
评论: 6 | 引用: 0 | 查看次数: 1683


这个....要用子类化拦截鼠标消息.
你重新下载一下代码包,里面加入了一个子类化模块,在那里直接取鼠标消息并封装为一个事件即可.
你重新下载一下代码包,里面加入了一个子类化模块,在那里直接取鼠标消息并封装为一个事件即可.


谢谢!我现在想做一个弹出菜单,可是这个类貌似没有像普通控件一样的mousedown事件,所以我不知道怎么做才能让右键菜单只在这个类上面才会出现(我看了下这个类的代码,貌似是可以自己加的,不过很惭愧的是我对于“类”这个从来没研究过),谢谢帮助下、、


发送消息即可得到当前选中行索引.
添加一个方法即可:
Public Function LV_GetSelectedItem() As Long
'取得当前选中行索引,零下标.如果无选中行,则返回-1.
LV_GetSelectedItem = SendMessage(hListView, LVM_GETSelectIONMARK, ByVal 0&, ByVal 0&)
End Function
admin 于 回复
添加一个方法即可:
Public Function LV_GetSelectedItem() As Long
'取得当前选中行索引,零下标.如果无选中行,则返回-1.
LV_GetSelectedItem = SendMessage(hListView, LVM_GETSelectIONMARK, ByVal 0&, ByVal 0&)
End Function

补充一下.......是发LVM_GETSelectIONMARK消息,手快忘了复制过去,汗.


试过了,感觉不错,不过问下,这个类有没有类似于listview的selected属性用于判断用户当前选择的项目?



你子类化了吗?
编译后怎么样?