عمل replace در ابزار richtextbox

[as987498749874]

سلام دوستان
من به یه مشکل اساسی خوردم
یه rtf درست کردم که می خوام بعد لود یه عمل replace توش انجام بشه،در صورتی که در خصوصیاتش اصلا نداره و وقتی از دستور replace استفاده میکنم یا استایل متن میره یا جایگزنی خراب در میاد

باید چه کنم؟؟؟/
مرسی

[vbhamed]

سلام
از تابع زیر برای تغییر استفاده کنید
Public Function FindReplaceRTB(rtb As RichTextBox, strFindString As String, strReplaceString As String) As Long

Dim lFoundPos As Long 'Position of first character

'of match
Dim lFindLength As Long 'Length of string to find
Dim bTryAgain As Boolean
Dim lOriginalSelStart As Long
Dim lOriginalSelLength As Long
Dim iMatchCount As Long

With rtb

'Save the insertion points current location and length
lOriginalSelStart = .SelStart
lOriginalSelLength = .SelLength

'Cache the length of the string to find
lFindLength = Len(strFindString)

'Attempt to find the first match
lFoundPos = .Find(strFindString, 0, , rtfNoHighlight)

'If the First Item in the RTB is found then allow a second
'Match to be attempted
bTryAgain = IIf(lFoundPos = -1, False, True)

Do While lFoundPos > 0 Or bTryAgain

'When the last character is found exit
If lFoundPos = Len(.Text) Then Exit Do

'Reset the Try Again
bTryAgain = False

'Track Matches
iMatchCount = iMatchCount + 1

rtb.SelStart = lFoundPos
'The SelLength property is set to 0 as
'soon as you change SelStart
.SelLength = lFindLength
.SelText = strReplaceString

'Attempt to find the next match
lFoundPos = .Find(strFindString, lFoundPos + lFindLength, , rtfNoHighlight)
Loop

'Restore the insertion point to its original
'location and length
.SelStart = lOriginalSelStart
.SelLength = lOriginalSelLength

End With

'Return the number of matches
FindReplaceRTB = iMatchCount

End Function

روش استفاده :
FindReplaceRTB RichTextBox1, "عبارت قبلي", "عبارت جديد"

[R2du-soft]

استاد یک سوال،وقتی از تابع استفاده میکنم از :

Public Function FindReplaceRTB(rtb As RichTextBox, strFindString As String, strReplaceString As String) As Long


ارور میگیره و برنامه اجرا نمیده!؟

[vbhamed]

سلام
دوست عزیز، خود شما به این سوال می‌تونی جواب بدی ؟
حداقل پیام خطا رو بزارید یا خود برنامه رو

[R2du-soft]

مشکل از اشتباه خودم بود :افسرده: ممنون مشکل حل شد :لبخند: