广场舞中国茶变对行:ASP,如何得到一个颜色的反色??
来源:百度文库 编辑:中科新闻网 时间:2024/10/02 17:48:33
谁能帮我写个涵数?例如:
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