Fatal编程技术网
  • loops/
  • Loops 在hta中搜索多个单选按钮集合

Loops 在hta中搜索多个单选按钮集合

loops collections vbscript

Loops 在hta中搜索多个单选按钮集合,loops,collections,vbscript,hta,Loops,Collections,Vbscript,Hta,Bellow是我编写的hta/vbs代码，用于动态构建带有单选按钮的表单 hta由另一个vbs脚本启动，该脚本指定要创建的单选按钮（是/否）集合的数量 我遇到的问题是循环中的子写入，而x Yes'>YesNo“ strHTML=strHTML&&&ItemList（x）& y=1+y x=1+x addHeight=addHeight+25 温德 strHTML=strHTML&“ 其他的 如果ItemListSize为20，则 MsgBox“要验证的多个项目！" window.Close（）

Bellow是我编写的hta/vbs代码，用于动态构建带有单选按钮的表单

hta由另一个vbs脚本启动，该脚本指定要创建的单选按钮（是/否）集合的数量

我遇到的问题是循环中的
子写入
，而x Yes'>YesNo“
strHTML=strHTML&&&ItemList（x）&
y=1+y
x=1+x
addHeight=addHeight+25
温德
strHTML=strHTML&“
其他的
如果ItemListSize为20，则
MsgBox“要验证的多个项目！"
window.Close（）
如果结束
如果结束
如果结束
子窗口加载
window.resizeTo 480+addWidth，485+addHeight
screenWidth=Document.ParentWindow.Screen.AvailWidth
屏幕高度=Document.ParentWindow.Screen.AvailHeight
posLeft=（屏幕宽度-480-addWidth）/2
posTop=（屏幕高度-485-添加高度）/2
window.movetoposleft，posTop
DataArea.InnerHTML=strHTML
端接头
子写入
设置fso=CreateObject（“Scripting.FileSystemObject”）
setofile=fso.OpenTextFile（LogPath，2，true）
sTxtArea=document.all（“注释”）.Value
Dim sItem（）
重播站点（0）
x=1
y=0
而x


For Each objRadio in RadioButton&x  'or similar construction


使用
Eval
功能如下：


For Each objRadio in Eval("RadioButton" & CStr(x))


然而，这应该是可行的