[已解决］一个关于HTA(checked)的问题? - 中国DOS联盟论坛

多看看基础的东西吧，其实方法真的太多了...


<script language="VBScript">

Sub queding
    set colRadios = document.getElementsByName("R1")
    if colRadios(0).checked then
        alert "男"
    else
        alert "女"
    end if
End Sub

</script>
性别：<input type="radio" value="V1" checked name="R1">男
<input type="radio" value="V2"  name="R1">女<p>
<BUTTON onClick="queding">确定</BUTTON>


<script language="VBScript">

Sub queding
    set colRadios = document.all.R1
    if colRadios(0).checked then
        alert "男"
    else
        alert "女"
    end if
End Sub

</script>
性别：<input type="radio" value="V1" checked name="R1">男
<input type="radio" value="V2"  name="R1">女<p>
<BUTTON onClick="queding">确定</BUTTON>


<script language="VBScript">

Sub queding
    set colRadios = document.getElementsByName("R1")
    if colRadios(0).checked then
        alert "男"
    else
        alert "女"
    end if
End Sub

</script>
性别：<input type="radio" value="男" checked name="R1">男
<input type="radio" value="女"  name="R1">女<p>
<BUTTON onClick="queding">确定</BUTTON>


<script language="VBScript">
    sValue = "男"
Sub queding
    alert sValue
End Sub

</script>
性别：<input type="radio" OnClick="sValue='男'" language="vbscript" checked name="R1">男
<input type="radio" OnClick="sValue='女'" language="vbscript"  name="R1">女<p>
<BUTTON onClick="queding">确定</BUTTON>


<script language="VBScript">

Sub queding
on error resume next
    for each itemElement in document.ALL
        if  lcase(itemElement.tagName) = "input" then
            if  lcase(itemElement.type) = "radio" then
                if itemElement.checked then
                    alert "男"
                    exit for
                else
                    alert "女"
                    exit for
               end if
            end if
        end if
    next
End Sub

</script>
性别：<input type="radio" value="V1" checked name="R1">男
<input type="radio" value="V2"  name="R1">女<p>
<BUTTON onClick="queding">确定</BUTTON>


<script language="VBScript">

Sub queding
    set colRadios = document.getElementsByTagName("input")
    if colRadios(0).checked then
        alert "男"
    else
        alert "女"
    end if
End Sub

</script>
性别：<input type="radio" value="V1" checked name="R1">男
<input type="radio" value="V2"  name="R1">女<p>
<BUTTON onClick="queding">确定</BUTTON>


<script language="VBScript">

Sub queding
    
'    if v1.checked then
     if document.getElementbyId("V1").checked then
        alert "男"
    else
        alert "女"
    end if
End Sub

</script>
性别：<input type="radio" id="V1" checked name="R1">男
<input type="radio" id="V2"  name="R1">女<p>
<BUTTON onClick="queding">确定</BUTTON>


<script language="VBScript">

Sub queding
    if document.body.children(0).checked then
        alert "男"
    else
        alert "女"
    end if 
End Sub

</script>
性别：<input type="radio" value="V1" checked name="R1">男
<input type="radio" value="V2"  name="R1">女<p>
<BUTTON onClick="queding">确定</BUTTON>

此处省略方案若干种...
既然有Microsoft这个后盾，何不更人性化一点呢？


<body onKeyDown="fastkey(window.event.keyCode)" language='vbscript'>
<script language="VBScript">
Sub fastkey(key)

    select case key
        case 13
            queding
        case 27
            set self.opener = Nothing
            self.close
    end select

end sub

Sub queding
    for each itemElement in document.getElementsByName("R1")
        if itemElement.checked then alert itemElement.value
    next
End Sub

</script>
性别：<input type="radio" value="男" checked name="R1" id="o1">
<label for="o1" accessKey="1">男(ALT+<u>1</u>)</label>
<input type="radio" value="女"  name="R1" id="o2">
<label for="o2" accessKey="2">女(ALT+<u>2</u>)</label><p>
<BUTTON id="oButton" onClick="queding">确定</BUTTON>
</body>

第1楼　jmz573515	发表于 2007-06-18 08:55
银牌会员　发帖 464　积分 1,212
[已解决］一个关于HTA(checked)的问题? <head> <title>fdsa</title> <HTA:APPLICATION APPLICATIONNAME="fdsa" > </head> <script language="VBScript"> Sub queding msgbox R1.checked '这个地方应该怎么改？？ End Sub </script> <body> 性别：<input type="radio" value="V1" checked name="R1">男 <input type="radio" value="V2" name="R1">女<p> <input type="button" STYLE='WIDTH:75' value="确定" name="yes_button" onClick="queding"> </body> 这个HTA文件，应该怎么改才能得到，选的是男，还是女？？ [ Last edited by jmz573515 on 2007-6-20 at 09:07 AM ]

第2楼　3742668	发表于 2007-06-18 23:11
荣誉版主　发帖 718　积分 2,013
多看看基础的东西吧，其实方法真的太多了... <script language="VBScript"> Sub queding set colRadios = document.getElementsByName("R1") if colRadios(0).checked then alert "男" else alert "女" end if End Sub </script> 性别：<input type="radio" value="V1" checked name="R1">男 <input type="radio" value="V2" name="R1">女<p> <BUTTON onClick="queding">确定</BUTTON> <script language="VBScript"> Sub queding set colRadios = document.all.R1 if colRadios(0).checked then alert "男" else alert "女" end if End Sub </script> 性别：<input type="radio" value="V1" checked name="R1">男 <input type="radio" value="V2" name="R1">女<p> <BUTTON onClick="queding">确定</BUTTON> <script language="VBScript"> Sub queding set colRadios = document.getElementsByName("R1") if colRadios(0).checked then alert "男" else alert "女" end if End Sub </script> 性别：<input type="radio" value="男" checked name="R1">男 <input type="radio" value="女" name="R1">女<p> <BUTTON onClick="queding">确定</BUTTON> <script language="VBScript"> sValue = "男" Sub queding alert sValue End Sub </script> 性别：<input type="radio" OnClick="sValue='男'" language="vbscript" checked name="R1">男 <input type="radio" OnClick="sValue='女'" language="vbscript" name="R1">女<p> <BUTTON onClick="queding">确定</BUTTON> <script language="VBScript"> Sub queding on error resume next for each itemElement in document.ALL if lcase(itemElement.tagName) = "input" then if lcase(itemElement.type) = "radio" then if itemElement.checked then alert "男" exit for else alert "女" exit for end if end if end if next End Sub </script> 性别：<input type="radio" value="V1" checked name="R1">男 <input type="radio" value="V2" name="R1">女<p> <BUTTON onClick="queding">确定</BUTTON> <script language="VBScript"> Sub queding set colRadios = document.getElementsByTagName("input") if colRadios(0).checked then alert "男" else alert "女" end if End Sub </script> 性别：<input type="radio" value="V1" checked name="R1">男 <input type="radio" value="V2" name="R1">女<p> <BUTTON onClick="queding">确定</BUTTON> <script language="VBScript"> Sub queding ' if v1.checked then if document.getElementbyId("V1").checked then alert "男" else alert "女" end if End Sub </script> 性别：<input type="radio" id="V1" checked name="R1">男 <input type="radio" id="V2" name="R1">女<p> <BUTTON onClick="queding">确定</BUTTON> <script language="VBScript"> Sub queding if document.body.children(0).checked then alert "男" else alert "女" end if End Sub </script> 性别：<input type="radio" value="V1" checked name="R1">男 <input type="radio" value="V2" name="R1">女<p> <BUTTON onClick="queding">确定</BUTTON> 此处省略方案若干种... 既然有Microsoft这个后盾，何不更人性化一点呢？ <body onKeyDown="fastkey(window.event.keyCode)" language='vbscript'> <script language="VBScript"> Sub fastkey(key) select case key case 13 queding case 27 set self.opener = Nothing self.close end select end sub Sub queding for each itemElement in document.getElementsByName("R1") if itemElement.checked then alert itemElement.value next End Sub </script> 性别：<input type="radio" value="男" checked name="R1" id="o1"> <label for="o1" accessKey="1">男(ALT+<u>1</u>)</label> <input type="radio" value="女" name="R1" id="o2"> <label for="o2" accessKey="2">女(ALT+<u>2</u>)</label><p> <BUTTON id="oButton" onClick="queding">确定</BUTTON> </body>

第3楼　jmz573515	发表于 2007-06-19 09:26
银牌会员　发帖 464　积分 1,212
谢谢!非常感谢! 我也想看但不知道该看哪些东西,如果有关于HTA方面的好的资料还望指点,谢谢!

第4楼　zh159	发表于 2007-06-19 09:35
金牌会员　发帖 1,467　积分 3,687
HTA实际上就是HTML、VBScript、JavaScript的组合体：HTML的界面、VBScript、JavaScript脚本的运行