چگونه می توان بمحض focus شدن روی یک آبجکت رنگ آن آبی گردد.

[alivafadarpour]

دوستان سلام .
چگونه می توان بمحض focus شدن روی یک آبجکت رنگ آن آبی گردد و بمحض خارج شدن از حالت focus رنگ آن به حالت اول برگردد.

من 40 تا textbox دارم و همچنین 10 تا commandbutton و 6 تا datacombo

می توانم از lostfocus و gotfocus استفاده کنم ولی برای 40 تا textbox کد نویسی بیشتر می شود.

[مهران رسا]

در چنین حالتی تنها چاره کار استفاده از gotfocus و lostfocus هست . ولی چون شما می خواین کد نویسی برنامه زیاد نشه . می تونید از UserControl استفاده کنید .

یعنی یه دونه کنترل میسازی و هر چند تا خواستی ازش استفاده می کنی .
به زبان دیگه شما باید یه Componnet بسازی !!!

[Mr'Jamshidy]

دوستان سلام .
چگونه می توان بمحض focus شدن روی یک آبجکت رنگ آن آبی گردد و بمحض خارج شدن از حالت focus رنگ آن به حالت اول برگردد.

من 40 تا textbox دارم و همچنین 10 تا commandbutton و 6 تا datacombo

می توانم از lostfocus و gotfocus استفاده کنم ولی برای 40 تا textbox کد نویسی بیشتر می شود.



Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = vbBlue
End Sub
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = vbWhite
End Sub

[فاطمه وطن دوست]

سلام
این برنامه بهتون کمک میکنه.

[UpgradeVB6Code]

هر دو تا سورس جالب بودند.:تشویق:

[ali_habibi1384]

آقای mrjamshidi شما به صورت سوال توجه نکردی ایشون میکن نمی هوان از lostfoucus و gotfocus استفاده کنند! کدی که شما نوشتی از همون روشه!

[vbhamed]

سلام
اگر بتونی TextBox ها رو ایندکسی کنی، می تونی از همون GotFocus و LostFocus استفاده کنی بدون ینکه کد نویسی زیاد بشه
چون فقط یک بار کد رو می نویسی و هر چند تا TextBox داشتی برای همشون اعمال میشه