VB中For Each...Next的运用实例,,,希望大虾们分享一下
解决方案 »
- 请问各位高手,如何实现把桌面程序和B/S启动图标集成到窗体中呢?类似360保险箱那种事怎么做的?
- 票据打印问题请教讨论帖
- 如何用VB创建EXCEL文件
- 打包问题(超级急!!!!!)
- 如何在VB+ACCSEE中设置密码?
- 软件发布!欢迎大家帮助测试。散分!
- 再问一下Excel里面的宏在那个菜单下面可以加密码保护的啊,我一时找不到了
- TEXT中的图画
- 如何修改PowerPoint的快捷菜单,特别是在演示幻灯片的时候的快捷菜单?
- 请问如何同时显示两个窗体
- --------------vb如何全盘模糊搜索文件夹,比如包含"博客"和"代码"字样的文件夹-------------
- →→→→→→→请教,这个搜索模块,如果我只想搜索"文件夹"而不要"文件"的话,要怎么修改一下?
Dim ctl1 As Control
For Each ctl1 In Me.Controls
Debug.Print ctl1.Name
Next ctl1End Sub
Dim ctl1 As Control
For Each ctl1 In Me.Controls
Debug.Print ctl1.Name
Next ctl1End Sub
就这样,很标准的
For Each...Next 语句示例
本示例使用 For Each...Next 语句搜寻集合中的所有成员的 Text 属性,查找“Hello”字符串。示例中,MyObject 是面向文本的对象,并且是 MyCollection 集合的成员,这两个名字只是为示范目的而使用的通用名称而已。Dim Found, MyObject, MyCollection
Found = False ' 设置变量初始值。
For Each MyObject In MyCollection ' 对每个成员作一次迭代。
If MyObject.Text = "Hello" Then ' 如果 Text 属性值等于“Hello”。
Found = True ' 将变量 Found 的值设成 True。
Exit For ' 退出循环。
End If
Next