استفاده تمام text box های روی فرم از یک دستور

[hosseinbarnamenevis]

سلام دوستان
من یه قسمت از برنامم به شکلی هست که text box زیادی داره
من میخوام وقتی کاربر وارد یا خارج از text box ها میشه رنگ تکست باکس ها عوض بشه
اگه بخوام واسه هرکدوم کد بنویسم خب کار جالبی نیست
چطور میتونم واسه یکی از تکست باکس ها بنویسم و بقیه هم از همون استفاده کنن؟

[zahedi121]

سلام
باید از handler استفاده کنید ، مثلا برای ورود به تکس باکس این میشه :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each texts As TextBox In Me.Controls

AddHandler texts.Enter, AddressOf texts_enter

Next
End Sub
Private Sub texts_enter(ByVal sender As Object, ByVal e As EventArgs)
sender.backcolor = Color.Black
End Sub

موفق باشید

[MOR_MS]

سلام
دوست عزيز اگر روي فرم كنترولهاي ديگري باشه ارور ميده

[pooya1072]

اگه به این قسمت از کدی که دوستمون گذاشته توجه کنی :

For Each texts As TextBox In Me.Controls

میبینی که در لیست کنترل ها فقط به دنبال تکست باکس می گرده . میتونی به جای تکست باکس دنبال نوع Control بگردی . بعد تست کنی اگه تکست باکس بود یا هر چیز دیگه عملیاتی رو که می خوای روش انجام بدی .
به شکل زیر :

For Each Ctrl As Control In Me.Controls

    if Typeof(ctrl) Is TextBox Then

        'Your Command

   End If

Next

حالا اگه به جز تکست باکس کنترل دیگه ای هم وجود داشته باشه دیگه ارور نمیده .

[armin8651]

به طور معمول برای این کار باید user control ساخت!

[hosseinbarnamenevis]

خب اگه میشه با یه مثال توضیح بدید

[armin8651]

از تاپیک زیر میتونین برای آشنایی با user control استفاده کنید:
مقاله درباره طریقه ساخت user control

user control برای این نوع تکست باکس رو هم خودم توی یک برنامه نوشتم و تو یک فرم چند نمونه از اون رو گذاشتم، لینک دانلود برنامه: TestUC.zip