如题所述
可以用API方式
DLL命令定义:
.版本 2
.DLL命令 API选择颜色, 整数型, "comdlg32.dll", "ChooseColorA"
.参数 pChoosecolor, 颜色结构, 传址
.版本 2
数据类型定义:
.数据类型 颜色结构
.成员 lStructSize
.成员 hwndOwner
.成员 hInstance
.成员 rgbResult
.成员 lpCustColors, 文本型
.成员 flags
.成员 lCustData
.成员 lpfnHook
.成员 lpTemplateName, 文本型
程序调用:
.版本 2
颜色.lStructSize = 36
颜色.hwndOwner = 远程设置窗口.取窗口句柄 ()
颜色.hInstance = API获取窗口结构 (远程设置窗口.取窗口句柄 (), -6)
颜色.flags = 0
颜色.lpCustColors = 取空白文本 (16 × 4)
返回值 = API选择颜色 (颜色)
.如果真 (返回值 ≠ 0) ' 未按取消
示例框.文本颜色 = 颜色.rgbResult
示例框.文本颜色就改变为你需要的颜色了
DLL命令定义:
.版本 2
.DLL命令 API选择颜色, 整数型, "comdlg32.dll", "ChooseColorA"
.参数 pChoosecolor, 颜色结构, 传址
.版本 2
数据类型定义:
.数据类型 颜色结构
.成员 lStructSize
.成员 hwndOwner
.成员 hInstance
.成员 rgbResult
.成员 lpCustColors, 文本型
.成员 flags
.成员 lCustData
.成员 lpfnHook
.成员 lpTemplateName, 文本型
程序调用:
.版本 2
颜色.lStructSize = 36
颜色.hwndOwner = 远程设置窗口.取窗口句柄 ()
颜色.hInstance = API获取窗口结构 (远程设置窗口.取窗口句柄 (), -6)
颜色.flags = 0
颜色.lpCustColors = 取空白文本 (16 × 4)
返回值 = API选择颜色 (颜色)
.如果真 (返回值 ≠ 0) ' 未按取消
示例框.文本颜色 = 颜色.rgbResult
示例框.文本颜色就改变为你需要的颜色了
温馨提示:答案为网友推荐,仅供参考
第1个回答 2016-12-12
不知道api能不能实现,但是我有个笨方法,先把颜色选择器弹出来,再用模拟按键点击自定义的,这个需要有点笨,但对于一些新人还是可以的,如果帮到你,望采纳本回答被网友采纳
第2个回答 2018-05-28
用拓展控件中的颜色选择对话框