求助关于多个textbox的值赋给数组的问题

[eragonsky]

在form1里有两组textbox控件。textbox1-8为一组数据，textbox9-16为第二组。我想在form2里对声明的两个数组x（）和数组y（）赋值，1-8赋给x，9-16赋给y，代码该怎么写，虽说用土办法也可以实现。但是textbox控件一多就挺麻烦的。求大侠~

[Cai_12543]

论坛里一嗖，一堆的办法，等别人把答案送上门不是最优选择

[eragonsky]

引用 1 楼 Cai_12543 的回复:

论坛里一嗖，一堆的办法，等别人把答案送上门不是最优选择

我如果搜到了真心不会发帖问了。如果你知道怎么实现的话，能不能告诉我一下。

[MamboShawn]

在form2的窗体中 Dim i As Integer Dim x(7) As Textbox Dim y(7) As Textbox For i = 0 To 7 x(i) = form1.Controls("textbox" & i + 1) Next For i = 0 To 7 y(i) = form1.Controls("textbox" & i + 9) Next 怎么在form2中获取form1这个对象，不知道你的具体情况，你得自己解决

[娃都会打酱油了]

Form1公开方法，接收整形数据，然后该方法内部就是FindControl，如果找到就赋值

[菜鸟中的菜鸟大神]

3#方法应该能解决问题。

        For i = 0 To 7
            x(i) = form1.Controls("textbox" & i + 1)
            y(i) = form1.Controls("textbox" & i + 9)
        Next

[lylkr]

不知道你的土办法是什么 public t18(7) As Textbox public t916(7) As Textbox Dim i As Integer For i = 0 To 7 x(i) = texbox的容器.Controls("textbox" & i + 1) Next For i = 0 To 7 y(i) = texbox的容器.Controls("textbox" & i + 9) Next form2中 dim x(7) As string dim y(7) As string dim i as short For i = 0 To 7 x(i) = x18(i).text y(i) = t916(i).text Next

[baidu_34633664]

把x y数组定义为全局吧，x(i)=form8.controls(textbox4).text 别把属性忘记了，是text text text