Приклад створення тіла процедури

End Sub

Написання програмного коду, процедур обробки подій

Написання програмного коду здійснюється в режимі View Code у вікні редактора коду. Активізуйте вікно редактора коду, вибравши в пункті меню View команду Code (або натиснувши на кнопку View Code у вікні Project Explorer) і розгляньте його структуру (рис. 5)

Рис. 5

Зверніть увагу на поля зі списком об’єктів і списком подій та методів, які розташовані у вікні редактора коду зверху. Зі списку об’єктів можна вибрати ім’я об’єкту, якій існує на формі, а потім для нього задати подію або метод з відповідного списку. Для кожного з об’єктів існує набір стандартних подій та методів.

При застосуванні події або методу для певного об’єкту у вікні редактора автоматично з’являється відповідна заготовка базового коду відповідної процедури:

Private Sub <Ім’я об’єкту>_<І’мя методу>()

Тут ключові слова Private Sub – початок процедури, End Sub – кінець процедури. Між ними записується тіло процедури.

Створимо процедуру обробки події при натисканні на кнопку Ok. Алгоритм процедури обробки події Click для керуючої кнопки CmdOk буде полягати в тому, що при натисканні на неї дані введені в текстові поля будуть об’єднані і виведені в третє текстове поле за допомогою текстової змінної TxtNew, якій буде надаватися об’єднане значення даних з текстових полів TextNbr і TextSstr.

При написанні тексту процедури слід пам’ятати, що для швидкості вводу імені об’єкту, якій існує на формі, достатньо набрати першу літеру його назви, натиснути Ctrl+J, зі списку, що з’явиться праворуч від курсору вибрати потрібне ім’я, натиснути клавішу Tab. Властивість об’єкту вибирається зі списку, який з’являється після вводу крапки. Об’єднання даних можна виконати за допомогою символу “+”, або”&”. При виникненні помилки текст інструкції висвітлюється червоним кольором. Текст ремарки, який починається зі знаку ' – зеленим.

Порядок створення даної процедури:

- із списку об’єктів вибираємо CmdOk (для цього типу об’єкту подія Click задається автоматично);

- текстовій змінній TxtNew присвоюємо об’єднане значення даних з текстових полів:
TxtNew = TextNbr.Text + TextSstr.Text

- властивості Text об’єкту TextMstr присвоюємо значення змінної TxtNew:
TextMstr.Text = TxtNew

Самостійно створіть процедуру обробки події при натисканні на кнопку Вихід. Інструкція виходу з програми – оператор End.

Запустіть на виконання створений проект, перевірте як він працює. Закрийте вікно проекту.

Дата добавления: 2014-12-23