- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]根据页签内容找到并展开、定位到该节点 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171573)
-- 发布时间：2021/9/3 15:36:00
-- [求助]根据页签内容找到并展开、定位到该节点
老师，在请教一下，我切换不同的页签，怎么定位到对应的节点呢？
定位节点这儿不知道该怎么写
Dim pag As WinForm.TabControl = Forms("主窗口").Controls("tabControl1")
Dim st As String = pag.SelectedPage.Name
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
If nd.Text.IndexOf(st) >= 0 Then
\'msgbox("找到:" & st)
nd.ParentNode.Expand \' 展开该节点的父节点
nd......... \'不知道怎么写定位到找到的节点了
End If
Next
-- 发布时间：2021/9/3 15:39:00
--
http://www.foxtable.com/webhelp/topics/0884.htm、http://www.foxtable.com/webhelp/topics/0914.htm
-- 发布时间：2021/9/3 16:14:00
--
实现了，代码分享出来：
Dim pag As WinForm.TabControl = e.Form.Controls("tabControl1")
Dim st As String = pag.SelectedPage.Name
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In tr.AllNodes
If nd.Text.IndexOf(st) >= 0 Then
tr.SelectedNode = tr.Nodes(nd.ParentNode.Index).Nodes(nd.Index) \'不知道怎么写定位到找到的节点了
tr.SelectedNode.ParentNode.Ic
End If
Next
-- 发布时间：2021/9/3 17:49:00
--
在请教一下老师，我点击二级不同节点后，其余节点字体颜色改为黑色应该怎么写，代码发出来会自动把后面的截掉，所以只能发代码截图了？
此主题相关图片如下：qq截图20210903174702.jpg
-- 发布时间：2021/9/4 8:51:00
--
遍历其它同级节点（也就是当前节点的父节点的所有子节点），设置其颜色
-- 发布时间：2021/9/6 16:27:00
--
请老师看看，
AfterSelectNode事件这样写也无效
此主题相关图片如下：222.jpg
For Each n As WinForm.TreeNode In e.node.ParentNode.Nodes
If n.Text = e.node.Text Then
n.ForeColor = Color.Black
e.Sender.SelectedNode.ForeColor= Color.Red
End If
Next
-- 发布时间：2021/9/6 16:32:00
--
去掉if判断，当前节点赋值放到循环之后
-- 发布时间：2021/9/6 16:39:00
--
没效果，好像赋值了不起作用，切换页签定位了也没作用
以下内容是专门发给有点蓝浏览
老师，我重新上传了完整文件
-- 发布时间：2021/9/6 17:09:00
--
代码没有问题，主要是当前选中的节点，有自己特殊的样式，不受代码的影响。当前选中的节点要自己绘制，比如：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=44083&skin=0
-- 发布时间：2021/9/6 17:27:00
--
示例里面提示没有属性，底层定义没对呢
此主题相关图片如下：qq截图20210906172622.jpg
Dim tr As CustomTreeView = e.Form.Controls("TreeView1").BaseControl
tr.HideSelection = False
tr.DrawMode = System.Windows.Forms.TreeViewDrawMode.OwnerDrawText
AddHandler tr.DrawNode, AddressOf TreeView_DrawNode