مشكلة عند استخدام Richtextbox1.text.replace

و عليكم السلام ورحمة الله تعالى و بركاته...

يعني هذا حل على الطاير, يمكنك الإنتظار عسى أن يطرح حل أحسن الذي في نظري يجب أن يكون بتعديل تنسيق RTF عن طريق الخاصية Rtf و الخاصية Selected Rtf...

يمكنك تحرير الكود حتى يتوافق و مستلزمات مشروعك...

الكود :

	Sub ReplaceInRichTextBox(ByVal orig As String, byval text as String)
		Do
			' الوصول إلى النص المراد تغييره
			Dim i As Integer = richtextbox1.Find(orig)
			' إذا كان موجودا
			If i >= 0 Then
				' تحديده على مربع النص
				richtextbox1.Select(i, orig.Length)
				' تغييره مع الحفاظ على تنسيقه
				richtextbox1.SelectedText =text
			Else
				' الخروج إذا لم يبق هناك نص للتغيير
				exit sub
			End If
		Loop While true
	End Sub

المعامل الأول للدالة هو النص المراد تغييره

المعامل الثاني هو النص الذي سيأخد مكان النص المراد تغييره.

تحياتي...

على العموم شكرا جزيلا،،،،

جاء على بالي هذا الحل ولكن قلت عسى أن يكون هناك حل آخل ،،،،

شكرا ،،،،،