Foxtable(狐表)用户栏目专家坐堂 → [求助]根据页签内容找到并展开、定位到该节点


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

主题:[求助]根据页签内容找到并展开、定位到该节点

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


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/6 17:40:00 [只看该作者]

Dim tr As CustomTreeView = e.Form.Controls("TreeView1").BaseControl
改为
Dim tr As system.windows.forms.TreeView = e.Form.Controls("TreeView1").BaseControl

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


加好友 发短信
等级:狐精 帖子:3202 积分:21279 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/9/6 17:40:00 [只看该作者]

这样的对了

Dim tr As System.Windows.Forms.TreeView = e.Form.Controls("TreeView1").BaseControl


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


加好友 发短信
等级:狐精 帖子:3202 积分:21279 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/9/6 17:50:00 [只看该作者]

请老师看看,现在有两个问题,一是父节点红色失效,二是我调整了节点高度为30,这样好像节点高度无效了。

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210906174747.jpg
图片点击可在新窗口打开查看

以下内容是专门发给有点蓝浏览

[此贴子已经被作者于2021/9/6 17:50:37编辑过]

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


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/6 22:04:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树导航+页签.zip


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


加好友 发短信
等级:狐精 帖子:3202 积分:21279 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/9/7 8:29:00 [只看该作者]

老师,鼠标双击时的背景色能去掉吗?

[此贴子已经被作者于2021/9/7 8:41:15编辑过]

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


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/7 8:42:00 [只看该作者]

安装最新版:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=171144

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


加好友 发短信
等级:狐精 帖子:3202 积分:21279 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/9/8 12:58:00 [只看该作者]

老师,在请教一下,我想把页签也弄成按钮的样式,把背景色的宽度加大了,但是图标不显示了,应该是重绘底色把图标遮挡了,如果也通过内部函数来实现点击后换图标应该怎么写呢?一级节点换“图标三”,二级节点换“图标四”

        e.Graphics.FillRectangle(Brushes.LightPink, Rectangle.Inflate(e.Bounds, 100, 0))  '二级节点背景色,默认是2
        e.Graphics.DrawString(e.Node.Text, nodeFont, Brushes.Red, e.Bounds.Left + 2,e.Bounds.top + 8)  '字体色

        e.Graphics.DrawImage("图标四.png")   '测试这样不行

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210908125649.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/9/8 13:19:12编辑过]

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


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/8 13:43:00 [只看该作者]

试试:http://www.foxtable.com/webhelp/topics/1482.htm

e.Graphics.DrawImage(getImage("图标四.png"),e.Bounds.Left ,e.Bounds.top)

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


加好友 发短信
等级:狐精 帖子:3202 积分:21279 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/9/8 14:11:00 [只看该作者]

老师,有一个逻辑没理清楚,收缩后的一级节点,图标都为"图标一",应该在哪儿绘制?

    If (e.State And System.Windows.Forms.TreeNodeStates.Selected) <> 0 Then
        e.Graphics.FillRectangle(Brushes.SkyBlue, Rectangle.Inflate(e.Bounds, 100, 0))  '二级节点背景色
        e.Graphics.DrawString(e.Node.Text, nodeFont, Brushes.Red, e.Bounds.Left + 2,e.Bounds.top + 8)  '字体色
        e.Graphics.DrawImage(getImage("图标四.png"),e.Bounds.Left - 18,e.Bounds.top + 8 ,16,16)
    Else
        e.Graphics.DrawString(e.Node.Text, nodeFont, Brushes.Black, e.Bounds.Left + 2,e.Bounds.top + 8)  '字体色
        Dim nd  = sender.Selectednode
        e.Graphics.DrawImage(GetImage("图标二.png"),e.Bounds.Left - 18,e.Bounds.top + 8 ,16,16)
        If nd IsNot Nothing Then
            If nd.FullPath Like "*" & e.Node.text & "*" Then
                e.Graphics.FillRectangle(Brushes.DeepSkyBlue, Rectangle.Inflate(e.Bounds, 100, 0))  '一级节点背景色
                e.Graphics.DrawString(e.Node.Text, nodeFont, Brushes.Red, e.Bounds.Left + 2,e.Bounds.top + 8)  '字体色
                e.Graphics.DrawImage(GetImage("图标三.png"),e.Bounds.Left - 18,e.Bounds.top + 8 ,16,16)
            End If
        End If
    End If


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


加好友 发短信
等级:超级版主 帖子:110450 积分:562116 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/8 14:16:00 [只看该作者]

学会看微软官方帮助:https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.treenode?view=net-5.0#properties

判断节点如果是展开就绘制一个图片,否则绘制另外一个

 回到顶部
总数 22 上一页 1 2 3 下一页