PDA

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



habedijoo
دوشنبه 17 مرداد 1384, 10:16 صبح
دوستان سلا م
اگر فقط تعدادی TextBox روی فرم باشد بوسیله دستور زیر می توان همه انها را مخفی کرد

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

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

.

Ehsan Zand
دوشنبه 17 مرداد 1384, 13:28 عصر
این طوری:


Dim oCurr as Object
For each ocurr in Me.Controls
if typof ocurr is TextBox Then
ocurr.visible=false
end if
Next

Ehsan Zand
دوشنبه 17 مرداد 1384, 13:31 عصر
‏ببخشید TypeOf درست است . در کد بالا اصلاح کنید.

habedijoo
سه شنبه 18 مرداد 1384, 11:14 صبح
ممونم دوست عزیز

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