ПРАКТИЧНА РОБОТА 6

Date: 2015-10-07; view: 426.

Вітань

Font (Шрифт) Times New Roman, Bold,

14-point

Label2 Caption (Напис) Виберіть країну

Label3 Caption (Напис) (Порожньо)

Label4 Caption (Напис) (Порожньо)

BorderStyle 1 - Fixed Single

(Тип рамки) (Одинарна суцільна лінія)

ForeColor Dark red (Темно-

червоний)

(Колір напису) (&Н00000080&)

Commandl Caption (Напис) Вихід

Після встановлення властивостей ваша форма повинна виглядати таким чином. Тепер введемо текст програми для ініціалізації поля зі списком. Двічі клацніть на формі. У вікні 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. Послідовно клацайте мишею на кожній назві країни в списку Вибирайте країну. Програма показує вітання на мові кожної з країн в списку. На наступному рисунку показане вітання на російській мові.

Контрольні питання.

1. Які типи діалогових вікон ви знаєте?

2. Що таке нестандартні діалогові вікна?

3. Призначення оператора Select Case?

Завдання для самостійного розв'язку.

Створити програму – перекладач (з російської мови на українську).