写了个ListView类,实现了基本的ListView功能(VB6.0)

工程是打好包的,而且也加了说明,那证明我肯定曾经在哪里发过.

但是我找了半天,就没在论坛与BLOG里发现哪里有这个,干脆上传吧...........先发图:



然后是压缩包:

下载文件 点击下载此文件

把ListView控件的基本功能实现了,还顺便做了一下滚动条的平面样式,个人感觉要漂亮点....

这主要是为了方便,以后在使用基本功能时,就不需要再带个控件了.

如果谁把它补完了更全的功能,麻烦通知我一声,谢谢.

******* 2010-01-26 *******

* 增加LV_GetSelectedItem方法,用于获取当前选中行索引.

评论: 6 | 引用: 0 | 查看次数: 1683
gam2046
gam2046[2010-01-30 09:57 AM | ]
咳咳..新的一开始用还蛮好的、、可是(转折了啊)、我发现一旦使用inputbox、msgbox一类的东西,程序就死了,后来在IDE下发现在hookmsg过程死循环、再之后就连IDE都死了....
回复来自 admin 的评论 admin 于 2010-02-02 07:52 PM 回复
这个.....hookmsg过程?

你子类化了吗?

编译后怎么样?
admin
admin[2010-01-26 06:31 PM | ]
这个....要用子类化拦截鼠标消息.

你重新下载一下代码包,里面加入了一个子类化模块,在那里直接取鼠标消息并封装为一个事件即可.
gam2046
gam2046[2010-01-26 04:17 PM | ]
谢谢!我现在想做一个弹出菜单,可是这个类貌似没有像普通控件一样的mousedown事件,所以我不知道怎么做才能让右键菜单只在这个类上面才会出现(我看了下这个类的代码,貌似是可以自己加的,不过很惭愧的是我对于“类”这个从来没研究过),谢谢帮助下、、
admin
admin[2010-01-26 12:46 PM | ]
发送消息即可得到当前选中行索引.

添加一个方法即可:

Public Function LV_GetSelectedItem() As Long
'取得当前选中行索引,零下标.如果无选中行,则返回-1.
LV_GetSelectedItem = SendMessage(hListView, LVM_GETSelectIONMARK, ByVal 0&, ByVal 0&)
End Function

回复来自 admin 的评论 admin 于 2010-01-26 12:59 AM 回复
补充一下.......是发LVM_GETSelectIONMARK消息,手快忘了复制过去,汗.
gam2046
gam2046[2010-01-26 07:58 AM | ]
试过了,感觉不错,不过问下,这个类有没有类似于listview的selected属性用于判断用户当前选择的项目?
dabian001
dabian001[2009-06-23 09:03 PM | ]