Угринович Н., Босова Л., Михайлова Н. Практикум по информатике и информационным технологиям

Подождите немного. Документ загружается.

180

Глава

Для запуска редактора меню перейти в окно формы командой

[View-Object]

и ввести команду [Tools-Menu Editor...].

На

появившейся диалоговой панели Menu

Editor

создать за-

головок первого уровня. В поле

Caption

внести надпись Прав-

ка и в поле Name имя объекта

mnuEdit.

CdfiWon:

{Правка

Naae;

frnnuidit

Indejc:

) ..

gwtcut;.

[(None)

HdpContextlDr

NegottatePosition:

]o - None

f£hecfed P'.gnabted. . : F «$bte. , .

Г i^ndowtfc

••Вырезать

•Копировать

••Вставить

••Удалить

5 Для создания следующего пункта меню щелкнуть по кнопке

Next.

Для создания пункта меню уровня команд (например, коман-

ды меню Правка) щелкнуть по кнопке со стрелкой вправо.

Ввести надпись

Вырезать

и имя

mnuEditCut.

6 Повторить процедуру и создать команды, входящие в меню

Правка:

Копировать

(mnuEditCopy),

Вставить

(mnuEditPaste)

Удалить

(mnuEditDel).

Теперь необходимо для каждого пункта меню создать собы-

тийную процедуру, которая

будет

выполняться по щелчку

мыши.

В режиме конструирова-

ния

проекта раскрыть

меню и последовательно

двойным щелчком мыши

создать пустые заготовки

событийных процедур

для каждого пункта

меню.

Щ.

Текстовый

редактор

Вырезать

Копировать

Вставить

Удалить

Объектно-ориентированное

программирование на языке Visual

Basic

181

процессе

редактирования

текста

окне

txtEdit

необходи-

мо

использовать

для

промежуточного

хранения

фрагментов

текста

объект

Windows

Clipboard

(Буфер

обмена).

Сначала

необходимо

очистить

буфер

использованием

метода

Clear.

Затем поместить выделенный

текстовом поле фрагмент тек-

ста (свойство текстового поля Seltext)

буфер с использова-

нием метода буфера SetText.

Наконец, удалить выделенный текст, присвоив свойству

SelText пустое значение

"".

Таким образом, событийная процедура

для

команды меню

Вырезать запишется следующим образом:

Private

Sub

mnuEditCut_Click

()

ОЧИСТИТЬ

Буфер обмена

Clipboard.Clear

' Поместить выделенный текст

Буфер обмена

Clipboard.SetText frml.txtEdit.SelText

Удалить выделенный текст

frml.txtEdit.SelText

= ""

End

Sub

9 Событийная процедура для команды меню Копировать запи-

шется следующим образом:

Private

Sub

mnuEditCopy_Click()

ОЧИСТИТЬ

Буфер обмена

Clipboard.Clear

Поместить выделенный текст

Буфер обмена

Clipboard.SetText frml.txtEdit.SelText

End

Sub

10 Событийная процедура для команды меню Вставить запи-

шется следующим образом:

Private

Sub

mnuEditPaste_Click()

Вставить текст

из

Буфера обмена

frml.txtEdit.SelText

Clipboard.GetText()

End

Sub

11 Событийная процедура

для

команды меню Удалить запи-

шется следующим образом:

Private

Sub

mnuEditDel_Click

()

' Удалить выделенный текст

frml.txtEdit.SelText

= ""

End

Sub

182

Глава

12 Запустить проект, ввес-

ти в текстовом окне

текст и произвести его

редактирование с испо-

льзованием пунктов

меню Правка.

Для быстрого ввода команд используются панели инстру-

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

Панель

инструментов

(ToolBar)

не

входит

в стандартный набор управляющих элементов языка

Visual

Basic.

Для работы с этим элементом необходимо восполь-

зоваться одним из дополнительных наборов управляющих эле-

ментов

Microsoft

Windows

Common

Controls

5.0 (SP2).

13 Ввести команду [Project-Components...].

На

появившейся диалоговой панели

Components

из списка

дополнительных наборов управляющих элементов выбрать

набор

Microsoft

Windows

Common

Controls

5.0 (SP2).

Confrofc

intertable

Objects

.:.

Microsoft

RemoteOata

Control

2.0

я*.

Microsoft

Rch Textbox

Control

5.0

::::Mcrosoft

