发信人: songthin0(Songthin)
整理人: dongbao(2002-04-21 19:27:16), 站内信件
|
对上述方法的改进，可用于任何支持ActiveX和VBScript的游览器中，而不只局限于IE6。
<body>
<script language=VBScript>
on Error Resume Next
sub showcolorbox
CommonDialog1.ShowColor '显示颜色对话框
if not err then
i=CLng(CommonDialog1.color) '进行必要的运行，转换为IE认识的颜色格式
i=hex((i mod 256)*65536+((i \256) mod 256)*256+(i\65536))
document.bgcolor= string(6-len(i),"0")&i
end if
end sub
</script>
<p>
<object classid="clsid:F9043C85-F6F2-101A-A3C9-08002B2F49FB" id="CommonDialog1"></object>
</p>
<input type=button value=颜色 onclick=showcolorbox>
</body> |
|