字典四级嵌套，相信很多人没用过

chxw68 · 发表于 2013-11-28 22:20

xsy我可以很好发表于 2013-11-28 16:43
请问可以增加一级吗，O(∩_∩)O谢谢

可以的，我也没试过最多能嵌套多层。

xsy我可以很好 · 发表于 2013-11-28 22:30

chxw68 发表于 2013-11-28 22:20
可以的，我也没试过最多能嵌套多层。

麻烦大神上个五层的学习一下，我半天没有修改成功

chxw68 · 发表于 2013-11-29 08:33

Sub test1()
  Dim d As New Dictionary
  Dim obj As Object
  Set obj = d
  For i = 1 To 10000
Set obj(i) = CreateObject("scripting.dictionary")
Set obj = obj(i)
  Next
End Sub
我做了个实验，字典嵌套10000层也没问题，但嵌套太多也就没什么意义了。

好奇心 · 发表于 2013-11-29 11:41

加载"Micerosoft TreeView Conntrol,version6.0"控件。
如何加载以上控件，因为“工具”→“引用”中无此控件。
谢谢。

chxw68 · 发表于 2013-11-29 11:48

不在引用里，在“工具--附加控件”里。

gjj136138139 · 发表于 2013-11-29 12:12

目录树的处理很多人都是用递归来处理。

好奇心 · 发表于 2013-11-29 15:47

chxw68 发表于 2013-11-29 11:48
不在引用里，在“工具--附加控件”里。

已勾选"Micerosoft TreeView Conntrol,version6.0"控件，并在UserFormr1画上控件→点击“显示目录树”→出错：以上的问题如附件中的楼下截图。如何加载以上控件？

好奇心 · 发表于 2013-11-29 15:48

错误信息.rar (184.16 KB, 下载次数: 68)

GovanWAng · 发表于 2013-12-10 16:33

谢谢版主~！

张雄友 · 发表于 2013-12-10 18:27

本帖最后由张雄友于 2013-12-10 18:43 编辑

Dim nodex As Node 这句用户类型未定义.

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

[分享] 字典四级嵌套，相信很多人没用过

点评

点评