3. Создаем меню

Создайте меню, состоящее из 2- х опций – File и Text. Каждая из них будет содержать подменю с командами: Open, Save. SaveAs (для опции File), Font, Color, Edit (для опции Text) и Cope, Cut, Paste (для опции Edit) (рисунок 1).

При создании меню присвойте командам опции File следующие имена MenuOpen, MenuSave и MenuSaveAs. Щелкнув любую команду опции File на этапе проектирования получите заготовку для создания программного кода, который обрабатывает событие – использование этой команды в рабочем режиме.

Рисунок 1 - меню

4. Приступаем к программированию

Следующая процедура выглядит следующим образом:

Private Sub Open_Click()

CommonDialog1.ShowOpen

RichTextBox1.LoadFile CommonDialog1.FileName

End Sub

Private Sub Save_Click()

CommonDialog1.ShowSave

If CommonDialog1.FileName = " " Then SaveAs_Click Else

RichTextBox1.SaveFile RichTextBox1.FileName, rtfRTF

End Sub

Private Sub SaveAs_Click()

CommonDialog1.ShowSave

RichTextBox1.SaveFile RichTextBox1.FileName, rtfRTF

End Sub

В этих процедурах используются два метода, которые можно применить к объекту RichTextBox – это методы LoadFile и SaveAs.

Теперь рассмотрим методы как можно изменять шрифт (Font) и цвет (Color) выделенного в текстовом поле фрагмента. Эта процедура выглядит следующим образом:

Private Sub Font_Click()

CommonDialog1.ShowFont

RichTextBox1.SelFontName = CommonDialog1.FontName

RichTextBox1.SelFontSize = CommonDialog1.FontSize

RichTextBox1.SelBold = CommonDialog1.FontBold

RichTextBox1.SelItalic = CommonDialog1.FontItalic

End Sub

Private Sub Color_Click()

CommonDialog1.ShowColor

RichTextBox1.SelColor = CommonDialog1.Color

End Sub

Теперь разберемся с тем, как организовать работу с буфером обмена (Clipboard) – копировать (Copy), вырезать (Cut) и вставлять(Paste)выделенные фрагменты текста.

Буфер обмена – это тоже объект VB, но его нельзя найти в арсенале Toolbox, так как это объект Windows. Но к этому объекту можно применять некоторые методы VB. Используем только 2 из них – SetText и GetText.

Программный код трех процедур позволяющих работать с SetText и GetText, следующий:

Private Sub Copy_Click()

Clipboard.SetText RichTextBox1.SelText

End Sub

Private Sub Cut_Click()

Clipboard.SetText RichTextBox1.SelText

RichTextBox1.SelText = " "

End Sub

Private Sub Paste_Click()

RichTextBox1.SelText = Clipboard.GetText

End Sub

Лабораторная работа № 19

«СОЗДАНИЕ ТЕСТА»

Цель работы: Познакомиться с элементами управления Visual Basic 6.0 Тext, Label, Check1, научиться пользоваться элементами управления и их свойствами

Задачи: Создать по примеру лабораторной тестовый опрос.

Ход работы:

1. Размещение объектов

На форме разместите восемь элементов управления: 3 текстовых поля и задайте им имена Text1, Text2, Text3, надпись с именем Label1, три флажка с именами Check1, Check2, Check3, одну командную кнопку, на которой сделайте надпись «Следующий». Оформление смотрите на рисунке 1.

Рисунок 1 – размещение объектов на форме