vbs怎么用循环给多个text控件赋值
请教vbs里怎么简单地给多个text控件(比如text1、text2、text3等)同时赋值比如
for i = 1 to 100
text(i).text=i
next
但是vbs没法手动给text控件设置index值,也没识别诸如(text&i).text、CStr("text"&i)&".Text"之类的东西啊
--------------------编程问答-------------------- vbs 就是说是 VBScript 啰?也就是常用在 WEB 里操作 HTML 对象的脚本啰?
如果是这样,你的 HTML 里的 "<input type='Text' ID='Text1' value=''>"
只要有这个 ID 项就可以通过 Document.All.Item 取得对象
i = 1;
Set TextObj = Document.All.Item("Text" & i)
Msgbox TextObj.Value
但是看你的代码又是 .text 属性,好像说的又不是 VBScript,看起来到有点像
VB或VBA,不知道是你问得有问题还是我理解有错误,只能这么猜着答了。 --------------------编程问答-------------------- 还有如果真是HTML里的VBScript,那么可以通过多个对象同名定义的方法实现对象数组,如:
<input type='Text' ID='Text1' value='123'>
<input type='Text' ID='Text1' value='234'>
<input type='Text' ID='Text1' value='345'>
<input type='Text' ID='Text1' value='456'>
<input type='Text' ID='Text1' value='567'>
<input type='Text' ID='Text1' value='678'>
在VBScript中可以直接用对象数组方式访问,如
--------------------编程问答-------------------- 可能是wincc里的vbs,我也遇到过这问题。。 --------------------编程问答-------------------- VBS里不知道有没有默认的控件集合,类似VB6里的Controls.
Dim i
For i=0 To 5
Msgbox Text1(i).Value
Next
有的话就很方便了.
补充:VB , 控件