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

看板Visual_Basic作者fumizuki (矇面加菲獅)時間16年前 (2007/10/21 22:14)推噓2(2推 0噓 0→)

留言2則, 2人參與討論串5/5 (看更多)

※ 引述《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

10/21 22:24, , 1^F

10/21 22:24, 1^F

推

mindscold

10/23 17:18, , 2^F

10/23 17:18, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 fumizuki 的文章

文章代碼(AID): #176rxTai (Visual_Basic)