VB 请问如何处理数组text
请问:我有多个text控件如:fori=1to100iftext1=itheni=""endiffori=1to100iftext2=itheni=""endiffori...
请问:
我有多个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 数组控件? 展开
4个回答
展开全部
建立数组控件就像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就不能知道你的循环在什么地方结束。
第一步:画一个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属性改一下就可以了!~
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
textbox控件(名称)全部相同
设置index属性 从0开始向下排列
for i=0 to 100
if val(text1(i))=i then text1(i)=""
next i
设置index属性 从0开始向下排列
for i=0 to 100
if val(text1(i))=i then text1(i)=""
next i
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
添加一个控件数组(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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询