作者blackAIX (蛋蛋的忧愁)
看板Visual_Basic
标题Re: 如何让颜色数值增加??
时间Sun Oct 21 06:18:23 2007
※ 引述《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
1F：推 uclahenry:thxxxxxxxx 10/21 08:00