vbscript 对象问题
<body >
<form method="post" name="form1">
<p>设置背景色：<input type="radio" value="blue" checked name="r2" >蓝色
<input type="radio" value="red" name="r2" > 红色
<input type="radio" value="white" name="r2" > 白色
<input type="radio" value="black" name="r2">黑色
<input type="button" name="b3" onclick="setbkcolor(1)" value="设置" ></p>
<p>设置前景色： <input type="radio" value="blue" checked name="r3">蓝色
<input type="radio" value="red" name="r3" > 红色
<input type="radio" value="white" name="r3" > 白色
<input type="radio" value="black" name="r3" >黑色
<input type="button" name="b4" onclick="setbkcolor(2)" value="设置" ></p>
</form>
<script language="vbscript" type="text/vbscript" >
<!--
sub setbkcolor (objnum)
dim bkcolor
if objnum=1 then
if window.form1.r2.value="blue" then
bkcolor=vbblue
elseif window.form1.r2.value="red" then
bkcolor=vbred
elseif window.form1.r2.value="white" then
bkcolor=vbwhite
elseif window.form1.r2.value="black" then
bkcolor=vbblack
end if
document.bgcolor=bkcolo
elseif objNum=2 then
if window.form1.r3.value="blue" then
bkcolor=vbblue
elseif window.form1.r3.value="red" then
bkcolor=vbred
elseif window.form1.r3.value="white" then
bkcolor=vbwhite
elseif window.form1.r3.value="black" then
bkcolor=vbblack
end if
document.fgcolor=bkcolor
end if
end sub
//-->
</script>
</body>
</html>
为什么显示“对象不支持此属性与方法：‘window.form1.r2’”
能用set obj=window.form1.r2和set obj=window.form1.r3简化代码
还有能不讲一下对象这方面的问题，我是初学者，好想学明白，帮帮我
谢谢！！！
对于我的这些问题谁能告诉我该学些什么，能具体据些，谢谢朋友
守着一只汪1回答
-
qq_花开花谢_0
主要是由于form1对象的r2、r3为radio，对于它的引用为一个数组，判断它是否选中（checked），而不能直接通过取得值的方式，例如：r2(0).value表示取得背景色为红色的值，其它类似修改代码如下：<body ><form method="post" name="form1"><p>设置背景色：<input type="radio" value="blue" checked name="r2" >蓝色<input type="radio" value="red" name="r2" > 红色<input type="radio" value="white" name="r2" > 白色<input type="radio" value="black" name="r2">黑色<input type="button" name="b3" onclick="setbkcolor(1)" value="设置" ></p><p>设置前景色： <input type="radio" value="blue" checked name="r3">蓝色<input type="radio" value="red" name="r3" > 红色<input type="radio" value="white" name="r3" > 白色<input type="radio" value="black" name="r3" >黑色<input type="button" name="b4" onclick="setbkcolor(2)" value="设置" ></p></form><script language="vbscript" type="text/vbscript" ><!--sub setbkcolor (objnum)dim bkcolorif objnum=1 thenDim rv2rv2 = getV(document.form1.r2)document.bgcolor=rv2elseif objNum=2 thenrv2 = getV(document.form1.r3)document.fgcolor=rv2end ifend subFunction getV(xv)Dim s, ts = 0t = xv.lengthDo While (s < t)If xv(s).checked ThengetV = xv(s).valueExit FunctionEnd Ifs = s + 1LoopEnd Function//--></script></body></html>
随时随地看视频慕课网APP
相关分类
JavaScript