אני משתמש בקוד הבא
כדי לצבוע מילה מסויימת בRTB
כדי לצבוע מילה מסויימת בRTB
Dim place As Integer Dim startsel As Integer Dim koko As Integer Dim j As Integer startsel = RTB1.SelStart koko = -Len(word) Do koko = koko + 1 + Len(word) DoEvents place = InStr(koko, RTB1.Text, word) If place > 0 Then RTB1.SelStart = place - 1 RTB1.SelLength = Len(word) RTB1.SelBold = 1 RTB1.SelLength = 0 RTB1.SelStart = startsel Else Exit Do End If DoEvents Loop End If Next j
הקוד הבא בעצם צובע מחדש כל פעם את הRTB1 הבעיה שהפעולה הזאת לוקחת יותר מידי זמן כשיש הרבה טקסט. האם יש דרך להעתיק מחדש טקסט בRTB שיש עליו כבר כמה גופנים שונים ולהעתיק בדיוק את אותם עיצובים בלי לבנות מחדש אותם. תודה