自绘树形框源码TreeView支持自由扩展

.版本 2

' // 获取项目索引
项目索引 ＝ Tree.坐标取项目 (纵向位置)
缺点：1因为用的是画板所以操作过快会闪烁，如果你愿意你只需要少量修改代码将绘图对象转移到GDI,或DX，此问题定能轻松搞定

' // 设置现行选中项目
Tree.现行选中项 (项目索引)
' // 设置点燃项目
Tree.设置点燃项目 (项目索引)
' // 设置项目展开状态
.如果真 (Tree.是否扩展 (Tree.XS_GetItemPosition (项目索引)) ＝ 假)
Tree.扩展 (Tree.XS_GetItemPosition (项目索引))
Tree.Renovate ()
Tree.更新滚动位置 ()
返回 ()
.如果真结束
Tree.收缩 (Tree.XS_GetItemPosition (项目索引))
Tree.Renovate ()
Tree.更新滚动位置 ()