Интернет-журнал "Домашняя лаборатория", 2007 №4

Свойство ∙ Описание

SelBold ∙ Если установлено True, то выделенный текст отображается полужирным стилем.

Selltalic ∙ Если установлено True, то выделенный текст отображается курсивом.

SelUnderline ∙ Если установлено True, то выделенный текст подчеркивается.

SelStrikeThru ∙ Если установлено True, то выделенный текст перечеркивается.

Создайте новый проект и расположите на экранной форме объект управления данными, текстовое окно, улучшенное текстовое окно и пять командных кнопок, как показано на рис. 9.3. Обычное текстовое окно позволит увидеть, что представляет собой текст в формате RTF.

Рис. 9.3.Расположение элементов управления на экранной форме

Определите свойства объекта управления данными DataBaseName и RecordSource как “C: \WORK\RICH.MDB” и “Texts”, соответственно. Свойства остальных объектов, расположенных на форме установите следующим образом:

Command1.Caption=Полужирный

Command2.Caption=Курсив

Command3.Caption=Подчеркнутый

Command4.Caption=Перечеркнутый

Command5.Caption=Добавить

Text1.DataSource=Data1

Text1.DataField=Textl

RichTextBox1.DataSource=Data1

RichTextBox1.DataField=Text1

В процедуры обработки событий нажатия командных кнопок добавьте следующий код:

Private Sub Command1_Click()

If RichTextBox1.SelBold = Fulse Then

        RichTextBox1.SelBold = True

Else

        RichTextBox1.SelBold = Fulse

End If

End Sub

Private Sub Command2_Click()

If RichTextBox1.Selltalic = Fulse Then

         RichTextBox1.Selltalic = True

Else

          RichTextBox1.Selltalic = Fulse

End If

End Sub

Private Sub Command3_Click()

If RichTextBoxl.SelUnderline = Fulse Then

          RichTextBox1.SelUnderline = True

Else

          RichTextBox1.SelUnderline = Fulse

End If

End Sub

Private Sub Command4_Click()

If RichTextBox1.SelStrikeThru = Fulse Then

          RichTextBox1.SelStrikeThru = True

Else

          RichTextBox1.SelStrikeThru = Fulse

End If

Private Sub Command5_Click()

          Data1.Recordset.AddNew

End Sub

Сохраните и запустите проект. Добавьте произвольную текстовую строку в базу данных и проведите операции форматирования выделяемых участков текста с помощью командных кнопок.

Результат работы этого приложения показан на рис. 9.4. Обратите внимание на то, как в обычном текстовом окне отображается содержимое объекта RichTexBox.

Рис. 9.4.Результат работы приложения

Урок 10 Применение Data Form Wizard для быстрого создания экранных форм

Для быстрого создания приложений, предназначенных для работы с базами данных, может быть использован Мастер форм данных (Data Form Wizard). Эта программа — Мастер входит в комплект поставки Visual Basic и доступна из меню Add-Ins (Дополнения). Однако, по умолчанию, запуск этого приложения недоступен и соответствующую команду следует сначала добавить в меню при помощи Менеджера дополнений (Add-In Manager). Выполните команду меню Add-Ins->Add-In Manager, отметьте контрольный индикатор VB Data Form Wizard в диалоговом окне Менеджера дополнений и подтвердите сделанный выбор нажатием кнопки ОК. Теперь запуск этой программы доступен из меню Visual Basic.

С помощью Мастера форм данных вы в интерактивном режиме легко создадите экранную форму приложения, откроете требуемую базу данных и определите источники данных, расположите на форме объект управления данными и связанные с ним элементы управления Visual Basic. Причем, тип связанных элементов управления будет соответствовать данным, содержащимся в соответствующем поле базы данных. Если потребуется, вы легко добавите на форму командные кнопки для выполнения таких типичных действий пользователя, как добавление или удаление записей, обновление данных и завершение работы приложения.