- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自定义颜色 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177520)
-- 发布时间：2022/5/25 16:41:00
-- 自定义颜色
老师，自定义颜色：
c1tab2.BackColor = Color.White不能写成下面这样吗，数据表中存放的是Color.White？
c1tab2.BackColor = dr("界面颜色")
-- 发布时间：2022/5/25 16:57:00
--
可以，用一个整数型列就行了.
c1tab2.BackColor = Color.FromARGB(dr("界面颜色"))
[此贴子已经被作者于2022/5/25 16:59:37编辑过]
-- 发布时间：2022/5/25 16:59:00
--
参考：
里头有颜色和整数的互换说明
-- 发布时间：2022/5/25 17:49:00
--
表事件，不能这样用呢？
.......
msgbox(e.DataRow("界面颜色") & ".ToARGB")
Dim val As Integer = e.DataRow("界面颜色") & ".ToARGB"
e.DataRow("颜色") = val
.......
-- 发布时间：2022/5/26 8:36:00
--
"界面颜色"改为整数列。
保存的时候，把颜色转换为整数值写入"界面颜色"列：dr("界面颜色") = Color.Pink.ToARGB
取值：Dim clr As Color = Color.FromARGB(dr("界面颜色") )
[此贴子已经被作者于2022/5/26 8:37:49编辑过]
-- 发布时间：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
.......
-- 发布时间：2022/5/26 9:14:00
--
表格里存储的是一串字符串，而不是颜色类型和对象，是无法直接使用的。
字符串转换为颜色可以这样用
Dim c As color = Color.FromName("SteelBlue")
Output.Show(c.ToARGB)
-- 发布时间：2022/5/27 18:00:00
--
老师，请教一下，为什么有两个页签的背景色改不了呢？
这是用户风格设置窗口Cl ick事件代码：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文本文档.txt |
[此贴子已经被作者于2022/5/27 20:03:44编辑过]
-- 发布时间：2022/5/28 8:42:00
--
看不出，请上传实例说明
-- 发布时间：2022/5/30 8:46:00
--
我只要点过的页面，这样改颜色就改不了，其他页面都能改。如果我刚刚打开主窗口就修改主题颜色就都能改。
此主题相关图片如下：2222.jpg
[此贴子已经被作者于2022/5/30 8:46:40编辑过]