秋
秋之叶
Unregistered / Unconfirmed
GUEST, unregistred user!
例子代码如下：
<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>
总是提示错误 CommonDialog1无ShowColor方法
IE 级别对ActiveX已开放
<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>
总是提示错误 CommonDialog1无ShowColor方法
IE 级别对ActiveX已开放