Office中国论坛/Access中国论坛

标题: ctExplorer控件的trAddPictureNode方法的使用说明(Dbi-Tech) [打印本页]
作者: admin    时间: 2015-1-13 10:45
标题: ctExplorer控件的trAddPictureNode方法的使用说明(Dbi-Tech)
dbi-tech公司出的控件系列在Access的兼容性非常好。我们从99年开始一直使用这套控件。这套控件里面其实最好用最耀眼的就是ctExplorer控件，它包括了ctListbar ctTree ctHtml ctListview等多个控件的组合，且可以实现面板拖位，每个面板显示和隐藏及每个面板可绑定其它控件。功能非常强大
我们以前的通用开发平台就是使用这个控件来实现的（http://www.office-cn.net/thread-60482-1-1.html）。
但这个控件中文帮助非常少。很多网友对这个控件不太熟悉。

这次主要讲一下它的树控件添加图片节点的方法

trAddPictureNode
1. 它主要有5个参数：分别是 "标题", "位置", "级别", "图片ID", "节点展开图片", "节点选中图片"

  位置：主要是决定这个节点的位置，默认为0，在最后添加
  级别：决定在树节点是处在第一级，第二级，还是第三级等
  图片ID：节点正常显示的图片。即在ctExplorer控件里的image集合中添加的图片的ID （与微软treeview树控件mscomctl.ocx不太相同的，微软的树控件需要imagelist配合，ctExplorer本身就集成 了imagelist控件功能
  节点展开的图片ID：节点展开后的图片（图标）
  节点选中的图片ID：节点选中后的图片（图标）

2. 详细的使用方法是：
ctExplorer1.trAddPictureNode "标题", "位置", "级别", "图片ID", "节点展开的图片", "节点选中的图片"

3. ctExplorer的其它方法也可以参考上面的说明
    如  trAddFontNode
          trAddNode
          trAddPictureFontNode
          trAddPictureFontNode

4. 以下代码是我们Access ERP系统里使用的ctExplorer代码，大家可用来参考

  2. '分为两级,第二级全部为 基础数据 日常事务 统计查询 决策分析
  3. intIndex = ctExplorer1.trAddPictureNode("天鸣Access ERP", 0, 1, 5, 0, 0)
  4. ctExplorer1.trNodeHeaderImage(intIndex) = True
  5. ctExplorer1.trNodeCargo(intIndex) = "0"
  6. ctExplorer1.trNodeHeader(intIndex) = True
  7. ctExplorer1.trNodeExpanded(intIndex) = True
  8. intIndex = ctExplorer1.trAddPictureNode("采购管理系统", 0, 2, 10, 0, 0)
  9. ctExplorer1.trNodeCargo(intIndex) = "1"
  10. 'ctExplorer1.trNodeExpanded(intIndex) = True
  11. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  12. ctExplorer1.trNodeCargo(intIndex) = "11"
  13. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  14. ctExplorer1.trNodeCargo(intIndex) = "12"
  15. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  16. ctExplorer1.trNodeCargo(intIndex) = "13"
  17. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  18. ctExplorer1.trNodeCargo(intIndex) = "14"

  20. intIndex = ctExplorer1.trAddPictureNode("销售管理系统", 0, 2, 10, 0, 0)
  21. ctExplorer1.trNodeCargo(intIndex) = "2"
  22. 'ctExplorer1.trNodeExpanded(intIndex) = True
  23. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  24. ctExplorer1.trNodeCargo(intIndex) = "21"
  25. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  26. ctExplorer1.trNodeCargo(intIndex) = "22"
  27. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  28. ctExplorer1.trNodeCargo(intIndex) = "23"
  29. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  30. ctExplorer1.trNodeCargo(intIndex) = "24"

  32. intIndex = ctExplorer1.trAddPictureNode("仓库管理系统", 0, 2, 10, 0, 0)
  33. ctExplorer1.trNodeCargo(intIndex) = "3"
  34. 'ctExplorer1.trNodeExpanded(intIndex) = True
  35. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  36. ctExplorer1.trNodeCargo(intIndex) = "31"
  37. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  38. ctExplorer1.trNodeCargo(intIndex) = "32"
  39. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  40. ctExplorer1.trNodeCargo(intIndex) = "33"
  41. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  42. ctExplorer1.trNodeCargo(intIndex) = "34"

  44. intIndex = ctExplorer1.trAddPictureNode("应收管理系统", 0, 2, 10, 0, 0)
  45. ctExplorer1.trNodeCargo(intIndex) = "4"
  46. 'ctExplorer1.trNodeExpanded(intIndex) = True
  47. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  48. ctExplorer1.trNodeCargo(intIndex) = "41"
  49. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  50. ctExplorer1.trNodeCargo(intIndex) = "42"
  51. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  52. ctExplorer1.trNodeCargo(intIndex) = "43"
  53. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  54. ctExplorer1.trNodeCargo(intIndex) = "44"


  57. intIndex = ctExplorer1.trAddPictureNode("应付管理系统", 0, 2, 10, 0, 0)
  58. ctExplorer1.trNodeCargo(intIndex) = "5"
  59. 'ctExplorer1.trNodeExpanded(intIndex) = True
  60. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  61. ctExplorer1.trNodeCargo(intIndex) = "51"
  62. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  63. ctExplorer1.trNodeCargo(intIndex) = "52"
  64. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  65. ctExplorer1.trNodeCargo(intIndex) = "53"
  66. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  67. ctExplorer1.trNodeCargo(intIndex) = "54"
