作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 请问CommonDialog控制项内的ShowColor
时间Sat May 6 12:23:22 2006
※ 引述《SmallBeeWayn (喵喵叫的蜜蜂猫)》之铭言:
: ※ 引述《winstonlim (wayne)》之铭言:
: : 请问各位大大...
: : CommonDialog 控制项内的ShowColor
: : 由於我想在我选好一种颜色後
: : 而要让Text1.Text上显示ShowColor的RGB值,如(255,155,200)
: : 该如何抓它的值呢?
: : Private Sub Command1_Click()
: : CommonDialog1.flags = 2
: : CommonDialog1.ShowColor
: : Text1.BackColor = CommonDialog1.Color
: : End Sub
: : 拜托各位大大了...
: 如果是系统颜色的话,要先用
CommonDialog 不会传回系统色彩@@ 全都算是自订色彩@@
: Declare Function GetSysColor Lib "user32.dll" (ByVal nIndex As Long) As Long
: 去抓值
: 出来的Long值用16进位表示就是bbggrr
: 用"\"跟"/"两个运算子就可以求出原来的RGB值了
Dim c As Long, r As Long, g As Long, b As Long
CommonDialog1.Flags = 2
CommonDialog1.ShowColor
c = CommonDialog1.Color
Text1.BackColor = c
Text1.ForeColor = &HFFFFFF - c
fr = &H100&: fg = &H10000: fb = &H1000000
r = c Mod fr: c = c - r
g = (c Mod fg) \ fr: c = c - g
b = (c Mod fb) \ fg
Text1.Text = "(" & r & ", " & g & ", " & b & ")"
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住,半点痴情遗留殊不易,██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.58.156.43
1F:推 winstonlim:成功了...谢谢大大了....感恩... 05/06 15:23