当前位置：首页 → 问答吧 → 各位老师好！请帮助解决通过双击将TreeView1数据传递至另一个窗体中的文本框内

各位老师好！请帮助解决通过双击将TreeView1数据传递至另一个窗体中的文本框内

时间：2011-08-11

来源：互联网

各位老师好！
请问：是否可以通过双击TreeView1中的某一数据后，将该数据直接传递至另一个窗体中的文本框内。如果可行，则代码怎样写；如果不可以，那有什么其他的方法解决？
我在论坛中看到，可以将数据双击到工作表，也可以在同一窗体内进行数据的传递，但就是找不到在不同窗体内数据传递的代码。
TreeView好像是一个不太好搞的控件，在论坛内讨论这个控件的老师和朋友不是很多，其实个人认为：如果用好这个控件，将对xecel的操作会有很大的帮助
（详见附件）

附件

请教.rar(125.47 KB)

2011-8-11 02:21, 下载次数: 4

作者: 永远不是明天发布时间: 2011-08-11

复制内容到剪贴板

代码:

Private Sub TreeView1_DblClick()
TextBox1.text = TreeView1.SelectedItem.Text '双击放到文本框
[a1] = TreeView1.SelectedItem.Text '双击放到单元个
End Sub

也可参考我的帖子物料管理
http://club.excelhome.net/thread-749604-1-1.html

作者: 白云2011 发布时间: 2011-08-11

老师好，非常感谢您，辛苦了，深夜了，还能得到您的指点，真是非常荣幸！谢谢~~~~~~！！！我测试一下。

作者: 永远不是明天发布时间: 2011-08-11

老师：您好！好像测试不能通过，提示要求对象。

作者: 永远不是明天发布时间: 2011-08-11

Private Sub TreeView1_DblClick()
UserForm2.TextBox1.text = UserForm1.TreeView1.SelectedItem.Text '双击放到文本框
[a1] = UserForm1.TreeView1.SelectedItem.Text '双击放到单元个
End Sub

作者: 白云2011 发布时间: 2011-08-11

树控件4层应用与点击.rar (12.47 KB)

[ 本帖最后由白云2011 于 2011-8-11 02:52 编辑 ]

作者: 白云2011 发布时间: 2011-08-11

谢谢您！！！这个软件还有点问题，不能真实关闭UserForm1，请您再帮助看一下

作者: 永远不是明天发布时间: 2011-08-11

引用:

原帖由永远不是明天于 2011-8-11 02:50 发表
谢谢您！！！这个软件还有点问题，不能真实关闭UserForm1，请您再帮助看一下

Sub 按钮1_单击()
UserForm1.Show 0
End Sub
把这2个0去了
Sub 按钮2_单击()
UserForm2.Show O
End Sub

基本看了一下应该是这里的问题
Sub 按钮1_单击()
UserForm1.Show
End Sub

Sub 按钮2_单击()
UserForm2.Show
End Sub

[ 本帖最后由白云2011 于 2011-8-11 02:56 编辑 ]

作者: 白云2011 发布时间: 2011-08-11

不是您的代码，不好意思，谢谢您的指点！辛苦您了。

作者: 永远不是明天发布时间: 2011-08-11

衷心的感谢您~~~~~~~~~！！！

作者: 永远不是明天发布时间: 2011-08-11

我也只懂得简单的,你帮助他人
他人也会去帮助别人的
所以不必客气.