遍歷的例子:
讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:申請域名、虛擬空間、營銷軟件、網(wǎng)站建設、酉陽土家族苗族網(wǎng)站維護、網(wǎng)站推廣。
Dim i, j As Integer
For i = 0 To DataGridView1.RowCount - 1
For j = 0 To DataGridView1.ColumnCount - 1
MsgBox(DataGridView1.Item(j, i).Value)
Next
Next
注意:與Excel的單元格命名規(guī)則不一樣,這里的 Item(j, i) 中,列號 j 在前,行號 i 在后。
Public?Sub?ReSetText(Control?ctrl)????????
Dim?ct?As?Control
For?Each?ct?In?ctrl.Controls
Try
For?Each?ct2?As?Control?In?ct.Controls
ReSetText(ct2)
Next
Catch
End?Try
If?(TypeOf?ct?Is?TextBox)?Then
ct.Text?=?""
ElseIf?(TypeOf?ct?Is?ComboBox)?Then
Dim?cb?As?System.Windows.Forms.ComboBox?=?DirectCast(ct,?System.Windows.Forms.ComboBox)
cb.SelectedIndex?=?-1
End?If
Next
End?Sub
因為textbox在窗體里的panel里,你只遍歷窗體的控件是不夠的。
IO.Directory.GetDirectories("文件夾") '獲取文件夾中的所有子文件夾路徑。
IO.Directory.GetFiles("文件夾") '獲取文件夾下所有文件的路徑。
'子文件夾的子文件夾,用遞歸;
遍歷的例子:
Dim i, j As Integer
For i = 0 To DataGridView1.RowCount - 1
For j = 0 To DataGridView1.ColumnCount - 1
MsgBox(DataGridView1.Item(j, i).Value)
Next
Next
注意:與Excel的單元格命名規(guī)則不一樣,這里的 Item(j, i) 中,列號 j 在前,行號 i 在后。