اوبالیت به بو
جمعه 03 اسفند 1386, 12:34 عصر
چرا تو حلقه For از Each استفاده می کنن. کارش چی هست؟
majid325
جمعه 03 اسفند 1386, 14:08 عصر
زمانی شما یه 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 فرم رو نشون میده.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.