Page 64 - 4450

Тепер введемо текст програми для ініціалізації поля зі
списком. Двічі клацніть на формі. У вікні Code з’явиться
процедура Form_Load. Введіть наступний текст для
ініціалізації поля із списком:
Private Sub Form_Load()
List1.AddItem "Англія"
List1.AddItem "Германія"
List1.AddItem "Іспанія"
List1.AddItem "Італія"
List1.AddItem "Росія"
End Sub
Відкрийте список об’єктів, клацніть на об’єкті з ім’ям
List1.
У вікні Code з’явиться процедура List1_Click.
Введіть наступні оператори, що описують процес
обробки елементів, вибраних користувачем із списку:
Private Sub List1_Click()
Label3.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label4.Caption = "Hello, programmer"
Case 1
Label4.Caption = "Hallo, Programmierer"
Case 2
Label4.Caption = "Hola, programador"
Case 3
Label4.Caption = "Ciao, programmatori"
Case 4
Label4.Caption = "Привет, программист"
End Select
End Sub
Відкрийте список об’єктів, виберіть об’єкт з ім’ям
Command1. У вікні Code з’явиться процедура Commandl
_Click. Ввести слово End в текст процедури, потім закрити
вікно Code. Зберегти форму на диску під ім’ям MyCase.frm,
зберегти проект під ім’ям MyCase.vbp. Клацнути на кнопці
Start (Пуск) на панелі інструментів для запуску програми
MyCase. Послідовно клацайте мишею на кожній назві країни
в списку Вибирайте країну. Програма показує вітання мовою

62