复制代码

作者: admin    时间: 2015-1-13 10:46


  3. intIndex = ctExplorer1.trAddPictureNode("质检管理系统", 0, 2, 10, 0, 0)
  4. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  5. ctExplorer1.trNodeCargo(intIndex) = "D"
  6. 'ctExplorer1.trNodeExpanded(intIndex) = True
  7. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  8. ctExplorer1.trNodeCargo(intIndex) = "D1"
  9. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  10. ctExplorer1.trNodeCargo(intIndex) = "D2"
  11. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  12. ctExplorer1.trNodeCargo(intIndex) = "D3"
  13. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  14. ctExplorer1.trNodeCargo(intIndex) = "D4"

  16. intIndex = ctExplorer1.trAddPictureNode("设备管理系统", 0, 2, 10, 0, 0)
  17. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  18. ctExplorer1.trNodeCargo(intIndex) = "E"
  19. 'ctExplorer1.trNodeExpanded(intIndex) = True
  20. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  21. ctExplorer1.trNodeCargo(intIndex) = "E1"
  22. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  23. ctExplorer1.trNodeCargo(intIndex) = "E2"
  24. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  25. ctExplorer1.trNodeCargo(intIndex) = "E3"
  26. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  27. ctExplorer1.trNodeCargo(intIndex) = "E4"




  32. intIndex = ctExplorer1.trAddPictureNode("工模具管理", 0, 2, 10, 0, 0)
  33. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  34. ctExplorer1.trNodeCargo(intIndex) = "F"
  35. 'ctExplorer1.trNodeExpanded(intIndex) = True
  36. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  37. ctExplorer1.trNodeCargo(intIndex) = "F1"
  38. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  39. ctExplorer1.trNodeCargo(intIndex) = "F2"
  40. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  41. ctExplorer1.trNodeCargo(intIndex) = "F3"
  42. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  43. ctExplorer1.trNodeCargo(intIndex) = "F4"


  46. intIndex = ctExplorer1.trAddPictureNode("实验管理", 0, 2, 10, 0, 0)
  47. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  48. ctExplorer1.trNodeCargo(intIndex) = "G"
  49. 'ctExplorer1.trNodeExpanded(intIndex) = True
  50. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  51. ctExplorer1.trNodeCargo(intIndex) = "G1"
  52. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  53. ctExplorer1.trNodeCargo(intIndex) = "G2"
  54. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  55. ctExplorer1.trNodeCargo(intIndex) = "G3"
  56. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  57. ctExplorer1.trNodeCargo(intIndex) = "G4"




  62. intIndex = ctExplorer1.trAddPictureNode("售后服务", 0, 2, 10, 0, 0)
  63. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  64. ctExplorer1.trNodeCargo(intIndex) = "H"
  65. 'ctExplorer1.trNodeExpanded(intIndex) = True
  66. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  67. ctExplorer1.trNodeCargo(intIndex) = "H1"
  68. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  69. ctExplorer1.trNodeCargo(intIndex) = "H2"
  70. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  71. ctExplorer1.trNodeCargo(intIndex) = "H3"
  72. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  73. ctExplorer1.trNodeCargo(intIndex) = "H4"


  76. intIndex = ctExplorer1.trAddPictureNode("报关", 0, 2, 10, 0, 0)
  77. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  78. ctExplorer1.trNodeCargo(intIndex) = "I"
  79. 'ctExplorer1.trNodeExpanded(intIndex) = True
  80. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  81. ctExplorer1.trNodeCargo(intIndex) = "I1"
  82. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  83. ctExplorer1.trNodeCargo(intIndex) = "I2"
  84. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  85. ctExplorer1.trNodeCargo(intIndex) = "I3"
  86. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  87. ctExplorer1.trNodeCargo(intIndex) = "I4"

  89. intIndex = ctExplorer1.trAddPictureNode("领导查询", 0, 2, 10, 0, 0)
  90. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  91. ctExplorer1.trNodeCargo(intIndex) = "J"
  92. 'ctExplorer1.trNodeExpanded(intIndex) = True
  93. intIndex = ctExplorer1.trAddPictureNode("领导查询", 0, 3, 3, 0, 0)
  94. ctExplorer1.trNodeCargo(intIndex) = "J1"



  98. intIndex = ctExplorer1.trAddPictureNode("文档与ISO9000管理", 0, 2, 10, 0, 0)
  99. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  100. ctExplorer1.trNodeCargo(intIndex) = "K"
  101. 'ctExplorer1.trNodeExpanded(intIndex) = True
  102. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  103. ctExplorer1.trNodeCargo(intIndex) = "K1"
  104. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  105. ctExplorer1.trNodeCargo(intIndex) = "K2"
  106. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  107. ctExplorer1.trNodeCargo(intIndex) = "K3"
  108. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  109. ctExplorer1.trNodeCargo(intIndex) = "K4"

  111. intIndex = ctExplorer1.trAddPictureNode("人力资源管理系统", 0, 2, 10, 0, 0)
  112. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  113. ctExplorer1.trNodeCargo(intIndex) = "L"
  114. 'ctExplorer1.trNodeExpanded(intIndex) = True
  115. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  116. ctExplorer1.trNodeCargo(intIndex) = "L1"
  117. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  118. ctExplorer1.trNodeCargo(intIndex) = "L2"
  119. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  120. ctExplorer1.trNodeCargo(intIndex) = "L3"
  121. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  122. ctExplorer1.trNodeCargo(intIndex) = "L4"

  124. intIndex = ctExplorer1.trAddPictureNode("考勤管理系统", 0, 2, 10, 0, 0)
  125. ctExplorer1.trNodeForeColor(intIndex) = RGB(200, 150, 80)
  126. ctExplorer1.trNodeCargo(intIndex) = "M"
  127. 'ctExplorer1.trNodeExpanded(intIndex) = True
  128. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  129. ctExplorer1.trNodeCargo(intIndex) = "M1"
  130. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  131. ctExplorer1.trNodeCargo(intIndex) = "M2"
  132. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  133. ctExplorer1.trNodeCargo(intIndex) = "M3"
  134. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  135. ctExplorer1.trNodeCargo(intIndex) = "M4"

  137. intIndex = ctExplorer1.trAddPictureNode("工资管理系统", 0, 2, 10, 0, 0)
  138. ctExplorer1.trNodeForeColor(intIndex) = RGB(155, 0, 155)
  139. ctExplorer1.trNodeCargo(intIndex) = "N"
  140. 'ctExplorer1.trNodeExpanded(intIndex) = True
  141. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  142. ctExplorer1.trNodeCargo(intIndex) = "N1"
  143. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  144. ctExplorer1.trNodeCargo(intIndex) = "N2"
  145. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  146. ctExplorer1.trNodeCargo(intIndex) = "N3"
  147. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  148. ctExplorer1.trNodeCargo(intIndex) = "N4"

  150. intIndex = ctExplorer1.trAddPictureNode("固定资产", 0, 2, 10, 0, 0)
  151. ctExplorer1.trNodeForeColor(intIndex) = RGB(155, 0, 155)
  152. ctExplorer1.trNodeCargo(intIndex) = "O"
  153. 'ctExplorer1.trNodeExpanded(intIndex) = True
  154. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  155. ctExplorer1.trNodeCargo(intIndex) = "O1"
  156. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  157. ctExplorer1.trNodeCargo(intIndex) = "O2"
  158. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  159. ctExplorer1.trNodeCargo(intIndex) = "O3"
  160. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  161. ctExplorer1.trNodeCargo(intIndex) = "O4"

  163. intIndex = ctExplorer1.trAddPictureNode("总帐管理", 0, 2, 10, 0, 0)
  164. ctExplorer1.trNodeForeColor(intIndex) = RGB(155, 0, 155)
  165. ctExplorer1.trNodeCargo(intIndex) = "P"
  166. 'ctExplorer1.trNodeExpanded(intIndex) = True
  167. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  168. ctExplorer1.trNodeCargo(intIndex) = "P1"
  169. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  170. ctExplorer1.trNodeCargo(intIndex) = "P2"
  171. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  172. ctExplorer1.trNodeCargo(intIndex) = "P3"
  173. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  174. ctExplorer1.trNodeCargo(intIndex) = "P4"

  176. intIndex = ctExplorer1.trAddPictureNode("财务报表管理", 0, 2, 10, 0, 0)
  177. ctExplorer1.trNodeForeColor(intIndex) = RGB(155, 0, 155)
  178. ctExplorer1.trNodeCargo(intIndex) = "Q"
  179. 'ctExplorer1.trNodeExpanded(intIndex) = True
  180. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  181. ctExplorer1.trNodeCargo(intIndex) = "Q1"
  182. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  183. ctExplorer1.trNodeCargo(intIndex) = "Q2"
  184. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  185. ctExplorer1.trNodeCargo(intIndex) = "Q3"
  186. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  187. ctExplorer1.trNodeCargo(intIndex) = "Q4"