sysmfb

control

5 0

Mcrosoft

Tabbed Dialog

Control

5 0

Microsoft

Wallet

Microsoft

Whdows

Common

Controls 5.0 (SP2

^Microsoft

Whdows

Common

Controls б 0

Microsoft

Windows

Common

Confrote-2

5.0

Microsoft

Wnsock

Control

5 0

•

MMJBCtrl

ActiveX

Control

module

:Mm|DVerslon

ActiveX

Control

module

.'MSInfo

MSIAV Category module

.JMSInfo

MSICOROM CatBgory module

.-;->

VideoSoftveFtex3Cor«rob

Locattmt

Панель

инструментов

окна

Visual

Basic

дополнит- JJI

ся

новыми управляющими элементами и, в том числе,

ToolBar и ImageList. f^l

Создадим панель инструментов для меню Правка.

14 В режиме конструирования проекта поместить на форму

управляющий элемент ToolBar и присвоить ему имя

tbrToolbar.

Объектно-ориентированное

программирование

на

языке

Visual

Basic

183

Активизировать свойство

Custom.

На

появившейся диалоговой панели

Property

Pages

выбрать

вкладку

Buttons.

Щелкнуть по кнопке

Insert

Button.

В поле Key: ввести имя первой кнопки панели инструмен-

тов Cut.

16 Повторить процедуру и поместить на панель инструментов

проекта кнопки

Copy,

Paste

и Del.

Для панели инструментов Правка необходимо создать собы-

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

действия по редактированию текста по щелчку по каждой из

кнопок.

17 В режиме конструирования проекта дважды щелкнуть по

панели

инструментов проекта,

будет

создана пустая заго-

товка событийной процедуры.

Использовать инструкцию Select

Case

для вызова

требуе-

мых действий после щелчка по каждой из кнопок панели

инструментов.

Для идентификации кнопок использовать значения свойст-

ва Button.Key:

Private

Sub

tbrToolbar_ButtonClick(ByVal

Button

ComctlLib.Button)

Select

Case

Button.Key

Case

Is = "Cut"

Clipboard.Clear

Clipboard.SetText

frml.txtEdit.SelText

= ""

Case

Is = "Copy"

184

Глава

Clipboard.Clear

Clipboard.SetText

frml.txtEdit.SelText

Case

Is =

"Paste"

frml.txtEdit.SelText

Clipboard.GetText()

Case

Is = "Del"

frml.txtEdit.SelText

= ""

End Select

End

Sub

Для

удобства

работы на кнопки панели инструментов проек-

та целесообразно поместить значки, как это сделано

Windows

ее

приложениях.

18 Поместить

на

форму управляющий элемент

Список

изобра-

жений

(ImageList)

присвоить

ему

имя imlToolbar.

В окне

Свойства

объекта

активизировать свойство Custom

на

появившейся диалоговой панели

Property

Pages

вы-

брать вкладку

Images.

Щелкнуть

по

кнопке

Insert

Picture...

выбрать графиче-

ский

файл

cut.bmp,

который находится

на

CD-ROM

папке

\practicum\VB\Projects\project9\,

для

размещения

на

первой

кнопке

Cut.

General

; Сияет*

V:V;

Images jcolor,

Image

;••-

HjadeV"-'-

:-J'•••""•

Insert Picture...

1-Х

Refnove

Picture

1™—

; pi: •-••:

I jmage Count

Спраска

20 Повторить процедуру

выбрать графические файлы

со-

ру.bmp, paste.bmp

delete.bmp

для

кнопок

Copy,

Paste

Del.

Синхронизировать кнопки

на

панели инструментов tbrTo-

olbar

значки

из

списка рисунков imlToolbar.

Для

элемента tbrToolbar активизировать свойство

Cus-

tom.

На вкладке

General

окне

ImageList

выбрать элемент

imlToolbar.

На

вкладке

Buttons

синхронизировать значе-

ния

свойства Index (упорядочивает кнопки)

свойства

Image

(упорядочивают значки).

Объектно-ориентированное

программирование

на

языке

Visual

Basic

185

Gene«*|

Buttons

' MousePointer:

. GLE&fopMocte

imageUtt

. .

' DeabtednM»geU»t

HefcConterflD;

.. ButtorWidth

; Acpearance:

Тей«А1дпг«ег*

Picture

| •••.'.

- ccDefauk

0-ccOLEDiopNone

imgToofo*

_^J

<None>

329.9528

p Afaw£ustomee W Wjappah

345.2599

ShowTipt

. , -p

£n«bted

1 •

cc3D

BocdefStyte:)

