تغییر مشخصات کنترل ها

[msadgd]

سلام خدمت دوستان
برای تغییر خصوصیات کنترل ها به صورت همزمان (مثلا پاک کردن همه تکست باکسهای فرم) از کد زیر استفاده میکنیم.



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


حالا اگر توی فرممون یک تکست باکس اصلی داشته باشیم و نخوایم متن اون پاک بشه و بقیه تکست باکسا پاک بشن، چکار باید کرد؟

ممنون از راهنمایی هاتون

[ashkan209]

Dim item As Object
For Each item In Me.Controls
If item.GetType() Is GetType(TextBox) and item.name<> "TeaxtboxMain" Then
DirectCast(item, TextBox).Clear()
End If
Next