【VB】不依赖ocx，借助ListBox实现自己的TreeView

0xAA55 · 发表于 2016-5-15 06:48:48

欢迎访问技术宅的结界，请注册或者登录吧。

您需要登录才可以下载或查看，没有账号？立即注册→加入我们

×

效果马马虎虎，但基本功能都有。
这个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, 下载次数: 23)
7z附件校验信息：（单个exe文件）49152 字节
SHA256: E7A096EDBCE90754C788BDC8FC4E6BEB9BD9C4EFDF97F042BAF10DDCD87BA4C8
源码下载请先回帖。

游客，如果您要查看本帖隐藏内容请回复

0xAA55 · 发表于 2016-5-15 06:49:46

现在发帖如果发Bin，我会带上哈希校验信息，以防止中间人攻击。

账号已注销 · 发表于 2016-5-15 18:33:19

已学习!

Golden Blonde · 发表于 2016-5-16 11:45:05

A5真厉害！

3dvr · 发表于 2016-5-25 20:23:41

学习～学习～

qtman · 发表于 2016-11-17 10:10:27

收下了了

Gamma · 发表于 2017-11-23 16:03:22

kjkjj 不依赖ocx，借助ListBox实现自己的TreeView [修改]
高级模式

nmcfbgttyl · 发表于 2017-12-29 23:09:21

这个很好，试一试

涐吢铱舊囿儚 · 发表于 2017-12-30 12:50:03

呵呵，有点意思。不过感觉实用性不太大。

0xAA55 · 发表于 2018-1-1 02:32:29

涐吢铱舊囿儚发表于 2017-12-30 12:50
呵呵，有点意思。不过感觉实用性不太大。

实用性还是有的。用它的话你就可以减少对某TreeView的ocx的依赖了。

搬砖工 · 发表于 2018-9-15 00:44:59

看看用的什么手段

系统消息 · 发表于 2019-11-1 16:05:33

0xAA55 发表于 2018-1-1 02:32
实用性还是有的。用它的话你就可以减少对某TreeView的ocx的依赖了。

感觉不想依赖ocx的话，完全可以用CreateWindow创建系统原生控件，封装到UserControl里面就行了。

0xAA55 · 发表于 2019-11-6 15:22:00

系统消息发表于 2019-11-1 16:05
感觉不想依赖ocx的话，完全可以用CreateWindow创建系统原生控件，封装到UserControl里面就行了。 ...

麻烦。

hxin123456 · 发表于 2020-4-3 22:30:27

看看学习下

大宝 · 发表于 2020-7-8 10:24:53

本帖最后由 china_shy_wzb 于 2020-7-20 14:00 编辑

自己动手，借助ListBox实现Listview

xiawan · 发表于 2022-5-9 16:02:16

非常感谢~~支持~~~

angelindark55 · 发表于 2023-5-19 15:08:20

谢谢分享，前来考古

账号		自动登录	找回密码
密码			立即注册→加入我们

【VB】不依赖ocx，借助ListBox实现自己的TreeView

欢迎访问技术宅的结界，请注册或者登录吧。

本帖被以下淘专辑推荐:

相关帖子