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


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

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

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


加好友 发短信
等级:狐精 帖子:3069 积分:20526 威望: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


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


加好友 发短信
等级:狐精 帖子:3069 积分:20526 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2021/9/18 9:27:00 [显示全部帖子]

老师,重新绘制,目录树有点闪屏有没办法解决


 回到顶部
总数 13 上一页 1 2