Foxtable(狐表)用户栏目专家坐堂 → 自定义颜色


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

主题:自定义颜色

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


加好友 发短信
等级:狐精 帖子:3051 积分:20414 威望:0 精华:0 注册:2016/3/28 16:57:00
自定义颜色  发帖心情 Post By:2022/5/25 16:41:00 [只看该作者]

老师,自定义颜色:

c1tab2.BackColor = Color.White不能写成下面这样吗,数据表中存放的是Color.White?

c1tab2.BackColor = dr("界面颜色")


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2022/5/25 16:57:00 [只看该作者]

可以,用一个整数型列就行了.

c1tab2.BackColor = Color.FromARGB(dr("界面颜色"))
[此贴子已经被作者于2022/5/25 16:59:37编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2022/5/25 16:59:00 [只看该作者]

参考:

里头有颜色和整数的互换说明

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3051 积分:20414 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/25 17:49:00 [只看该作者]

表事件,不能这样用呢?

.......

msgbox(e.DataRow("界面颜色") & ".ToARGB")
        Dim val As Integer = e.DataRow("界面颜色") & ".ToARGB"

        e.DataRow("颜色") = val

.......


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


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/26 8:36:00 [只看该作者]

"界面颜色"改为整数列。

保存的时候,把颜色转换为整数值写入"界面颜色"列:dr("界面颜色") = Color.Pink.ToARGB

取值:Dim clr As Color = Color.FromARGB(dr("界面颜色") )
[此贴子已经被作者于2022/5/26 8:37:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3051 积分:20414 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/26 8:52:00 [只看该作者]

老师,取值哪儿我用来了,我有个界面主题表,输入界面主题,后面颜色列怎么自动取整?

 


此主题相关图片如下:qq截图20220526084827.jpg
按此在新窗口浏览图片

 

帮助里面是这样的嘛: 

Dim Val AS Integer = Color.Pink.ToARGB
我这样写转换不过来呢:

.......

Else

msgbox(e.DataRow("界面颜色") & ".ToARGB")
        Dim val As Integer = e.DataRow("界面颜色") & ".ToARGB"

        e.DataRow("颜色") = val

.......


 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

表格里存储的是一串字符串,而不是颜色类型和对象,是无法直接使用的。

字符串转换为颜色可以这样用
Dim c As color = Color.FromName("SteelBlue")
Output.Show(c.ToARGB)

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


加好友 发短信
等级:狐精 帖子:3051 积分:20414 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/27 18:00:00 [只看该作者]

老师,请教一下,为什么有两个页签的背景色改不了呢?

这是用户风格设置窗口Cl  ick事件代码:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:新建文本文档.txt

[此贴子已经被作者于2022/5/27 20:03:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/28 8:42:00 [只看该作者]

看不出,请上传实例说明

 回到顶部
帅哥哟,离线,有人找我吗?
cd_tdh
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3051 积分:20414 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2022/5/30 8:46:00 [只看该作者]

我只要点过的页面,这样改颜色就改不了,其他页面都能改。如果我刚刚打开主窗口就修改主题颜色就都能改。

 


图片点击可在新窗口打开查看此主题相关图片如下:2222.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2022/5/30 8:46:40编辑过]

 回到顶部
总数 21 1 2 3 下一页