Элемент управления RichTextBox, как и стандартный TextBox, предназначен для ввода и редактирования текстов, однако обладает значительно более широкими возможностями.
Публикуется с разрешения авторов. (С) Андрей Колесов, Ольга Павлова Вперые опубликовано в электронной версии журнала "Мир ПК" N 3/99 | | Элемент управления RichTextBox, как и стандартный TextBox, предназначен для ввода и редактирования текстов, однако обладает значительно более широкими возможностями. Он позволяет управлять начертанием (полужирный шрифт, курсив) и цветом символов, применять эффекты (такие, как верхние и нижние индексы), форматировать абзац (задавать величину отступов, межстрочные интервалами и т. д.). В RichTextBox можно как задать формат вновь вводимого текста, так и изменить формат уже введенного, предварительно выделив его. Кроме того, обеспечивается работа с текстами большого размера (в TextBox длина текста ограничена 64 знаками). Важнейшие возможности - Открытие и сохранение текстовых файлов в форматах RTF и ASCII. Соответствующие функции обеспечиваются методами LoadFile и SaveFile; кроме того, можно применять обычные операторы VB, предназначенные для ввода-вывода файлов, совместно со свойствами SelRTF и TextRTF.
- Загрузка в элемент управления форматированных текстов путем перетаскивания (можно перетащить файл или выделенный фрагмент файла, открытого в другой программе).
- Печать текстов и выделенных фрагментов (метод SelPrint).
- Внедрение OLE-объектов с помощью метода Add коллекции OLEObject. Поддерживается перетаскивание в RichTextBox любых внедренных объектов (включая таблицы Excel и документы Word) как во время разработки, так и во время выполнения программы.
- Легкая адаптация приложений, в которых используется стандартный элемент управления TextBox: в RichTextBox поддерживаются почти все его свойства, события и методы.
Пример использования RichTextBox Добавьте к пользовательской форме элемент управления Microsoft RichText Control, version 5.0, после чего проделайте следующее. - Добавьте к той же форме элемент управления ComboBox ("Поле со списком").
- Для свойства Name элемента RichTextBox установите значение rtfODE, а для свойства Name элемента ComboBox -- cmbSetColor.
- Для свойства Caption пользовательской формы установите значение "Элемент управления RichTextBox".
- В окне кода введите следующий текст:
Option Explicit Private Sub cmbSetColor_Click() With rtfODE Select Case cmbSetColor.ListIndex Case 0 .SelColor = vbBlack Case 1 .SelColor = vbBlue Case 2 .SelColor = vbRed End Select End With End Sub Private Sub UserForm_Initialize() With cmbSetColor .AddItem "Черный" .AddItem "Синий" .AddItem "Красный" .ListIndex = 1 End With End Sub - Запустите пример на выполнение и введите в RichTextBox какой-нибудь текст. Выделите фрагмент текста и ппосмотрите, как будет меняться его цвет в зависимости от выбранного в ComboBox значения (см. рисунок).
Просмотров: 8259
Ваш коментарий будет первым | | |