پاک کردن متن تمامی تکس باکسها

[oliya24]

سلام دوستان من چطور میتونم تمامی textbox های روی فرم رو پاک کنم
نمیخوام برای هر کنترل بنویسم textbox1.clear()
میخوام یه دکمه بزارم ووقتی اون رو کلیک میکنم تمامی تکس باکسها پاک بشن

[minaforotan]

dim item as object
for each item in me.controls
if item.gettype() is gettype(textbox) then
directcast (item,textbox).clear
end if
next

[oliya24]

دوست عزیز دستت درد نکنه میشه خواهش کنم این کد رو یه توضیح بدید خیلی جالب بود وقعا ممنون

[Mani_rf]

خیلی ساده است؛ همه کمترل های روی صفحه را میخونه و اگر از نوع تکس باکس باشد؛ به تکس باکس تبدیل می کند و آنها را خالی میکند.
نکته : اگر تکس باکس ها درون یک پنل یا یک گروپ باکس باشد با این کد تکس باکس ها پیدا نخواهند شد.

[oliya24]

مشه یگید اگر داخل گروپ باشن باید چه کرد؟؟؟

[Mani_rf]

باید For Each را روی گروپ باکس ها بگذاری.
یا اینکه از توابع بازگشتی استفاده کنی

[oliya24]

سلام نمیشه خطا میده میشه یه راهنمایی بفرمایید کد به من خطا داد

[oliya24]

اقای مانی دستتون درد نکنه حق با شماست شما استاد همه ما هستید
کد رو میگذارم برای دوستان این کد برای اینه که اگر تکس باکسها در کنترل گروپ باکس بود بتونیدبا یک کلیک بر روی دکمه همه تکس باکسها رو خالی کنید
کد به این صورته
dim i_control as new control
for each i_control in groupbox1.controls
if typeif (i_control)is textbox then
i_control.text=""
end if
next

[oliya24]

حالا یه سوال دیگه وقتی که مثلا 2 -3 تا گروپ باکس داشته باشیم چی این کدها که کار نمیکنه باید چه کرد؟؟؟؟؟
لطفا راهنمایی کنید

[Mani_rf]

حالا یه سوال دیگه وقتی که مثلا 2 -3 تا گروپ باکس داشته باشیم چی این کدها که کار نمیکنه باید چه کرد؟؟؟؟؟
لطفا راهنمایی کنید

با استفاده از توابع بازگشتی باید این کار را انجام دهید. تابعی بنویسید که اگر شی گروپ باکس بود آن را دوباره به تابع بفرستد.