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


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

主题：[求助]颜色查询管理工具
帅哥哟，离线，有人找我吗？
绿火柴
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：480 积分：4470 威望：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


加好友 发短信
等级：一尾狐 帖子：480 积分：4470 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
绿火柴
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：480 积分：4470 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
绿火柴
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：480 积分：4470 威望：0 精华：0 注册：2014/3/4 21:20:00 		  发帖心情 Post By：2020/7/11 12:46:00 [显示全部帖子]

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


图片点击可在新窗口打开查看此主题相关图片如下：颜色查询.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
绿火柴
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：480 积分：4470 威望：0 精华：0 注册：2014/3/4 21:20:00 		  发帖心情 Post By：2020/7/11 16:00:00 [显示全部帖子]

非常棒！！！
蓝版：图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询