乐筑天下

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

TreeView控件

[复制链接]

55

主题

197

帖子

8

银币

后起之秀

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

铜币
416
发表于 2006-6-23 12:28:15 | 显示全部楼层 |阅读模式
好的,我'我已经开始对VBA控件进行编目,以替代ObjectDCL——你们看,我们lispers最终必须来到这里,谦恭地手里拿着帽子,寻求帮助 我知道你的第一反应赢了;当然,这是不恰当的,但任何帮助都将不胜感激&nbsp
有人在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。添加(新TreeNode(customer2.CustomerName))
但VBA动态帮助显示用逗号分隔的arg 有什么见解吗
谢谢
回复

使用道具 举报

55

主题

197

帖子

8

银币

后起之秀

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

铜币
416
发表于 2006-6-23 13:11:26 | 显示全部楼层
试着去掉括号,这不是't lisp
  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

I haven#039;很长一段时间没有看树,也没有#039;看这个,我注意到了 括号的规则是,即使intellisense显示它们,在等号的右边,是,否则是,否。因此它将是
设置SomeThing=TreeView1.Nodes。添加(新treenode、entry.name、entry.name、,)
或TreeView1.Nodes。添加新树节点,条目。名称,条目。名称,,
不是.TreeView1.Nodes。添加(新treenode,entry.name,entry.name,,)
hi-tee hoe
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2006-6-23 13:19:17 | 显示全部楼层
谢谢鲍勃-进一步挖掘,我抓住了,但它#039;仍不工作:
  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和Bob-这个论坛很棒&nbsp
祝你周末愉快!
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2006-6-23 13:52:58 | 显示全部楼层
It#039;只有被问到的问题才行
或者什么的
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

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

© 2020-2025 乐筑天下

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