[
نوشته شده توسط
ms2222
کلا فکر نکنم با For بشه این کارو کرد چون فرم یک شی هست و VB چنین ارجایی رو قبول نمیکنه مثلا:
fori= 1 to 5
"form"& i.backcolor=vbred
next i
دوست عزیز دستور For Each به منظور اجرای حلقه برای اشیا قابل استفاده است که در VBA از این دستور استفاده می شود ولی فکر کنم در دستورات vb6 چنین موردی موجود نیست.
به هر حال منظور من تغییر برخی از خاصیت های فرم های داخل یک پروجکت می باشد که توسط این حلقه این کار سریعتر انجام می شود فقط نحوه استفاده از این حلقه را برای فراخوانی فرمها نمی دانم مثال زیر نمونه ای است از استفاده از این حلقه:
Dim Found, MyObject, MyCollection
Found = False
For Each MyObject In MyCollection
If MyObject.Text = "Hello" Then
Found = True
Exit For
End If
Next