以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树复选框勾选颜色问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90616)

--  作者:douglas738888
--  发布时间:2016/9/18 15:36:00
--  目录树复选框勾选颜色问题

请教老师,目录树复选框勾选为TRUE 显示节点字体颜色为红色

下面代码怎样调整

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView15")
Dim nd1 As WinForm.TreeNode = trv.SelectedNode

If nd1.Checked=True Then
    trv.SelectedNode.backColor = Color.Red
End If


--  作者:有点蓝
--  发布时间:2016/9/18 15:40:00
--  
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView15")
Dim nd1 As WinForm.TreeNode = trv.SelectedNode
If nd1 IsNot Nothing AndAlso nd1.Checked=True Then
    nd1.ForeColor = Color.Red
End If

--  作者:douglas738888
--  发布时间:2016/9/18 16:54:00
--  

蓝老师,还有两个问题请教,

1.关闭窗口后,再打开窗口,原来标注的红色就变为原来的黑色了,如何在勾选为TRUE后,下次打开项目依然标注为红色;

2.父节点勾选为TRUE后显示红色了,如果在子节点取消勾选,原来的父节点标注过的还是红色,不会变为黑色,要在timetick进行设置吗?

 

我改了下代码,还是没有实现

Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView15")

Dim nd11 As WinForm.TreeNode = trv2.SelectedNode
If nd11 IsNot Nothing AndAlso nd11.Checked=True Then
    trv2.SelectedNode.foreColor = Color.Red
else
     trv2.SelectedNode.foreColor = Color.Black
End If

 

是在目录树授权的代码下进行的

[此贴子已经被作者于2016/9/18 17:04:21编辑过]

--  作者:blackzhu
--  发布时间:2016/9/18 17:19:00
--  
 下次打开需要做个记录才行


--  作者:douglas738888
--  发布时间:2016/9/18 17:25:00
--  
请教,怎样做记录
--  作者:blackzhu
--  发布时间:2016/9/18 17:27:00
--  
 用表或者保存设置
--  作者:有点蓝
--  发布时间:2016/9/18 17:27:00
--  
代码写到AfterCheckNode事件,

If e.Node.Checked Then
    e.Node.ForeColor = Color.Red
Else
    e.Node.ForeColor = Color.Black
    If e.Node.ParentNode IsNot Nothing Then e.Node.ParentNode.ForeColor = Color.Black
End If

--  作者:douglas738888
--  发布时间:2016/9/19 9:47:00
--  

还得请教蓝老师,如果用保存设置来保存目录树复选框勾选后标注的字体颜色,应该怎样写代码,我看了帮助一晚上也没有得到思路

 

我在保存按钮写入  

SaveConfigValue("Register", e.Form.Controls("Treeview2").Value)

 

在AFTERLOAD写入

e.Form.Controls("Treeview2").Value = GetConfigValue("Register")

 

好像不对,是否还要写函数,或者是AfterOpenProject写入代码

 

因为目录树授权在右表中人员较多,如果不标注颜色,很不容易辨析已勾选的人员,另外,是否还有其他方法能容易辨析标注,请老师再指导指导,谢谢!!!



--  作者:有点蓝
--  发布时间:2016/9/19 11:00:00
--  
没有必要保存,按7楼的用法。只要勾选上节点就可以了
--  作者:douglas738888
--  发布时间:2016/9/19 11:41:00
--  
蓝老师,我已经按您给的代码做了,当时勾选是红色了,但是下次打开窗口,原来标注的颜色又全部变成黑色了,