遍历数组vb.net 遍历数组中的对象

VB.net的遍历Foreach有什么功能呀。一直看不懂。能给我解释下图中的语句意思吗？

for each是用来简化for的，但你这种写法有点奇怪，一般没这样用的，通常的用法是

成都创新互联公司专注于企业全网营销推广、网站重做改版、筠连网站定制设计、自适应品牌网站建设、成都h5网站建设、电子商务商城网站建设、集团公司官网建设、外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为筠连等各大城市提供网站开发制作服务。

dim a() as string={....}

dim str as string '定义临时变量，它的类型与你数组中元素类型一致

For Each str In a

MessageBox.Show(str)

你上面代码中,a就是一个3个元素的数组，从a[0]到a[2]，用for each的时候，就会遍历你的a数组，上面的代码相当于

for i=0 to a.Length-1

MessageBox.Show(a(i))

yyyymmdd不是数组，需要定义成数组后才能使用

Dim yyyymmdd(2) as String

给你一个提示吧！呵呵，剩下的要自己思考哦！

Path：是初始目录的路径

Private Sub WriteArray(ByVal Path As String)

'写入数组代码在这里，直接将Path写到数组就行了。

Dim dir As New IO.DirectoryInfo(Path)

For Each d As IO.DirectoryInfo In dir.GetDirectories

WriteArray(d.FullName) '递归

End Sub

如果子目录较多那么递归会比较费时间，在调用递归前加入application.doevent就行了，这样在应对大递归时不会死机。

至于数组嘛使用 arraylist 最好了。

回答补充：

把递归去掉就行了啊！

可以的，需要判断控件类型并做一下类型转换。

For Each c As Control In Me.Controls

If TypeOf(c) Is TextBox Then

Dim t As TextBox = CType(c ,TextBox)

'调用t的方法即可

End If

这个不是遍历吧！只是简单将数组中的数取出来而已；

msgbox(os(a))

当前文章：遍历数组vb.net 遍历数组中的对象
网站地址：http://hbruida.cn/article/hpppdg.html