所需阅读权限 1IcyListView - a product of iceboy product, IcyListView, iceboy

iceboy

这是一个 PN Style 的 ListView 类, 特点如下:

1. 使用 XP Style, 界面漂亮, 不闪烁.
2. 使用 LVS_OWNERDATA, 自己使用动态列表管理数据, 效率高.
3. 支持自动显示文件对应的图标.
4. 可以轻松修改窗口过程, 可扩展性强.
5. 子类化代码针对 VB IDE 特殊处理, 不会造成 IDE 崩溃, 甚至可以在窗口过程里下断点.
6. 接口针对数据动态更新的软件 (比如进程管理) 特别设计, 更新数据时这样操作即可:

1. If lvDemo.BeginUpdate() = True Then
   
2.     For index = 0 To nElements - 1
   
3.         With result(index)
   
4.             arrStr(0) = .ImageName
   
5.             arrStr(1) = CStr(.PID)
   
6.             arrStr(2) = .Path
   
7.             lvDemo.Update .PID, vbBlack, arrStr
   
8.         End With
   
9.     Next
   
10.     lvDemo.EndUpdate True
    
11. End If

复制代码

BeginUpdate 表示开始更新, Update(key, color, data()) 表示更新 key 对应的数据, EndUpdate(bRemoveUnupdated) 表示结束更新, 如果 bRemoveUnupdated 被设置为 True, 那么没有更新到的数据将会被自动删除.
如果数据没有变化, 更新不会导致界面重绘.
7. 所有代码全部在一个 .cls 文件内, 可移植性强.

目前这个 ListView 只实现了一个基本框架, 大家可以根据自己的需要来扩充它的功能.

ggystudio

---------------------------
pTestListView6
---------------------------
运行时错误 '440':

Automation 错误
---------------------------
确定   
---------------------------

[ 本帖最后由 ggystudio 于 2009-2-2 16:34 编辑 ]

suanzi

抢SF先

iceboy

正式授权 GGY 同学在 IceLight 中使用本 ListView

ggystudio

现在我甚至连移植的技术都没有了

download

Listview的增强控件几年前国外都烂了.目前好像没啥新花样了

FlowerCode

支持 + 闪人

windbell

支持下

44670

膜拜icy大牛

cnlamb

能授权给我吗？