سؤال بسيط

استخدم هذ الكود:

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

thanks man

السلام عليكم

يمكنك ايضا استعمال الكود التالي

Private Sub Command1_Click()
Text1.SetFocus
SendKeys "+" & "{END}"
End Sub

السلام عليكم جميعاً

قمت بتجربة مشاركة العضوين fizom , hishamnasr

وإليكم الفرق بالنسبة لكود fizom فانه يحدد كل النص مهما كان مكان المؤشر بينما مشاركة hishamnasr فان التحديد يكون بعد مكان المؤشر أي إذا كان المؤشر في المنتصف فإنه يحدد من المنتصف إلى النهاية.

السلام عليكم ام تسنيم

و شكرا على التنبيه

عدلت الكود ليواكب المطلوب

Private Sub Command1_Click()
Text1.SetFocus
SendKeys "{home}"
SendKeys "+" & "{END}"
End Sub

ارجو ان تجربيه

thanks man