乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 78|回复: 5

树视图控制

[复制链接]

55

主题

197

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
416
发表于 2006-6-23 12:28:15 | 显示全部楼层 |阅读模式
好的,我已经开始对VBA控件进行编目,以取代ObjectDCL-你看,我们lispers最终必须来到这里,谦恭地拿着帽子,寻求帮助。我知道你的第一反应不太恰当,但任何帮助都将不胜感激。
有人在VBA中使用过treeview控件吗?我在以下方面遇到语法错误:
  1. Dim layerfilters As AcadDictionary
  2. Set layerfilters = ThisDrawing.Layers.GetExtensionDictionary.Item("ACAD_LAYERFILTERS")
  3. For Each entry In layerfilters
  4. TreeView1.Nodes.Add(new treenode, entry.name, entry.name, , ,)
  5. Next

VB帮助使用不同的语法:
treeView1.Nodes。添加(新树节点(customer2.CustomerName))
但VBA动态帮助显示了用逗号分隔的参数。有什么见解吗<谢谢-<br>jb

本帖以下内容被隐藏保护;需要你回复后,才能看到!

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

使用道具 举报

55

主题

197

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
416
发表于 2006-6-23 13:11:26 | 显示全部楼层
试着去掉括号,这不是lisp<pre>
  1. Dim layerfilters As AcadDictionary
  2. Set layerfilters = ThisDrawing.Layers.GetExtensionDictionary.Item("ACAD_LAYERFILTERS")
  3. For Each entry In layerfilters
  4. TreeView1.Nodes.Add new treenode, entry.name, entry.name, , ,
  5. Next

我很久没有做树视图了,也没有看这个,只是注意到了。括号的规则是,即使intellisense显示它们,也在等号的右边,是,否则为否。
因此,设置SomeThing=TreeView1.Nodes。添加(新treenode、entry.name、entry.name、、)

树视图1.Nodes。添加新的treenode,条目。名称,条目。名称,
不是
树视图1.Nodes。添加(新树节点,entry.name,entry.name,,)
hi-tee-hoe
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2006-6-23 13:19:17 | 显示全部楼层
谢谢Bob -进一步挖掘,我发现了这一点,但仍然不起作用:
  1. Dim layerfilters As AcadDictionary
  2. Set layerfilters = ThisDrawing.Layers.GetExtensionDictionary.Item("ACAD_LAYERFILTERS")
  3. Set nod0 = TreeView1.Nodes.Add(,,"root","All Layers",,)
  4. For Each entry In layerfilters
  5. Set nodekey = entry.Name
  6. Set nodetext = entry.Name
  7. TreeView1.Nodes.Add ,,nodekey,nodetext,,
  8. Next

回复

使用道具 举报

55

主题

197

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
416
发表于 2006-6-23 13:28:17 | 显示全部楼层
试试这个...
另外,您正在尝试使用哪个版本的TreeView控件?
  1. Dim layerfilters As AcadDictionary
  2. On Error GoTo NoFilters
  3. Set layerfilters = ThisDrawing.layers.GetExtensionDictionary.Item("ACAD_LAYERFILTERS")
  4. NoFilters:
  5. If layerfilters Is Nothing = False Then
  6. With TreeView1
  7.   For Each Entry In layerfilters
  8.    .Nodes.Add , , Entry.Name, Entry.Name
  9.   Next
  10. End With
  11. End If

回复

使用道具 举报

55

主题

197

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
416
发表于 2006-6-23 13:51:31 | 显示全部楼层
Keith-做到了!谢谢。
这将帮助我完成树视图:接下来我想将适当的层作为子层放在过滤节点下。我会让每个人都保持最新状态!!
再次感谢Keith和Bob-这个论坛很棒。
jb
周末愉快!
回复

使用道具 举报

55

主题

197

帖子

8

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
416
发表于 2006-6-23 13:52:58 | 显示全部楼层
它只和提出的问题一样好。
什么的
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-5 23:25 , Processed in 1.158674 second(s), 64 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表