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

Этот компонент отсутствует в стандартной панели инструментов, его нужно туда добавить:

1. Пункт меню Project \ Components

2. Выбрать Microsoft RichTextBox Control 5.0

Этот элемент позволяет выводить текст шрифтами разного стиля, разного размера и разного цвета. Кроме того, отсутствует ограничение на размер вводимого текста в 64 КВ.

Для демонстрации возможностей элемента напишите следующее приложение:

Имя RichTextBox 1 было заменено на RTB.

Код

Private Sub Command 1_Click()

RTB.SelBold = Not (RTB.SelBold)

sf

End Sub

Private Sub Command2_Click()

RTB.SelUnderline = Not (RTB.SelUnderiine)

sf

End Sub

Private Sub Command3_Click()

RTB.Selltalic = Not (RTB.Selltalic)

sf

End Sub

Private Sub Command4_Click()

Static с As Integer: с = с + 1 I

If c/2=c\2 Then ' смотри ниже

RTB.SelColor = vbBlack

Else

RTB.SelColor = vbRed

End If

sf

End Sub

Private Sub Command5_Click()

Static n As Integer

n = n + 10

RTB.SelFontSize = n

sf

End Sub

Public Sub sf()

RTB.SetFocus

End Sub

Эта программа изменяет параметры ВЫДЕЛЕННОГО текста. Однако при работе видно неудобство - выделение снимается, хотя все работает. Чтобы выделение не снималось, надо свойство RTB.HideSelection установить в false.

Далее, для того, чтобы курсор находился все время в поле текста, создана подпрограмма установки фокуса. Подпрограмма использована для того, чтобы не писать 5 раз одну и ту же строку RTB.SetFocus. Как видите, подпрограмма вызывается по имени в конце каждой процедуры. Условие с/2 = с\2 проверяет четность переменной с.(Вспомните - целочисленной деление «\». т.е. деление без остатка). Если «с» - четное, то печатает черным, иначе - красным.