Question

VB 请问如何处理数组text

请问:
我有多个text 控件
如:
for i=1 to 100
if text1=i then
i=""
end if
for i=1 to 100
if text2=i then
i=""
end if
for i=1 to 100
if text3=i then
i=""
end if
for i=1 to 100
if text4=i then
i=""
end if
for i=1 to 100
if text5=i then
i=""
end if
for i=1 to 100
if text6=i then
i=""
end if
请问如何能text 数组控件?

Answer 1

建立数组控件就像dl_会飞的青蛙在上面说的：
第一步：画一个text
第二步：如果这个text没有被选中，就选中它（就是他的四周有八个小标记）
第三步：按ctrl-c
第四步：按ctrl-v
第五步：在弹出的提示矿上选“是”
现在，你就在窗体上有了text1（0）、text1（1）
这就是一个数组控件。
下面其他的，就不用继续这样。可以在运行的时候加进去。
Private Sub Form_Load()
For i = 0 To 99
If i > 1 Then Load Text1(i) '2到99在这里添加
Text1(i).Visible = True '新添加默认是看不到的，在这里设置为可以看到
hang = i \ 10 '10个一行，计算摆在第几行
lie = i Mod 10 '除以10的余数，就是第几列
Text1(i).Move lie * 600, hang * 300, 500, 200 '列距600，行距300，宽度500，高度200
Text1(i) = i '文本框的内容，就是编号
Next i
End Sub
你注意看一下，你的for语句有问题——都没有next，vb就不能知道你的循环在什么地方结束。

Answer 2

在你画窗体的时候 你复制一个textbox 当你粘贴的时候 会提示你是否创建成控件数组

或者你把textbox的index属性改一下就可以了！~

Answer 3

textbox控件(名称)全部相同
设置index属性 从0开始向下排列

for i=0 to 100
if val(text1(i))=i then text1(i)=""
next i

Answer 4

添加一个控件数组(textbox)text1(0)
private
sub
form_load()
for
i
=
1
to
10

load
text1(i)

text1(i).left
=
0

text1(i).top
=
(text1(i).top
+
text1(i).height)
*
i

text1(i).visible
=
true
next
i
for
i
=
0
to
10

text1(i).text
=
"数组控件:"
&
i
next
i
end
sub