Foxtable(狐表)用户栏目专家坐堂 → [求助]颜色查询管理工具


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

主题:[求助]颜色查询管理工具

帅哥哟,离线,有人找我吗?
绿火柴
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:4464 威望:0 精华:0 注册:2014/3/4 21:20:00
[求助]颜色查询管理工具  发帖心情 Post By: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
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105958 积分:538865 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/10 14:21:00 [只看该作者]

dt.AddUserStyle(clrColor.FromName(clr), Color.black)

 回到顶部
帅哥哟,离线,有人找我吗?
绿火柴
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:4464 威望:0 精华:0 注册:2014/3/4 21:20:00
  发帖心情 Post By:2020/7/10 21:07:00 [只看该作者]

效果已经实现,我想发布后分享出来。
还想改进下。
就是发布后,这个工具显示窗口,怎么样固定大小。现在是默认全屏的。

改进:
1.固定窗口大小。
2.能否做成控件,在其他软件中直接调用。
3.不显示默认的系统菜单。
[此贴子已经被作者于2020/7/10 21:10:13编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105958 积分:538865 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/11 8:56:00 [只看该作者]

1、如果是自己设计的窗口,默认就是固定窗口大小,如果是指主界面,到项目属性里设置
2、不能

 回到顶部
帅哥哟,离线,有人找我吗?
绿火柴
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:4464 威望:0 精华:0 注册:2014/3/4 21:20:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105958 积分:538865 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/11 9:59:00 [只看该作者]

判断一下,如果是开发者登录就不要隐藏

 回到顶部
客人(218.75.*.*)
  7楼


  发帖心情 Post By:2020/7/11 11:59:00 [只看该作者]

好办法。
再问:
如果要清除这些颜色,是要重新设置相关颜色样式吗?还是说有直接的清除方法。
1.单元格颜色
2.当前行的背景、字体颜色
3.表空白欧元颜色
4.字段标题背景颜色、字体颜色
有没有办法让这些颜色一键清除的。

 回到顶部
帅哥哟,离线,有人找我吗?
绿火柴
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:480 积分:4464 威望:0 精华:0 注册:2014/3/4 21:20:00
  发帖心情 Post By:2020/7/11 12:46:00 [只看该作者]

这些颜色,能否一键清楚。
颜色显示是通过自定义样式实现的。


图片点击可在新窗口打开查看此主题相关图片如下:颜色查询.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105958 积分:538865 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/11 14:07:00 [只看该作者]

没有办法清除。如果是drawcell事件的,暂停绘制即可,比如

if vars("draw") = true
绘制的代码
endif

 回到顶部
客人(218.75.*.*)
  10楼


  发帖心情 Post By:2020/7/11 15:00:00 [只看该作者]

再问,这个怎么去掉。难道一定要做自定义菜单才能去掉吗?
Foxtable-颜色管理.foxdb

 回到顶部
总数 12 1 2 下一页