复制代码
作者: admin    时间: 2015-1-13 10:47

  2. intIndex = ctExplorer1.trAddPictureNode("出纳管理", 0, 2, 10, 0, 0)
  3. ctExplorer1.trNodeForeColor(intIndex) = RGB(155, 0, 155)
  4. ctExplorer1.trNodeCargo(intIndex) = "R"
  5. 'ctExplorer1.trNodeExpanded(intIndex) = True
  6. intIndex = ctExplorer1.trAddPictureNode("基础数据", 0, 3, 3, 0, 0)
  7. ctExplorer1.trNodeCargo(intIndex) = "R1"
  8. intIndex = ctExplorer1.trAddPictureNode("日常事务", 0, 3, 8, 0, 0)
  9. ctExplorer1.trNodeCargo(intIndex) = "R2"
  10. intIndex = ctExplorer1.trAddPictureNode("统计查询", 0, 3, 9, 0, 0)
  11. ctExplorer1.trNodeCargo(intIndex) = "R3"
  12. intIndex = ctExplorer1.trAddPictureNode("决策分析", 0, 3, 10, 0, 0)
  13. ctExplorer1.trNodeCargo(intIndex) = "R4"


  16. intIndex = ctExplorer1.trAddPictureNode("数据挖掘", 0, 2, 10, 0, 0)
  17. ctExplorer1.trNodeForeColor(intIndex) = RGB(110, 180, 20)
  18. ctExplorer1.trNodeCargo(intIndex) = "S"
  19. 'ctExplorer1.trNodeExpanded(intIndex) = True
  20. intIndex = ctExplorer1.trAddPictureNode("库存决策分析", 0, 3, 3, 0, 0)
  21. ctExplorer1.trNodeCargo(intIndex) = "S1"
  22. intIndex = ctExplorer1.trAddPictureNode("销售决策分析", 0, 3, 8, 0, 0)
  23. ctExplorer1.trNodeCargo(intIndex) = "S2"
  24. intIndex = ctExplorer1.trAddPictureNode("采购决策分析", 0, 3, 9, 0, 0)
  25. ctExplorer1.trNodeCargo(intIndex) = "S3"
  26. intIndex = ctExplorer1.trAddPictureNode("财务决策分析", 0, 3, 10, 0, 0)
  27. ctExplorer1.trNodeCargo(intIndex) = "S4"
  28. intIndex = ctExplorer1.trAddPictureNode("生产决策分析", 0, 3, 10, 0, 0)
  29. ctExplorer1.trNodeCargo(intIndex) = "S5"
  30. intIndex = ctExplorer1.trAddPictureNode("人员结构分析", 0, 3, 10, 0, 0)
  31. ctExplorer1.trNodeCargo(intIndex) = "S6"
  32. intIndex = ctExplorer1.trAddPictureNode("质量分析", 0, 3, 10, 0, 0)
  33. ctExplorer1.trNodeCargo(intIndex) = "S7"


  36. intIndex = ctExplorer1.trAddPictureNode("准时作业(JIT)", 0, 2, 10, 0, 0)
  37. ctExplorer1.trNodeForeColor(intIndex) = RGB(110, 180, 20)
  38. ctExplorer1.trNodeCargo(intIndex) = "T"
  39. 'ctExplorer1.trNodeExpanded(intIndex) = True
  40. intIndex = ctExplorer1.trAddPictureNode("计划编制", 0, 3, 3, 0, 0)
  41. ctExplorer1.trNodeCargo(intIndex) = "T1"
  42. intIndex = ctExplorer1.trAddPictureNode("领料送料管理", 0, 3, 8, 0, 0)
  43. ctExplorer1.trNodeCargo(intIndex) = "T2"
  44. intIndex = ctExplorer1.trAddPictureNode("生产统计", 0, 3, 9, 0, 0)
  45. ctExplorer1.trNodeCargo(intIndex) = "T3"
  46. intIndex = ctExplorer1.trAddPictureNode("物料在制", 0, 3, 10, 0, 0)
  47. ctExplorer1.trNodeCargo(intIndex) = "T4"
  48. intIndex = ctExplorer1.trAddPictureNode("看板管理", 0, 3, 10, 0, 0)
  49. ctExplorer1.trNodeCargo(intIndex) = "T5"


  52. intIndex = ctExplorer1.trAddPictureNode("ERP优化器(ERP引擎)", 0, 2, 10, 0, 0)
  53. ctExplorer1.trNodeForeColor(intIndex) = RGB(110, 180, 20)
  54. ctExplorer1.trNodeCargo(intIndex) = "U"
  55. 'ctExplorer1.trNodeExpanded(intIndex) = True
  56. intIndex = ctExplorer1.trAddPictureNode("物料资源优化", 0, 3, 3, 0, 0)
  57. ctExplorer1.trNodeCargo(intIndex) = "U1"
  58. intIndex = ctExplorer1.trAddPictureNode("能力资源优化", 0, 3, 8, 0, 0)
  59. ctExplorer1.trNodeCargo(intIndex) = "U2"
  60. intIndex = ctExplorer1.trAddPictureNode("资金资源优化", 0, 3, 9, 0, 0)
  61. ctExplorer1.trNodeCargo(intIndex) = "U3"
  62. intIndex = ctExplorer1.trAddPictureNode("人力资源优化", 0, 3, 10, 0, 0)
  63. ctExplorer1.trNodeCargo(intIndex) = "U4"
  64. intIndex = ctExplorer1.trAddPictureNode("资源全局优化", 0, 3, 10, 0, 0)
  65. ctExplorer1.trNodeCargo(intIndex) = "U5"

  67. intIndex = ctExplorer1.trAddPictureNode("供应链管理(SCM)", 0, 2, 10, 0, 0)
  68. ctExplorer1.trNodeForeColor(intIndex) = RGB(110, 180, 20)
  69. ctExplorer1.trNodeCargo(intIndex) = "V"
  70. 'ctExplorer1.trNodeExpanded(intIndex) = True
  71. intIndex = ctExplorer1.trAddPictureNode("供应方", 0, 3, 3, 0, 0)
  72. ctExplorer1.trNodeCargo(intIndex) = "V1"
  73. intIndex = ctExplorer1.trAddPictureNode("生产商", 0, 3, 8, 0, 0)
  74. ctExplorer1.trNodeCargo(intIndex) = "V2"
  75. intIndex = ctExplorer1.trAddPictureNode("配货中心", 0, 3, 9, 0, 0)
  76. ctExplorer1.trNodeCargo(intIndex) = "V3"
  77. intIndex = ctExplorer1.trAddPictureNode("零售商", 0, 3, 10, 0, 0)
  78. ctExplorer1.trNodeCargo(intIndex) = "V4"
  79. intIndex = ctExplorer1.trAddPictureNode("消费者", 0, 3, 10, 0, 0)
  80. ctExplorer1.trNodeCargo(intIndex) = "V5"


  83. intIndex = ctExplorer1.trAddPictureNode("软件接口", 0, 2, 10, 0, 0)
  84. ctExplorer1.trNodeCargo(intIndex) = "X"
  85. 'ctExplorer1.trNodeExpanded(intIndex) = True
  86. intIndex = ctExplorer1.trAddPictureNode("软件接口", 0, 3, 3, 0, 0)
  87. ctExplorer1.trNodeCargo(intIndex) = "X1"


  90. intIndex = ctExplorer1.trAddPictureNode("消息中心", 0, 2, 10, 0, 0)
  91. ctExplorer1.trNodeCargo(intIndex) = "Y"
  92. 'ctExplorer1.trNodeExpanded(intIndex) = True
  93. intIndex = ctExplorer1.trAddPictureNode("消息管理", 0, 3, 3, 0, 0)
  94. ctExplorer1.trNodeCargo(intIndex) = "Y1"


  97. intIndex = ctExplorer1.trAddPictureNode("系统管理", 0, 2, 10, 0, 0)
  98. ctExplorer1.trNodeCargo(intIndex) = "Z"
  99. 'ctExplorer1.trNodeExpanded(intIndex) = True
  100. intIndex = ctExplorer1.trAddPictureNode("系统管理", 0, 3, 3, 0, 0)
  101. ctExplorer1.trNodeCargo(intIndex) = "Z1"
