Текстообработка чрез контрола Rich Textbox

Текстообработка чрез контрола Rich Textbox

Същност на контрола Rich Textbox • Създава по-добра среда за работа с текст от стандартния контрол TextBox. • Използва формата RTF, който добавя специални форматиращи тагове като в езика HTML. Така информацията може да бъде запазена във форматиран вид.

Добавяне на контрола • От командата Components в меню Project избирате контрола Microsoft Rich Textbox Control 6.0 • Използването му е аналогично с контрола Textbox.

Свойства на Rich Textbox контрола • SelText-представлява селектирания в момента текст • SelFontName- шрифт на селектирания текст • SelFontSize • SelColor • SelBold • SelItalic • SelUderline • SelStrikethru- зачертаване на селектирания текст

Използване на свойствата • RichTextBox1.SelFontName = “Arial” • RichTextBox1.SelFontSize = 14 • RichTextBox1.SelBold = Not RichTextBox1.SelBold • RichTextBox1.SelStrikeThru = Not RichTextBox1.SelStrikeThru

Методи на Rich Textbox контрола • SetText-изпраща селектирания текст във WindowsClipboard. • GetText-взима текста от WindowsClipboard. • Find-търси текст.

Използване на методите • За меню Copy: Clipboard.SetText RichTextBox1.SelRTF • За меню Paste: RichTextBox1.SelRTF = Clipboard.GetText • SelRTFе свойство, съдържащо както текста така и информация за неговото форматиране.

Командата Find • Синтаксис: RichTextBox1.Find(низ, начало, край, опции) • Семантика- : • Аргументът низ задава текста, който искате да намерите; • Аргументът начало е началната позиция на търсенето; • Аргументът край посочва крайната точка на търсенето; • Аргументът опции задава следните команди: • rtfWholeWord-търсене на цяла дума; • rtfMachCase- търсене с отчитане регистъра на буквите; • rtfNoHighlight- осветяване на намерения низ в документа.

Допълнително пояснение за използване на командата Find • Горепосочената конструкция връща -1 ако не е намерена думата. Например: а = RichTextBox1.Find(“кон”, , , rtfWholeWord) Тази конструкция ще върне стойност -1 (т.е. а=-1) ако няма дума кон в документа. • Методът Span- селектира намерената дума в посока напред. Например: RichTextBox1.Span " ", True, True

Командата Open • Методът LoadFile- служи за отваряне текстов файл като предварително се избират: • Свойството rtfVertical-за разглеждане на документи повече от една страница. • Опциите rtfRTFи rtfText- задават типа на файла. • Пример: RichTextBox1.LoadFile “c:\temp.rtf”, rtfRTF

Команда Close с извършване на проверка за промяна • Събитие Change-се извършва при всяко променяне на съдържанието на текстовото поле. • По този начин можем да защитим потребителя от загуба на данни или грешки. • Пример: Dim UnSavedChanges as Boolean Private Sub RichTextBox1_Change() UnSavedChanges=True End Sub

Команда Save As • Метод SaveFile-записва файла. • Използва аргументите- име и място на файла. • Пример: RichTextBox1.SaveFile “c:\temp.rtf”, rtfRTF

Командата Print • Метод SelPrint-отпечатва избрания текст. • Използва се обекта Printerи свойството hDC, съдържащо текущият манипулатор на устройство на системния принтер. • Пример: RichTextBox1.SelPrint (Printer.hDc)

Командата Exit • Прекратяване на изпълнението на програмата става чрез конструкцията End. • Забележка: За да има вашата програма по-добра функционалност, командата Exitтрябва да съдържа в себе си командите Saveи Close.

Визуализиране на RTF кодовете на вашия документ • Трябва да сте съхранили файл в .rftформат. • При отварянето на файла използвате метода LoadFile но с опцията rtfText. • Например: RichTextBox1.LoadFile “c:\temp.rtf”, rtfText

Текстообработка чрез контрола Rich Textbox