作者concealment (笨小孩)
看板Visual_Basic
标题Re: 如何让颜色数值增加??
时间Sun Oct 21 14:44:10 2007
引述《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
1F：推 uclahenry:怎麽直接加??? 10/21 14:52
2F：推 uclahenry:我的问题应该是 点一下 红色的颜色素质+5 点两下+10 10/21 15:06
3F：推 fire2:都能达到阿~^^ 10/21 16:43