复制代码
作者: leonshi    时间: 2015-1-13 10:49
谢谢分享
作者: todaynew    时间: 2015-1-13 10:55
似乎可以循环设置吧？
作者: admin    时间: 2015-1-13 10:58
todaynew 发表于 2015-1-13 10:55
似乎可以循环设置吧？

哈哈，正是的，这代码 是2000年写的。那时没去优化，且是直接写在代码中。
后来给客户做，是直接从数据表读取这些信息了
作者: roych    时间: 2015-1-13 12:00
相当于imageList+ListView+Treeview的样子，做导航效果不错。
只是分发给用户使用时，应该需要在客户端注册控件。——这个问题大家怎么解决的呢？
作者: tmtony    时间: 2015-1-13 12:41
免注册使用控件，可使用directcom
http://www.office-cn.net/thread-117593-1-1.html
作者: leonshi    时间: 2015-1-13 13:27
tmtony 发表于 2015-1-13 12:41
免注册使用控件，可使用directcom
http://www.office-cn.net/thread-117593-1-1.html

你这个免注册控件好像只是针对Dll吧，不能ocx吧
现在我采取的是用打包的方法
作者: 风中漫步    时间: 2015-1-13 17:37
不错
作者: lacrimosa    时间: 2016-6-13 14:32
虚席



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3