共3 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]单击目录树控件的时候，专家来一下啊！！！！！！

1楼

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编辑过]

2楼

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

3楼

yangming 发表于：2009/5/2 13:17:00

好啊!

共3 条记录, 每页显示 10 条, 页签: [1]