树形节点绘制

wang-way · 发表于 2023-9-4 21:23

经典学习了

wang-way · 发表于 2023-9-4 21:27

本帖最后由 wang-way 于 2023-9-5 00:46 编辑

修改了第一个读取数据的过程，基本可以为我所用，但是控制图形位置还有点小问题

今铭昔 · 发表于 2023-9-5 07:25

wang-way 发表于 2023-9-4 21:27
修改了第一个读取数据的过程，基本可以为我所用，但是控制图形位置还有点小问题

因为横向间隔宽度我是写死了，节点的文本长度，不遍历并绘制，是不知道其Width的值的，要想解决横向坐标调整这个问题，需要再进行一次遍历

今铭昔 · 发表于 2023-9-5 08:59

opel-wong 发表于 2023-9-4 16:58
能分享一下这个源码吗？谢谢！

这个样式我是用JSA写的，等什么时候有空了再写个VBA版本的

wang-way · 发表于 2023-9-5 09:14

重新遍历了一遍，从深向浅调整左右位置

blackttea1 · 发表于 2023-9-5 09:26

好程序，谢谢分享

qqyyh · 发表于 2023-9-5 14:12

大有用处，使用。。。

今铭昔 · 发表于 2023-9-5 14:33

wang-way 发表于 2023-9-5 09:14
重新遍历了一遍，从深向浅调整左右位置

本来我是想把你的数据处理成我的样式，再调用就可以了，现在你自己重构了SetTree函数解决了，自然最好，我就不用这个方案了。

你的数据源本身就是个递归结构，所以用我也写了个递归版的SetMyTree2

tree的目的是做父子节点的映射表，而你的数据源已经很清晰的说明了数据节点之间的关系，所以可以不需要用tree，也就是可以不需要有SetTree这个步骤，直接在DrawNode函数这个写递归，但我懒，这里就不搞这个了，但可以参考我的这个SetMyTree2，因为处理方式一样的

你的调整图形的x坐标处理的不是很好，用了大多的循环了，这里应该从根节点开始，一层一层地设置图形的Left属性，不过，能解决问题，自然就是好猫。

wang-way · 发表于 2023-9-5 15:36

今铭昔发表于 2023-9-5 14:33
本来我是想把你的数据处理成我的样式，再调用就可以了，现在你自己重构了SetTree函数解决了，自然最好 ...

感谢感谢我看看。递归我阅读起来还是有点费劲的。所以只能在简单的setTree那里入手

快乐阿飞 · 发表于 2023-9-29 23:29

师傅我来了

		自动登录	找回密码
密码			免费注册

[原创] 树形节点绘制