Dim fsox As New FileSystemObject
For Each i In fsox.Drives
Print i.DriveLetter
Next ifor后面怎么跟了个each啊?这是怎么回事啊?
什么时候才用这种for循环呢?
For Each i In fsox.Drives
Print i.DriveLetter
Next ifor后面怎么跟了个each啊?这是怎么回事啊?
什么时候才用这种for循环呢?
解决方案 »
- 利用textbox定位MSHFLEXGRID的问题!
- 抽奖问题
- 关于comboBox的问题?急.....50分送上
- 连接SQL得状态问题
- 编译成可执行文件时出现license information for this component not found。。。。
- vb中显示两个表的内容
- 在vb中使用odbc api函数与sql server 2000建立连接如何设置成windows 认证
- 请问各位哪里有“推(push)”技术聊天室的相关资料或源代码!?
- 一个十分面的问题
- ★★请教MciSendString()的具体用法!
- 求教:为什么我在winXP下装不上vb6.0??
- 如何才能在一段字符中以逗号为判断分别取出其中字母。
可以用 For Each来依次访问一个集合
在做数据库表显示的时候很有用的!
呵呵
自己去摸索以下!!
一般用于在集合中遍历查找其中一个数据.
一般用法(VB.net为例)将数组A,中的元素放到数组B中.
dim i as Integer
dim A(10) as string ={1,2,3,4,5,6,7,8,9,10}
dim B(10) as string
for i=0 to 9
B(i)= A(i)
next i
Dim IEList As New ShellWindows
Dim browser
Dim strTitle As String
Dim vDoc
On Error Resume Next
'遍历当前地浏览器窗口
i = 0
For Each browser In IEList
'你的处理过程
Next
[statements]
[Exit For]
[statements]Next [element]For...Each...Next 语句的语法具有以下几个部分:部分 描述
element 必要参数。用来遍历集合或数组中所有元素的变量。对于集合来说,element 可能是一个 Variant 变量、一个通用对象变量或任何特殊对象变量。对于数组而言,element只能是一个 Variant 变量。
group 必要参数。对象集合或数组的名称(用户定义类型的数组除外)。
statements 可选参数,针对 group 中的每一项执行的一条或多条语句。
说明如果集合中至少有一个元素,就会进入 For...Each 块执行。一旦进入循环,便先针对 group 中第一个元素执行循环中的所有语句。如果 group 中还有其它的元素,则会针对它们执行循环中的语句,当 group 中的所有元素都执行完了,便会退出循环,然后从 Next 语句之后的语句继续执行。在循环中可以在任何位置放置任意个 Exit For 语句,随时退出循环。Exit For经常在条件判断之后使用,例如If Then,并将控制权转移到紧接在 Next 之后的语句。可以将一个 For...Each...Next 循环放在另一个之中来组成嵌套式 For...Each...Next 循环。但是每个循环的 element 必须是唯一的。注意 如果省略 Next 语句中的 element,就像 element 存在时一样执行。如果 Next 语句在它相对应的 For 语句之前出现,则会产生错误。不能在 For...Each...Next 语句中使用用户自定义类型数组,因为 Variant 不能包含用户自定义类型。