Foxtable(狐表)用户栏目专家坐堂 → 关于目录树文件


  共有2293人关注过本帖树形打印复制链接

主题:关于目录树文件

帅哥哟,离线,有人找我吗?
133198609
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:373 积分:3107 威望:0 精华:0 注册:2015/1/30 9:47:00
关于目录树文件  发帖心情 Post By:2015/5/20 22:45:00 [只看该作者]

行政区域目录树文件
假如:  
》北京市
         北京市
         昌平区
         照样区
》福建省
         福州市
         三明市

现在是情况,我想选择北京市昌平区,然后我点下拉的时候,只有点北京市前面的小三角形才会打开,而点北京市的时候窗口就不见了。
我希望达到的效果是,打开目录树,然后单机北京市,就打开北京市下面的区,再次单机北京市,又收取下面的区县。可以实现么?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/20 22:49:00 [只看该作者]

 目录树文件是无法控制的,除非自己做一个下拉窗口

 

 http://www.foxtable.com/help/topics/2350.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
blsu33
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2928 积分:20184 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/5/20 22:53:00 [只看该作者]

NodeMouseClick

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing then

if nd.ExpandAll then

nd.CollapseAll

else

nd.ExpandAll
End If

End If

 

 

[此贴子已经被作者于2015/5/20 22:52:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
133198609
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:373 积分:3107 威望:0 精华:0 注册:2015/1/30 9:47:00
回复:(blsu33)NodeMouseClick Dim tr As ...  发帖心情 Post By:2015/5/21 0:44:00 [只看该作者]

不好意思,新手,这段代码放哪里?

 回到顶部
帅哥哟,离线,有人找我吗?
133198609
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:373 积分:3107 威望:0 精华:0 注册:2015/1/30 9:47:00
回复:(大红袍) 目录树文件是无法控制的,除非...  发帖心情 Post By:2015/5/21 0:50:00 [只看该作者]

谢谢,我再研究研究

 回到顶部