神马品牌网手持式粉尘测定仪:ASP,如何得到一个颜色的反色??
来源：百度文库 编辑：神马品牌网 时间：2024/04/19 22:49:20
谁能帮我写个涵数?例如:
function Fanse(myColor)
//........
End function
//输入一个颜色:
aaa=FanSe("#FFFFFF")
//得到的就是相反的颜色
aaa 结果等于 "#000000"
function Fanse(myColor)
//........
End function
//输入一个颜色:
aaa=FanSe("#FFFFFF")
//得到的就是相反的颜色
aaa 结果等于 "#000000"
我写个函数例子楼主看一看。
在调用fanse函数的时候，参数必须是#xxxxxx这样的形式，否则可能会出错，楼主根据需要加些条件来改善吧。其实就是用0xffffff减去相应的颜色值就是反色了。
Function fanse(myColor)
Dim tempv
tempv = &HFFFFFF - CLng(Replace(myColor, "#", "&H"))
fanse ="#" & Right("000000" & CStr(Hex(tempv)), 6)
End Function