أريد تحديد كلمة من وسط نص في Rich Textbox

:) تفضل اخي هيدي كود يقوم بتحديد ما تبحث عنه

Private Sub Command1_Click()


Dim x As String
Dim st As Integer


x = "Max bayne"


st = txt1.Find(x, 0, Len(txt1.Text))


txt1.SelStart = st
txt1.SelLength = Len(x)



End Sub

أشكرك أخي لكن الكود لم ينفع ولا علاقة له بما قلته

وجزاك الله خيرا

محمد زغلول كتب:

أريد تحديد كلمة من وسط نص في Rich Textbox عند الضغط عليها

طبعا عند الضغط عليها بالماوس داخل الصندوق , بحيث تظهر مثلا في text box

اسف اخي لم اقراء موضوعك بعناية واسف مرة اخري وجاري وضع كود لما تريد قريبا

الإخوة الكرام

مرفق المثال مع أداة Text box وأريد نفس المثال لكن مع أداة Rich Textbox

وجزاكم الله خيرا

Word.rar

مفيش أي مشكلة

وجدت الحل والحمد لله

مرفق الحل للإفادة

select.rar