Re: [VB6 ] 請問CommonDialog控制項內的ShowColor
※ 引述《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
推
05/06 15:23, , 1F
05/06 15:23, 1F
討論串 (同標題文章)
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
