- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]保存或调取控件ColorPicker值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126748)
-- 发布时间：2018/10/28 8:47:00
-- [求助]保存或调取控件ColorPicker值
将控件ColorPicker值（比如：red）保存到表中，窗口按钮代码：
Tables("设置")(0,"背景") = e.Form.Controls("背景").Value
表的[背景]列属性设为数据型、或整数型，再设为色彩扩展类型，都无法保存。
应该怎样设置？
谢谢！
-- 发布时间：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)
-- 发布时间：2018/10/28 16:46:00
--
谢谢前辈，可以将控件的值写入表中了。
反过来，控件怎样获取表中的值呢？下面的代码不行：
......
e.Form.Controls("单背景").Value = Tables("席签设置")(0,"单行背景")
-- 发布时间：2018/10/29 9:34:00
--
参考：http://www.foxtable.com/webhelp/scr/0496.htm
-- 发布时间：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一样。
-- 发布时间：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)