for each是用來簡化for的,但你這種寫法有點奇怪,一般沒這樣用的,通常的用法是
成都創(chuàng)新互聯(lián)公司專注于企業(yè)全網(wǎng)營銷推廣、網(wǎng)站重做改版、筠連網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、成都h5網(wǎng)站建設(shè)、電子商務(wù)商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù),價格優(yōu)惠性價比高,為筠連等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
dim a() as string={....}
dim str as string '定義臨時變量,它的類型與你數(shù)組中元素類型一致
For Each str In a
MessageBox.Show(str)
Next
你上面代碼中,a就是一個3個元素的數(shù)組,從a[0]到a[2], 用for each的時候,就會遍歷你的a數(shù)組,上面的代碼相當(dāng)于
for i=0 to a.Length-1
MessageBox.Show(a(i))
next
yyyymmdd不是數(shù)組,需要定義成數(shù)組后才能使用
Dim?yyyymmdd(2)?as?String
給你一個提示吧!呵呵,剩下的要自己思考哦!
Path:是初始目錄的路徑
Private Sub WriteArray(ByVal Path As String)
'寫入數(shù)組代碼在這里,直接將Path寫到數(shù)組就行了。
Dim dir As New IO.DirectoryInfo(Path)
For Each d As IO.DirectoryInfo In dir.GetDirectories
WriteArray(d.FullName) '遞歸
Next
End Sub
如果子目錄較多那么遞歸會比較費時間,在調(diào)用遞歸前加入application.doevent就行了,這樣在應(yīng)對大遞歸時不會死機。
至于數(shù)組嘛使用 arraylist 最好了。
回答補充:
把遞歸去掉就行了?。?/p>
可以的,需要判斷控件類型并做一下類型轉(zhuǎn)換。
For Each c As Control In Me.Controls
If TypeOf(c) Is TextBox Then
Dim t As TextBox = CType(c ,TextBox)
'調(diào)用t的方法即可
End If
Next
這個不是遍歷吧!只是簡單將數(shù)組中的數(shù)取出來而已;
msgbox(os(a))