推 uclahenry:怎麼直接加??? 10/21 14:52
推 uclahenry:我的問題應該是 點一下 紅色的顏色素質+5 點兩下+10 10/21 15:06
推 fire2:都能達到阿~^^ 10/21 16:43
引述《blackAIX (蛋蛋的憂愁)》之銘言：
: ※ 引述《uclahenry (fucker)》之銘言：
: : 如何
: : 按button1後
: : 讓 label1.backcolor 得 三原色中的 紅色數值增加5??
: : 顏色素質範圍先不要管
: 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進位表示
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.113.54.188