أحمد مناع كتب:
الجواب هنا اخى الكريم

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

الكود:


Sub SelectAllText(tb As TextBox)
  tb.SelStart = 0
  tb.SelLength = Len(tb.Text)
End Sub

الكود:

 SelectAllText Text1

الكود:

Private Sub Text1_GotFocus()
  SelectAllText Text1
End Sub

أحمد مناع كتب:أخى الكريم كل ما عليك فعلة هو كتابة الكود التالى  فى اى مكان فى صفحة كتابة الكود

الكود:


Sub SelectAllText(tb As TextBox)
 tb.SelStart = 0
  tb.SelLength = Len(tb.Text)
End Sub

بعد ذلك حدد مربع النص المراد تحديد نصه عند تركيز المؤشر علية وفى حدث التركيز GotFocus أكتب الكود التالى :

الكود:

 SelectAllText Text1

ليصبح الكود كما يلى :

الكود:

Private Sub Text1_GotFocus()
 SelectAllText Text1
End Sub

حيث أن Text1 هو مربع النص المراد تظليل النص الموجود به