以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]单击目录树控件的时候，专家来一下啊！！！！！！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2657)
--  作者：hlxz
--  发布时间：2009/5/1 16:16:00
--  [求助]单击目录树控件的时候，专家来一下啊！！！！！！
我想单击目录树控件的时候 当前的根节点的值显示在 label1 上，如果选择子节点 把当前的子节点的值显示在label2 上
忙乎了 一整天 没有搞定
，求助各位大侠
Dim tr As WinForm.TreeView
forms("工程信息").controls("label1").caption =""
forms("工程信息").controls("label2").caption =""

tr = Forms("工程信息").Controls("TreeView1")
  forms("工程信息").controls("label1").caption =tr.Nodes(0).text
 forms("工程信息").controls("label2").caption =tr.Nodes(1).text
谢谢
[此贴子已经被作者于2009-5-1 19:31:32编辑过]
--  作者：hlxz
--  发布时间：2009/5/2 13:06:00
--  

等了2天 没人解决
自己揣摩出来了
给自己回复一下：帮助后来人
本示例为 treeview 控件点击 显示父节名 和子节名 在文本框
注意点：1.文本框属性 readonly 设置为false  就是可以编辑
            2.只能更改 value 属性 ，不能改变 txet 属性

源代码：在窗口的 nodemouseclick 单击节点后执行的事件下：

Dim tr As WinForm.TreeView

  forms("工程信息").controls("TextBox1").value =""
  forms("工程信息").controls("TextBox2").value =""
   tr = Forms("工程信息").Controls("TreeView1")

  forms("工程信息").controls("TextBox2").value =E.Node.text
  forms("工程信息").controls("TextBox1").value =E.Node.PARENTNODE.TEXT


实例：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小爪-1狐表.rar
--  作者：yangming
--  发布时间：2009/5/2 13:17:00
--  
好啊!