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 数组控件?

建立数组控件就像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