شمردن کنترل image روی یک فرم

[aminkhorsandi]

سلام
می خواستم ببینم کسی میدونه چطور میشه کنترل های تصویر روی یک فریم (در صورتی که تعداد زیادی فریم با کنترل عکی داخل آنها روی فرم هستند) را شمارش کرد. من از مشخصه تگ برای تشخیص نوع تصویر استفاده میکنم (2 نوع تصویر است.) که با مشکل مواجه می شم.

[mRizvandi]

سلام

شما می تونی یا از کنترلهای آرایه ای استفاده کنی یا از این تیکه کد:

Dim objItem As Object
Dim intCounter As Integer

For Each objItem In Controls
If TypeOf objItem Is PictureBox Then
intCounter = intCounter + 1
End If
Next
MsgBox intCounter

به جای PictureBox نوع شی مورد نظرت رو می تونی قرار بدی، مثل: Image, TextBox, Label, ...