- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]颜色查询管理工具 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152372)
-- 发布时间：2020/7/10 14:11:00
-- [求助]颜色查询管理工具
帮助里的颜色与最终显示效果，差别很大。
所以就想做个小工具，平时设置颜色时查看使用。
如有下想法
1.建一个表格，放置帮助附件中的颜色信息。
2.依据这个表格中的颜色名称，加入自定义样式。
3.依据表格中颜色名称，显示单元格的背景颜色。
A:这种思路可行吗：
B:在drawcell 中设置如下代码不正确。
Dim dt As DataTable = DataTables("表A")
Dim clr As Color
For Each dr As DataRow In dt.DataRows
If dr.Isnull("名称") = False Then
clr = dr("名称")
dt.AddUserStyle(dr("名称"), clr, Color.black) \'增加一个,自定义样式
End If
Next
表格:
此主题相关图片如下：颜色管理.png
-- 发布时间：2020/7/10 14:21:00
--
dt.AddUserStyle(clr, Color.FromName(clr), Color.black)
-- 发布时间：2020/7/10 21:07:00
--
效果已经实现，我想发布后分享出来。
还想改进下。
就是发布后，这个工具显示窗口，怎么样固定大小。现在是默认全屏的。
改进：
1.固定窗口大小。
2.能否做成控件，在其他软件中直接调用。
3.不显示默认的系统菜单。
[此贴子已经被作者于2020/7/10 21:10:13编辑过]
-- 发布时间：2020/7/11 8:56:00
--
1、如果是自己设计的窗口，默认就是固定窗口大小，如果是指主界面，到项目属性里设置
2、不能
-- 发布时间：2020/7/11 9:44:00
--
下面的代码，全部都隐藏了。。系统菜单调不出来了，再想修改这个项目也修改不了了。
按CTRL 回来了。这样的代码放在afteropenpject里应该是对的吧。
RibbonTabs("Table").Visible = False
RibbonTabs("Project").Visible = False
RibbonTabs("Common").Visible = False
RibbonTabs("Print").Visible = False
RibbonTabs("Other").Visible = False
RibbonTabs.HideTabHeaderRow = True
[此贴子已经被作者于2020/7/11 9:46:31编辑过]
-- 发布时间：2020/7/11 9:59:00
--
判断一下，如果是开发者登录就不要隐藏
-- 发布时间：2020/7/11 11:59:00
--
好办法。
再问：
如果要清除这些颜色，是要重新设置相关颜色样式吗？还是说有直接的清除方法。
1.单元格颜色
2.当前行的背景、字体颜色
3.表空白欧元颜色
4.字段标题背景颜色、字体颜色
有没有办法让这些颜色一键清除的。
-- 发布时间：2020/7/11 12:46:00
--
这些颜色，能否一键清楚。
颜色显示是通过自定义样式实现的。
此主题相关图片如下：颜色查询.png
-- 发布时间：2020/7/11 14:07:00
--
没有办法清除。如果是drawcell事件的，暂停绘制即可，比如
if vars("draw") = true
绘制的代码
endif
-- 发布时间：2020/7/11 15:00:00
--
再问，这个怎么去掉。难道一定要做自定义菜单才能去掉吗？
Foxtable-颜色管理.foxdb