UC知道VB 请问如何处理数组text
来源：百度知道 编辑：UC知道 时间：2024/06/16 07:12:32
请问:
我有多个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 数组控件?
我有多个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 数组控件?
建立数组控件就像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就不能知道你的循环在什么地方结束。
在你画窗体的时候 你复制一个textbox 当你粘贴的时候 会提示你是否创建成控件数组
或者你把textbox的index属性改一下就可以了！~
textbox控件(名称)全部相同
设置index属性 从0开始向下排列
for i=0 to 100
if val(text1(i))=i then text1(i)=""
next i