Re: 如何讓顏色數值增加??

[fumizuki (矇面加菲獅)]

※ 引述《concealment (笨小孩)》之銘言：
: 引述《blackAIX (蛋蛋的憂愁)》之銘言：
: :     Dim tmpColor As Long, redColor As Integer
: :     tmpColor = Label1.BackColor '取出數值
: :     redColor = tmpColor And 255 '只取出紅色
: :     redColor = (redColor + 5) And 255 '把紅色+5並且限制255之內
: :     Label1.BackColor = (tmpColor And &HFFFF00) + redColor '其他顏色不變.紅色放回去
: 若是要加紅色，則直接加即可，
: 加綠色則要加在中間
: 加藍色則要加在前面
: 基本上VB的顏色格式是這樣的
: &HAABBGGRR
: AA是Alpha
: BB就是藍色
: GG就是綠色
: RR就是紅色
: 且都是用16進位表示
應該是沒有ABGR的@@a

VB6 是BGR
VB2005是ARGB

VB2005 可以使用 Color.FromArgb(A, R, G, B) 來表示色彩
亦可使用 color.A 、 color.R 、 color.G 、 color.B 來取得三原色及 Alpha 值

實驗過的喔
VB6
Debug.Print Hex(vbRed)
結果是 FF

VB2005
Debug.Print(Hex(Color.Red.ToArgb))
結果是 FFFF0000
       同2碼是alpha 第3、4碼是紅色

不過 VB2005 是有一個跟 VB6 一樣的 RGB() 函數，紅色的傳回值亦等於 255
但是使用這個函數來指定控制項的前景背景色彩會建置失敗@@a

有高手要說明2005的 RGB() 函數嗎@@a

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 123.194.100.4
推 fire2:版主耶~
推 mindscold:出動老大了？！