رنگی کردن کنترل فعال

[kebriya]

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


Private Sub nickname_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nickname.Leave
nickname.BackColor = Color.White
End Sub

Private Sub nickname_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nickname.Enter
nickname.BackColor = Color.LightYellow
End Sub

[Hossis]

مشکلي که هست اينه که بايد بري هر کنترلي اين کد رو تکرار و وقت زيادي مي بره و جاي زيادي مي گيره
راه بهتر اينه که يک روال بنويسيد و همه کنترل ها رو به اون هندل کنيد ، اونوقت براي تغيير رنگ زمينه ، از Sender استفاده کنيد
به اين نمونه توجه کنيد



Private Sub nickname_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Leave,button2.Leave,button3.Leave,button4. Leave
sender.BackColor = Color.White
sender.borderStyle=fixed3D
End Sub

در رويداد Enter هم به همين منوال عمل مي کنيد

[kebriya]

میشه بیشتر راهنماییم کنین. این روال که میگین کجا بذارم؟توی همه فرمهام؟

[kebriya]

کی میتونه جواب سوال منو بده؟؟؟؟؟؟؟؟؟؟؟

[nima898]

سوال جالبی بود
در همین راستا میشه کنترل سفارشی ایجاد کرد؟ و اگه میشه چطور؟

[kebriya]

بازم به شما، دستت درد نکنه من نوشتم آپلود می کنم برای آیندگان:لبخند:

[Hossis]

میشه بیشتر راهنماییم کنین. این روال که میگین کجا بذارم؟توی همه فرمهام؟
همون روالي که شما گذاشتيد (اگه رويداد بنويسم بهتره) به آخر خط اول توجه کنيد معلوم ميشه
شما اون کد من رو به جاي کد خودتون وارد کنيد ، فقط همين

[kebriya]

همون روالي که شما گذاشتيد (اگه رويداد بنويسم بهتره) به آخر خط اول توجه کنيد معلوم ميشه
شما اون کد من رو به جاي کد خودتون وارد کنيد ، فقط همين

این button1,... که گذاشتین یعنی واسه همه این کنترلها؟ تعدادش مهم نیست؟