For each و کنترلهای ساخته شده در حالت کد نویسی ؟

[habedijoo]

دوستان سلا م
اگر فقط تعدادی TextBox روی فرم باشد بوسیله دستور زیر می توان همه انها را مخفی کرد

For each A as TextBox in Me.Controls
A.hide
Next

فرض کنید تعدادی شی مثل Button , TextBox , Label , روی فرم داریم . من باید چه دستوری با For each بنویسم تا فقط TextBox ها را مخفی کنم .

.

[Ehsan Zand]

این طوری:

Dim oCurr as Object

For each ocurr in Me.Controls

if typof ocurr is TextBox Then

ocurr.visible=false

end if

Next

[Ehsan Zand]

‏ببخشید TypeOf درست است . در کد بالا اصلاح کنید.

[habedijoo]

ممونم دوست عزیز

بصورت زیر هم می شود
if TypeName="TextBox"
به هر حال متشکرم