以文本方式查看主题 - 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") If nd1.Checked=True Then |
-- 作者:有点蓝 -- 发布时间: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
是在目录树授权的代码下进行的 [此贴子已经被作者于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 -- 蓝老师,我已经按您给的代码做了,当时勾选是红色了,但是下次打开窗口,原来标注的颜色又全部变成黑色了, |