


| Phát biểu For Each...In ...Next |
Phát biểu For Each...In ...NextCú phápFor Each element In group [statements] [Exit For] [statements] Next [element] + element: bắt buộc, sử dụng biến này nhận giá trị của phần tử trong (In) mảng hay tổ hợp, kiểu dữ liệu của element phải cùng kiểu dữ liệu của phương thức trong mảng hay tổ hợp group + group: biến đối tượng bắt buộc và được tham chiếu như một mảng hay tổ hợp. Ví dụ: tìm kiếm đối tượng có Caption là Hello trong tập hợp đối tượng MyCollection Dim Found As Boolean=False Dim MyObject, MyCollection As Object For Each MyObject In MyCollection If(CStr(MyObject.Text="Hello")) Then Found=True Exit For End if Next |
| < Trước | Tiếp > |
|---|