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 '其他顏色不變.紅色放回去

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 220.132.202.125
推 uclahenry:thxxxxxxxx