遍歷的例子:
成都創(chuàng)新互聯(lián)公司專注于洛川企業(yè)網(wǎng)站建設(shè),響應式網(wǎng)站建設(shè),商城網(wǎng)站建設(shè)。洛川網(wǎng)站建設(shè)公司,為洛川等地區(qū)提供建站服務。全流程按需定制網(wǎng)站,專業(yè)設(shè)計,全程項目跟蹤,成都創(chuàng)新互聯(lián)公司專業(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 在后。
分享名稱:vb點虐
遍歷數(shù)據(jù) vb遍歷文件
網(wǎng)站地址:http://www.rwnh.cn/article10/ddcpego.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站排名、做網(wǎng)站、定制網(wǎng)站、移動網(wǎng)站建設(shè)、虛擬主機、定制開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)