PDA

View Full Version : تغییر BackColor تکست باکس


Hoseynseyedan
یک شنبه 02 تیر 1392, 17:08 عصر
با سلام
من برنامه ای نوشتم که توی قسمت های مختلفش تکست باکس های زیادی داره. من میخوام وقتی یک تکست باکس فوکوس گرفت رنگ پس زمینش تغییر کنه.
حالا باید برای این کار واسه هر تکست باکس یک کد جدا بنویسم؟ یا کدی هست که بشه به صورت کلی برای تمام تکست باکس ها نوشت؟
ممنونم
vbhamed
یک شنبه 02 تیر 1392, 19:02 عصر
سلام
textbox ها رو به صورت آرايه اي استفاده كنيد (بهشون Index بدين)
بعد در متد GotFocus و LostFocus دستورات تغيير رنگ رو بنويسيد مثل نمونه زير
Private Sub txt_GotFocus(Index As Integer)

txt(Index).BackColor = vbYellow

End Sub

Private Sub txt_LostFocus(Index As Integer)

txt(Index).BackColor = vbWhite

End Sub
Hoseynseyedan
دوشنبه 03 تیر 1392, 00:45 صبح
سلام و سپاس از راهنمایی تون جناب vbhamed عزیز
یه سوال دیگه! آیا دستوری هست که بشه با استفاده از اون تمام یا قسمتی از متن داخل تکست باکس رو انتخاب کرد؟
SlowCode
دوشنبه 03 تیر 1392, 13:26 عصر
سلام

Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus

selstart مکان شروع انتخاب رو تنظیم میکنه.
به selLength هم تعداد کاراکتری رو که باید انتخاب بشه رو میدی.