دستور Each در حلقه!

[اوبالیت به بو]

چرا تو حلقه For از Each استفاده می کنن. کارش چی هست؟

[majid325]

زمانی شما یه Collection داری که میخوای تو اون loop بزنی.

Dim ctlLbl As Control

For Each ctlLbl In Me.Controls '
If (TypeOf ctlLbl Is Label) Then
MsgBox ctlLbl.Name
End If
Next ctlLbl

Set ctlLbl = Nothing


کد فوق نام تمام Label فرم رو نشون میده.