For Each element In group
Next [element]
这个表达式里面的group可能是什么类别?如果一个对象可以用For Each取出里面的每个成员,比如
For Each child in IISObject
childname=child.name
next
那么怎样获得其中某个(例如第一个)成员的值?
Next [element]
这个表达式里面的group可能是什么类别?如果一个对象可以用For Each取出里面的每个成员,比如
For Each child in IISObject
childname=child.name
next
那么怎样获得其中某个(例如第一个)成员的值?
解决方案 »
- 简单问题高分相送!!!!!!!!!!!!
- 在访问paradox数据库时,找不到可安装的ISAM?????????????
- 想问你个数学方面的问题。
- 请教MSHFlexGrid显示双精度数的问题
- 怎样找到数据库,对数据库进行操作??HELP.........
- 有没有什么api可以让Commandbuttion的边框消失?
- 求系统设计实例,简单一点的系统都可以。 [email protected]
- 请问如何在网页中用ACTIVEX EXE!---------------------------------谢谢
- 如何把一个(已装入资源中)EXE文件直接释放到内存而非磁盘,然后由VB调用(如Shell函数)
- 报错 “ScaleHeight”不是“System.Windows.Forms.PictureBox”的成员。
- 图片旋转的问题
- 关于串口通讯(急)-请教高手
[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 不能包含用户自定义类型。
================
本示例使用 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
For Each element In group
Next [element]
这个表达式里面的group可能是數組控件.For Each child in IISObject
childname=child.name
exit for
next那就只取第一個成員的
For Each objT In Me.Controls
MsgBox objT.Name
Next objT
'获得其中某个成员
Set objT=Me.Controls.Item("控件名称")
Msgbox objT.Name
Dim Alltextbox As TextBox
For Each Alltextbox In Me.Text1
MsgBox Alltextbox.Text '顯示每個textbox的成員text值
Next
还是报错
Dim frm As Form
For Each frm In Forms
Unload frm
Next