پاک کردن متن همه textboxهای داخل tab control

[kebriya]

سلام دوستان خسته نباشید.
با کد زیر میتونیم textbox های فرم را یکجا clear کنیم :



Dim item as Object
For Each item In Me.Controls
If item.GetType() Is GetType(TextBox) Then
DirectCast(item, TextBox).Clear()
End If
Next

ولی من یه tab control دارم میخوام متن توی text ها رو اینجوری پاک کنم ولی با این کد هر کنترلی که توی فرم هست رو تست میکنه نه کنترلهایی که توی groupbox یا tabpage هستند.چیکار باید بکنم؟

[taghi.km]

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

For Each item In Me.Controls
خود tab شامل یه مجموعه از کنترل ها میشه باید تو اون مجموعه کار کنی

For Each item In tab1.Controls

[devhandler]

برای این کار باید روی کنترل های داخل Tab این عملیات رو انجام بدی:


Dim item as Object
For Each item In TabControl1.SelectedTab.Controls
If item.GetType() Is GetType(TextBox) Then
DirectCast(item, TextBox).Clear()
End If
Next