0 -

ccNone

0 •

>bfTextAlignBo»tom

0 -

ttxStandad

OK j

Отмене

- „ [ Cnpa

22 Запустить проект и с по-

мощью меню Правка и

панели инструментов про-

извести редактирование

введенного текста.

. Текстовый

редактор

Правка

23 Сохранить проект в файле

prj9.vbp.

Проект

хранится в каталоге

\practicum\VB\Projects\project9\

CD-ROM

Проект

5.10.

«Усовершенствованный

текстовый

редактор».

На

основе предыдущего проекта 5.9 разработаем текстовый ре-

дактор, который

будет

обладать дополнительными возможно-

стями:

• открывать и сохранять текстовые файлы;

• форматировать текст (изменять параметры шрифта и выби-

рать цвет);

• поддерживать технологию

«drag

and drop».

Для реализации этого необходимо воспользоваться в качест-

ве рабочего поля текстового редактора новым элементом управ-

ления

RichTextBox

{Усовершенствованное

текстовое

поле),

которое является дополнительным компонентом и

требует

уста-

новки.

Ввести команду [Project-Components...]. На появившейся диа-

логовой панели

Components

из списка дополнительных управ-

ляющих элементов выбрать

Microsoft

Rich

Textbox

Control

5.0.

186

Глава

Требуемый управляющий элемент

Microsoft

Rich

Textbox

Cont-

rol 5.0 в дистрибутив

VB5.0

ССЕ не входит. Его наличие в списке

компонентов на диалоговой панели Components зависит от

уста-

новленного на компьютере программного обеспечения: версии

операционной

системы

Windows,

версии Microsoft

Office

и др.

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

(Усовершенствованное

текстовое

поле)

можно установить вручную. Для этого необ-

ходимо скопировать файл RICHTX32.OCX из каталога на дис-

ке \practicum\VB\Projects\project10\ в каталог локального

компьютера \WINDOWS\system32\. Для регистрации компо-

нента перейти в этот каталог и ввести команду [Пуск-Выпол-

нить...].

В порявившемся текстовом поле ввести команду

regsvr32.exe

RICHTX32.OCX.

Панель

инструментов окна

Visual

Basic

дополнится

[из'',.•.

управляющим элементом RichTextBox. Г^й;?

2 Открыть проект 5.9 и удалить текстовое поле txtEdit.

Поместить на форму усовершенствованное текстовое поле

RichTextBox и присвоить ему имя txtEdit.

Для реализации операций с файлами и форматирования тек-

ста понадобится еще один дополнительный элемент управления

CommonDialog

(Общий

диалог).

3 Ввести команду [Project-Components...]. На появившейся диа-

логовой панели

Components

из списка дополнительных управ-

ляющих элементов выбрать набор

Microsoft

Common

Dialog

Controls

5Л (SP2).

Панель

инструментов окна

Visual

Basic

дополнится

^у

управляющим элементом CommonDialog. Поместить этот ;ЕЗ

элемент в любое место формы (он

будет

виден только в ре-

жиме конструирования проекта) и присвоить ему имя

dlgl.

Для реализации дополнительных возможностей текстового

редактора необходимо расширить систему меню и ввести до-

полнительные пункты

Файл

Форматирование,

содержащие

команды второго и третьего уровня:

4 С помощью редактора меню Menu

Editor

расширить систему

меню и ввести пункты:

Файл

Форматирование

...Открыть...

...Шрифт

...Сохранить

...Цвет

...Сохранить

как ... Цвет

шрифта

Цвет

фона

Теперь

для

каждого

пункта

меню

необходимо

создать

собы-

тийные

процедуры.

процессе

выполнения

событийных

проце-

дур

будут

использоваться

свойства

управляющего

элемента

Об-

щий

диалог

dlgl,

для

которых

должны

быть

предварительно

установлены

определенные

значения.

Объектно-ориентированное

программирование на языке Visual

Basic

187

Создадим событийные процедуры открытия

сохранения

файла.

5 Активизировать объект

Общий

диалог

dlgl.

Выбрать свойство

Custom,

появится диалоговая панель Pro-

perty

Pages

для

установки значений свойств этого объекта.

Выбрать вкладку

Open/Save

As и в

поле

DialogTitle

ввести имя для окна, которое

будет

возникать при

открытии файла (например,

Открыть

файл).

Qpen/SaveAs jcdor

Font

FfeNamet

IrADr

F&ef

Г CanceCrw

Отмена

Flags:

DefaykExt

Fieilndex:

|260

Справка

6 Ввести программный код событийной процедуры, которая

бу-

дет производить открытие файла.

процедуре

будет

исполь-

зован метод ShowOpen, который откроет соответствующую

панель общего диалога,

метод LoadFile, который произве-

дет открытие файла

текстовом поле:

Private

Sub

mnuOpen_Click

()

dlgl.ShowOpen

txtEdit.LoadFile

dlgl.filename

End Sub

7 Запустить проект, ввести команду [Файл-Открыть...].

помощью появившейся стандартной панели

Windows

От-

крыть

файл

выбрать файл

щелкнуть по кнопке

Открыть.

Текст файла появится

окне нашего текстового редактора.

Палка: |^p»o

(

ect10

JSl

Й|

й! leal

C5-fim1.frm

g)f.m1.ftx

проба,

bet

|информатика.

Г*

Только

чтение

188

Глава

8 Ввести программный код событийных процедур

Сохранить

как...

. В

процедурах

будет

использован метод

ShowSave,

который откроет соответствующую панель общего

диалога,

метод SaveFile, который произведет сохранение

файла.

Процедура

Сохранить:

Private

Sub

mnuSave_Click()

dlgl.ShowSave

dlgl.

filename

= "" Then

mnuSaveAs_Click

Else

txtEdit.SaveFile

dlgl.filename

End

Sub

Процедура

Сохранить

как...:

Private Sub

mnuSaveAs_Click()

dlgl.ShowSave

txtEdit.SaveFile

dlgl.filename

End

Sub

9 Запустить проект, ввести команду [Файл-Сохранить].

На

появившейся панели

Открыть

файл

поле

Имя

файла:

ввести имя

щелкнуть

по

кнопке

Сохранить.

Создадим теперь событийную процедуру форматирования

шрифта.

Для

объекта

dlgl

активи-

зировать свойство Custom

на

диалоговой панели Pro-

perty

Pages

выбрать вклад-

ку

Font.

В полях

FontName,

FontSize,

Min

и Мах

ввести парамет-

ры шрифта, которые

будут

использоваться

по

умолча-

нию.

Обязательно установить

поле

Flags

значение

(определя-

ет используемый тип шрифтов).

11 Ввести программный код событийной процедуры формати-

рования

шрифта.

процедуре

будут

использованы метод

ShowFont,

также пять свойств, определяющих начерта-

ние

шрифта:

Объектно-ориентированное

программирование

на

языке Visual

Basic

189

Private

Sub

mnuFont_Click

()

dlgl.ShowFont

txtEdit.Font.Size

dlgl.FontSize

txtEdit.Font.Name

dlgl.FontName

txtEdit.Font.Bold

dlgl.FontBold

txtEdit.Font.Italic

dlgl.FontItalic

txtEdit.Font.Underline

dlgl.FontUnderline

End

Sub

Запустить проект, ввести команду [Форматирова-

ние-Шрифт].

помощью появившейся стандартной панели Windows

Вы-

бор

шрифта установить требуемые параметры шрифты.

Создадим

событийные процедуры выбора цвета шрифта

(свойство

ForeColor)

цвета фона (свойство

BackColor)

Для

объекта

dlgl

активизировать свойство

Custom

и на

диалоговой

панели

Property

Pages

выбрать вкладку

Color,

поле Color установить

0 (по

умолчанию черный цвет),

поле

Flags значение

(определяет открытие полного диало-

ЩриФп

размер:

".'=•.'•'

На^ор символов:

•'••

::. ';.

^Западноевропейский^]

' .. -

: Шрифт TrueType. Он используется как при выводе на

экран,

так и при печати.

гового окна выбора цвета).

Ввести программный

код

событийных процедур выбора

цвета

шрифта

фона.

процедурах будут использованы

метод

ShowColor,

также свойства

SelColor

BackCo-

lor.

Процедура выбора цвета шрифта:

Private

Sub

mnuFontColor_Click()

dlgl.ShowColor

txtEdit.SelColor

dlgl.Color

End

Sub