首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

请问,这样的语句怎么改成循环

2012-01-07 
请教,这样的语句如何改成循环Dima(100)AsIntegera(1)text1.texta(2)text2.texta(3)text3.texta(4)text

请教,这样的语句如何改成循环
Dim   a(100)   As   Integer
                a(1)   =   text1.text
                a(2)   =   text2.text
                a(3)   =   text3.text
                a(4)   =   text4.text
                ...........
                a(100)   =   text100.text
请教,这段语句如何用一个for循环来表示,在VB.net中

text1,text2.....为文本框

[解决办法]
首先 将这些textbox放到一个容器里(放到窗体里也一样道理)
假设容器名为gp
然后过程大概如下:

for each ctl as control in gp.controls
dim n as int32=system.convert.toint32(mid(ctl.name,4,len(ctl.name-5)))
if n> 0 and n <=100 then
a(n)=ctl.text
end if
next
[解决办法]
For Each Ctl As Control In Me.Controls
If Ctl.GetType.ToString.Equals( "system.Windows.Forms.TextBox ", StringComparison.InvariantCultureIgnoreCase) Then
i += 1
str(i) = Ctl.Text
MessageBox.Show(str(i))
End If
Next
這樣可以做到,但並不能保證str(1)=text1:str(2)=text2....str(100)=text100.不知是否有其它方法

热点排行