Элемент управления RichTextBox

Exit Sub

ErrHandler

Exit Sub

‘Обработка ошибки

‘Пользователь нажал кнопку Cancel

Элемент управления RichTextBox позволяет пользователю вводить и редактировать текст, обеспечивая расширенные возможности форматирования, по сравнению со стандартным элементом управления TextBox. Эти возможности реализуются через форматирование любой части текста внутри элемента управления. Для изменения формата текста (символов и абзацев), его сначала нужно выбрать. Используя специальные свойства, можно сделать текст полужирным или курсивным, изменить его цвет и создать верхние и нижние индексы.

Элемент управления RichTextBox открывает и сохраняет файлы как в формате RTF, так и в обычном текстовом формате ASCII. Совместно с операторами файлового ввода-вывода Visual Basic для непосредственного чтения и записи файлов можно использовать методы LoadFile и SaveFile или свойства SelRTF и TextRTF элемента управления.

Через коллекцию OLEObjects элемент управления RichTextBox поддерживает внедрение объектов. Каждый объект, вставленный в элемент управления, будет представлен объектом OLEObject. Это позволяет создавать составные документы, которые содержат другие документы или объекты. Например, можно создать документ, который содержит внедренную электронную таблицу или диаграмму Microsoft Excel, или документ Microsoft Word или рисунок. Чтобы вставить объект в элемент управления RichTextBox, нужно просто перенести файл (например, из проводника Windows) или выделить часть файла, открытого в другом приложении (например, Microsoft Word), и положить содержимое непосредственно на элемент управления. Элемент управления RichTextBox поддерживает как технологию “drag and drop”, так и взаимодействие с буфером обмена.

Для добавления элемента RichTextBox на панель управления необходимо выбрать меню Project, команду Components. В списке Controls выделить MicrosoftRichTextBox флажком.

Элемент управления RichTextBox поддерживает почти все свойства, события и методы, присущие стандартному элементу управления TextBox, такие как MaxLength, MultiLine, ScrollBars, SelLength, SelStart и SelText. Для элемента управления RichTextBox не устанавливается ограничение длины текста в 64К, как для стандартного TextBox.

Свойства элемента управления RichTextBox

Элемент управления RichTextBox обладает как некоторыми свойствами элемента управления TextBox, так и присущими только ему свойствами.

AutoVerbMenu – устанавливает значение, указывающее, будут ли выбранные слова показаны во всплывающем меню при нажатии правой кнопки мыши: (значения True / False).

Для изменения атрибутов шрифта выделенного текста используются свойства SelFontName, SelFontSize, SelFontColor. Эти свойства воздействуют только на выбранный текст или, если текст не выбран, на текст, который располагается после текущей позиции курсора.

Для создания абзацных отступов используются свойства:

SelIndent - абзацный отступ (в ед. измерения, заданной свойством ScaleMode контейнера, например, формы);

SelHangingIndent - висячийотступ;

SelBullet – определяет стиль абзаца в виде списка (True / False);

BulletIndent - отступ в списке.

DisableNoScroll – устанавливает значение, указывающее, доступны ли полосы прокрутки: (Truе /False).

FileName – определяет имя файла, загруженного в RichTextBox.

RightMargin – правый край (чтобы текст не “уходил” за правый край окна, следует установить значение этого свойства немного меньшим, чем значение свойства Width твипсов на 500).

HideSelection – определяет, останется ли выделенным абзац, если элемент потерял фокус: (True, False).

MaxLength – определяет максимальное количество символов, которые может содержать элемент управления RichTextBox

ScrollBars – устанавливает значение, определяющее, имеет ли элемент управления горизонтальную либо вертикальную полосы прокрутки:

0-rtfNone- не имеет полос прокрутки

1-rtfHorizontal- только горизонтальная

2-rtfVertical- только вертикальная

3-rtfBoth- и горизонтальная, и вертикальная

Text – текст, расположенный в элементе управления.

События элемента управления RichTextBox

Change – изменение в элементе RichTextBox.

Click, DblСlick – одинарный/двойной щелчок кнопки мыши.

DragDrop – перетащить и оставить.

DragOver – перетащить с помощью мыши.

GotFocus, LostFocus – приобрести/потерять фокус (активность).

KeyDown, KeyUp – нажатие/отпускание клавиши.

KeyPress – какая клавиша нажата.

MouseDown, MouseUp – нажатие/отпускание клавиши мыши.

MouseMove – перемещение указателя мыши.

Методы элемента управления RichTextBox

Drag – начинает, заканчивает или отменяет операцию по перемещению объекта.

Find – проводит поиск в тексте элемента RichTextBox заданной строки.

LoadFile – загружает файл с расширением.RTF или.TXT в элемент RichTextBox. Формат метода:

ОбъектRTB. LoadFile(путь, тип файла )

Move – передвигает объект в заданные координаты.

Refresh – ускоренная перекраска элемента управления. Формат метода: ОбъектRTB.Refresh

SaveFile – сохраняет содержание элемета RichTextBox в файл.

Формат метода: ОбъектRTB. SaveFile(путь, тип файла )

SelPrint – посылает отформатированный в RichTextBox текст на печать. Формат метода: ОбъектRTB. SelPrint ()

SetFocus – перемещает фокус на определенный объект.

Для элемента управления RichTextBox с помощью методов LoadFile и SaveFile можно легко открывать или сохранять файлы RTF. Чтобы получить доступ к файлам, рекомендуется использовать элемент управления CommonDialog.

Пример. В форме имеется элемент управления RichTextBox под именем rtfData и элемент управления CommonDialog под именем dlgOpenFile. В процедуре для имени открываемого файла объявляется переменная типа String, открывается окно диалога ShowOpen и переменной присваивается имя выбранного файла.

Private Sub OpenFile()

Дата добавления: 2014-12-10