如何可以简化代码？

yuk_yu 发布于 2016-08-12 12:04， 1420 次点击

              我有一个label, 从label1到label187, 我想让1-187参与i的循环，如何可以简化？

                for i = 6  to 187
                Me.Label6.Text = Ds.Tables(0).Rows(I).Item(2).ToString
                Me.Label7.Text = Ds.Tables(0).Rows(I).Item(3).ToString
                Me.Label8.Text = Ds.Tables(0).Rows(I).Item(4).ToString
                next

5 回复

xiangyue05102016-08-12 14:38

可以使用控件数组。

yuk_yu2016-08-12 14:48

回复 2楼 xiangyue0510

在Net里如何将所有的同类型的加入控件组？谢谢版主

xiangyue05102016-08-12 15:51

只是修改的话，可以参考下语句试试。

For i = 1 To 10
DirectCast(Controls.Find("Textbox" & i, True)(0), TextBox).Text = ""
Next

至于控件数组，见例子

程序代码：

Dim TxtFld() As TextBox
n=10
ReDim LableFld(n)
For i=0 to n

TxtFld(i) = New TextBox

Form1.Controls.Add(TxtFld(i))

TxtFld(i).Visible = True

TxtFld(i).Left = 150

TxtFld(i).top= n*50+150
Next

xiangyue05102016-08-12 15:52

另外，最好移步去板块，这个板块会VB的人多，的就只有几个

yuk_yu2016-08-14 18:28

回复 5楼 xiangyue0510

谢谢版主！