Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Мал. 4.14. Клас Person з властивостями, подіями і методами.






 

18. Базова структура класу Person готова. Включите її в проект Visual Basic командою File > Update Project або клавішами Ctrl+S.

19. Закрийте вікно Class Builder командою File > Exit.

Після невеликої паузи в проекті з'являється новий клас. Залишається лише додати код в базову структуру, щоб зробити його функціональним. Якщо заглянути в код властивості PersonName (процедури Property Let і Property Get), з'ясовується, що Class Builder згенерував шаблон властивості за нас. Залишається лише написати код, який виконуватиме конкретне завдання, - ідентифікувати нашу " людину".

Вставте наступний фрагмент в процедуру WhoAreYou():

 

Public Sub WhoAreYou()

RaiseEvent Say (" Moe ім'я" & mVarPersonName)

End Sub

 

Зверніть увагу: уся процедура складається з одного рядка. Щоб ініціювати подію, необхідно викликати в класі команду RaiseEvent. У нашому випадку ініціюється подія Say. Для передачі інформації можна було також скористатися функцією, але я хочу привчити вас до роботи з подіями. Вони згодяться вам пізніше, при розробці додатків, керованих подіями. А зараз ми доповнимо форму Form1 кодом для тестування класу Person:

1. Двічі клацніть на рядку Form1 у вікні проекту, щоб активізувати форму. Потім двічі клацніть на формі, щоб відкрити вікно програми.

2. Вставте наступний фрагмент в секцію(Declarations) форми:

 

Option Explicit

Private WithEvents p As Person

 

3. Для виведення інформації ми скористаємося вікном повідомлення. Вставте в процедуру події р_Sау() наступний фрагмент:

 

Private Sub p_Say(Sentence As String)

MsgBox Sentence

End Sub

 

4. Залишається лише написати код, в якому створюватиметься наш об'єкт,:

 

Private Sub Form_Load()

Set p = New Person

p.PersonName = " Джон Доу"

p.WhoAreYou

Set p = Nothing

 

End

End Sub

 

Звичайно, змінному р. PersonName можна присвоїти довільне ім'я.

5. Запустіть програму клавішею F5.

Звичайно, утиліта Class Builder має і інші можливості, проте більшість з них не вимагають пояснень, а найважливіші ми розглянули. Не шкодуйте часу і поекспериментуйте з вашими власними класами - як простими, так і складними. Практика - вірний шлях до досконалості. На сторінках цієї книги ми ще неодноразово зустрінемося з класами. Ваших знань в області модулів і класів цілком вистачить для самостійної роботи. Ви повинні неодмінно освоїти ці концепції, оскільки програмні модулі " склеюють" різні частини вашого застосування і об'єднують форми і елементи для вирішення корисних завдань.






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.