重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
遍历的例子:
成都创新互联公司服务项目包括泾川网站建设、泾川网站制作、泾川网页制作以及泾川网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,泾川网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到泾川省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
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的单元格命名规则不一样,这里的 Item(j, i) 中,列号 j 在前,行号 i 在后。
假设你的右键菜单为mymenu(contextmenustrip对象)
Dim oM As ToolStripMenuItem
For Each oM In Me.mymenu.Items
.....
Next
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
这段代码可行,但不能遍历菜单和工具栏,要按需要修改