[求助]保存或调取控件ColorPicker值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]保存或调取控件ColorPicker值

共有2429人关注过本帖树形打印复制链接主题：[求助]保存或调取控件ColorPicker值

天一生水

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

[求助]保存或调取控件ColorPicker值 发帖心情

Post By：2018/10/28 8:47:00 [只看该作者]

将控件ColorPicker值（比如：red）保存到表中，窗口按钮代码：

Tables("设置")(0,"背景") = e.Form.Controls("背景").Value

表的[背景]列属性设为数据型、或整数型，再设为色彩扩展类型，都无法保存。

应该怎样设置？

谢谢！

y2287958

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/10/28 9:01:00 [只看该作者]

Dim ColorPicker1 As WinForm.ColorPicker = e.Form.Controls("ColorPicker1")

Dim clr As Color = ColorPicker1.Value

MessageBox.Show(Clr.ToARGB)

天一生水

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2018/10/28 16:46:00 [只看该作者]

谢谢前辈，可以将控件的值写入表中了。

反过来，控件怎样获取表中的值呢？下面的代码不行：

......

e.Form.Controls("单背景").Value = Tables("席签设置")(0,"单行背景")

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/10/29 9:34:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/scr/0496.htm

天一生水

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1141 积分：11272 威望：0 精华：0 注册：2017/9/26 16:30:00

Post By：2018/10/29 13:29:00 [只看该作者]

1、利用颜色选择器选择红色“red”；

图片点击可在新窗口打开查看此主题相关图片如下：image 1.jpg

2、把颜色选择器的值写入单元格；

3、窗口控件获取单元格的色值，代码：

e.Form.Controls("单背景").Value = Color.FromARGB(Tables("设置")(0,"单行背景"))

控件显示为：

图片点击可在新窗口打开查看此主题相关图片如下：image 2.jpg

-----------------------------------

能不能显示为“red”呢？

和第一次选择时的图1一样。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/29 13:59:00 [只看该作者]

参考

Dim a As WinForm.ColorPicker = e.Form.Controls("ColorPicker1")
Dim converter As New ColorConverter
Dim colorAsString As String = converter.ConvertToString(a.value)
msgbox(colorAsString )

Dim co = ctype(converter.ConvertFromString(colorAsString),Color)
msgbox(co.Tostring)

下一主题 >> << 上一主题

主题：[求助]保存或调取控件ColorPicker值