עזרה עם RichTextBox
עשיתי עורך html ויש לי איתו בעיה רצינית. עשיתי פרוצדורה שצובעת את התגי השפה אבל היא צובעת ממש לאט! בהתחלה חשבתי שהבעיה היא האלגוריתם שבניתי לחיפוש התגים אבל כשבדקתי לעומק ראיתי שזאת למעשה לא הבעיה... הבעיה האמיתי היא הצביעה באופן פיסי שמתבצעת על ידי שלוש שורות בלבד שחוזרות על עצמן המון פעמים: Public Sub ColorTXT(St As Long, Le As Long, Co As String) EH.Text1(SelDoc).SelStart = St EH.Text1(SelDoc).SelLength = Le EH.Text1(SelDoc).SelColor = Co End Sub לכאורה דבר פשוט אבל כשהוצאתי אותו מהתוכנה מהירות הצביעה עלתה פלאים! קובץ שהיה נצבע ב 20 שניות נצבע רק ב 5 שניות שאומנם גם זה לא מהיר במיוחד אבל הרבה יותר טוב. שאלתי היא האם יש דרך מהירה יותר לצבוע בתוך RichTextBox? אני בטוח שאפשר מכיוון שאני מכיר תוכנה שצובעת את הקובץ בשניה! איך עושים את זה? מישהו יכול לעזור בבקשה... בתודה אורן
עשיתי עורך html ויש לי איתו בעיה רצינית. עשיתי פרוצדורה שצובעת את התגי השפה אבל היא צובעת ממש לאט! בהתחלה חשבתי שהבעיה היא האלגוריתם שבניתי לחיפוש התגים אבל כשבדקתי לעומק ראיתי שזאת למעשה לא הבעיה... הבעיה האמיתי היא הצביעה באופן פיסי שמתבצעת על ידי שלוש שורות בלבד שחוזרות על עצמן המון פעמים: Public Sub ColorTXT(St As Long, Le As Long, Co As String) EH.Text1(SelDoc).SelStart = St EH.Text1(SelDoc).SelLength = Le EH.Text1(SelDoc).SelColor = Co End Sub לכאורה דבר פשוט אבל כשהוצאתי אותו מהתוכנה מהירות הצביעה עלתה פלאים! קובץ שהיה נצבע ב 20 שניות נצבע רק ב 5 שניות שאומנם גם זה לא מהיר במיוחד אבל הרבה יותר טוב. שאלתי היא האם יש דרך מהירה יותר לצבוע בתוך RichTextBox? אני בטוח שאפשר מכיוון שאני מכיר תוכנה שצובעת את הקובץ בשניה! איך עושים את זה? מישהו יכול לעזור בבקשה... בתודה אורן