遍歷的例子:
成都創(chuàng)新互聯公司專注于洛川企業(yè)網站建設,響應式網站建設,商城網站建設。洛川網站建設公司,為洛川等地區(qū)提供建站服務。全流程按需定制網站,專業(yè)設計,全程項目跟蹤,成都創(chuàng)新互聯公司專業(yè)和態(tài)度為您提供的服務
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?GetAllControls(ByVal?InContainer?As?Control,?ByRef?RecieveList?As?ListBox)
For?i?As?Integer?=?0?To?InContainer.Controls.Count?-?1
If?InContainer.Controls.Item(i).Text??""?Then
GetList.Items.Add(InContainer.Controls.Item(i).Text??vbCrLf)
End?If
If?InContainer.Controls.Item(i).Controls.Count??0?Then
GetAllControls(InContainer.Controls.Item(i),?GetList)
End?If
Next
End?Sub
這段代碼可行,但不能遍歷菜單和工具欄,要按需要修改
遍歷的例子:
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 在后。