Re: 如何讓顏色數值增加??
引述《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
推
10/21 14:52, , 1F
10/21 14:52, 1F
推
10/21 15:06, , 2F
10/21 15:06, 2F
推
10/21 16:43, , 3F
10/21 16:43, 3F
討論串 (同標題文章)