※ 引述《opqisgod (紫)》之銘言：
: 抱歉 我沒把意思表達清楚....執行程式時的圖如下
: http://www.wretch.cc/album/show.php?i=opqisgod&b=2&f=1103957603&p=0
: 目前上面捲軸都可以更改底下label的顏色...可是當我用左下"自由選色"更改時
: 右上角的text不會顯示目前label的R,G,B 不知道該怎麼寫
: 我有用 Private Sub label4_Change() 可是還是不會顯示
: 希望大大幫我想看看.....謝謝......^^
剛剛算了一下...
這樣子可以求出R G B的值，
再來就靠你應用了
OK?!
====================================
Dim R, G, B As Long
Public Sub getRGB(a As Long)
'getRGB 函數 By windwofswold
R = a Mod (65536 * 256) / 65536
G = ((a - R) Mod 65536) / 256
B = (a - R - (G * 256)) / 65536
End Sub
====================================
a就是CommandDialog傳回來的Long
--
程式碼有點冗長
懶的簡化了@@
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.135.21.91