Foxtable(狐表)用户栏目专家坐堂 → [求助]下拉窗口节点选择按钮


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

主题:[求助]下拉窗口节点选择按钮

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/7 9:48:00 [显示全部帖子]

1、你按钮显示的路径要动态获取?根据什么获取,逻辑是什么?

 

2、参考代码

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim path As String = "中国/广东/广州"
Dim ary() As String = path.split("/")
For i As Integer = 0 To ary.length-1
    For Each nd As WinForm.TreeNode In trv.AllNodes
        If nd.Level = i Then
            If nd.name.contains(ary(i)) Then
                nd.Checked = True
                trv.SelectedNode = nd
            End If
        End If
    Next
Next


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/7 10:35:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:f.foxdb


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/8 12:29:00 [显示全部帖子]

AfterCheckNode事件

 

'''...
dim s1 as string = ""
dim s2 as string = ""
for each nd as WinForm.TreeNode in e.Sender.AllNodes
    if nd.Checked then
        s1 &= nd.FullName & ","
        s2 &= nd.Name & ","
    end if
next
e.Form.controls("button1").text = "全路径:" & s1.trim(",")
e.Form.controls("button2").text = "末路径:" & s2.trim(",")


 回到顶部