- UID
- 1
- 精华
- 积分
- 76310
- 威望
- 点
- 宅币
- 个
- 贡献
- 次
- 宅之契约
- 份
- 最后登录
- 1970-1-1
- 在线时间
- 小时
|
效果马马虎虎,但基本功能都有。
这个TreeView是用ListBox实现的。VB6需要引用mscomctl.ocx才能使用Windows的标准风格的TreeView,为了能减少这个依赖,我们可以自己实现一个TreeView。典型的就是利用ListBox来实现。
用法很简单,用AddNode来添加节点,返回值是节点Id,可以通过制定AddNode的“父节点Id”参数来给节点添加子节点。
范例代码:- Option Explicit
- Private Sub Form_Load()
- Dim HeadNode As Long
- Dim ExportNode As Long
- Dim ImportNode As Long
- Dim ResourceNode As Long
- Dim SegmentNode As Long
- With tvStruct
- HeadNode = .AddNode("头部", 0)
- ExportNode = .AddNode("导出", 0)
- ImportNode = .AddNode("导入", 0)
- ResourceNode = .AddNode("资源", 0)
-
- .AddNode "EXE 头部", 0, HeadNode
- .AddNode "PE 头部", 0, HeadNode
- .AddNode "可选头部", 0, HeadNode
- SegmentNode = .AddNode("段落头部", 0, HeadNode)
-
- .AddNode ".text", 0, SegmentNode
- .AddNode ".data", 0, SegmentNode
- .AddNode ".rsrc", 0, SegmentNode
-
- .AddNode "kernel32.dll", 0, ImportNode
- .AddNode "user32.dll", 0, ImportNode
- .AddNode "gdi32.dll", 0, ImportNode
- End With
- End Sub
复制代码 示范exe:
A5_TR33V13W_Bin.7z
(10.1 KB, 下载次数: 25)
7z附件校验信息:(单个exe文件)49152 字节
SHA256: E7A096EDBCE90754C788BDC8FC4E6BEB9BD9C4EFDF97F042BAF10DDCD87BA4C8
源码下载请先回帖。 |
|