Пример 4.4.2-3. Создать проект, использующий конструкции Select Case для обработки и выбора данных из списка.

1)Выполнить команду Создание проекта элемента Главного меню Файл.

2)На экране появится диалоговое окно Создание проекта.

3)Создать новый проект с именем Пример 4.2-3.

В окне Конструктор формыпоявится пустая форма.

4)В окне Панель элементовщелкнуть на элементе управления Label1, а затем ввести в верхней части формы надпись, которая будет отображать название программы.

5)Используя элемент управления Label, создать второй объект надписи ниже первого. Эта надпись будет использоваться как заголовок списка.

6)Щелкнуть в окне Панель элементов на элементе управления ListBox и ниже второй надписи отобразить поле списка.

7)Используя элемент управления Label, ниже поля списка ввести еще одну небольшую надпись для отображения вывода программы.

8)Используя элемент управления Button создать в нижней части формы небольшую кнопку.

9)Открыть окно Свойства, а затем для только что созданных объектов установить свойства, показанные в табл. 4.4.2-5.

Таблица 4.4.2-5

Объект	Свойство	Значение
Form1	Text	Пример 4.2-3
Label1	Font	Times New Roman, Bold (Жирный), 12-point (12 пунктов)
Name	Label1
Text	Международная программа приветствия
Label2	Name	Label2
Text	Выберите страну
Label3	AutoSize	False
BorderStyle	Fixed3D
ForeColor	Red(Красный)
Name	Label3
Text	(пусто)
ListBox1	Name	ListBox1
Button1	Name	Button1
Text	(Выход)

После окончания установки свойств форма примет следующий вид (рис. 4.4.2-8).

Рис. 4.4.2-8. Форма Примера.4.2-3 с установленными свойствами

10)Дважды щелкнуть мышью на форме.

В окне Редактор кода появится процедура события Form1_Load(…).

11)Для инициализации списка необходимо ввести следующий код:

ListBox1.ltems.Add("England") : ListBox1.ltems.Add("Germany") ListBox1.ltems.Add("Mexico") : ListBox1.ltems.Add("ltaly")

12)Для добавления элементов в список на форме эти строки используют

метод Add() объекта списка ListBox.

13)Чтобы переключиться обратно в окно Конструктора формы

необходимо щелкнуть на вкладке Form1.vb[Конструктора] Основного

окна, а затем дважды щелк­нуть мышью на объекте списка ListBox1

формы, чтобы отредактировать его процедуру события.

В окне Редактор кода появится процедура события

ListBox1.SelectedIndexChanged(…).

14)Для обработки выбора, сделанного пользователем в списке, ввести
следующие строки:

Label3.Text = ListBox1.Text Select Case ListBox1.Selectedlndex Case 0 Label3.Text ="Hello, programmer" Case 1 Label3.Text ="Hallo, programmierer" Case 2 Label3.Text ="Hola, programador" Case 3 Label3.Text ="Ciao, programmatore" End Select

Первая строка копирует имя выбранного элемента списка в свойство Text третьей надписи формы. Наиболее важным свойством, использованным в этом опе­раторе, является свойство ListBox1.Text, которое содержит текст элемента, выбранного в списке. Остальные операторы являются час­тью условной конструкции Select Case. Эта конструкция в качестве проверяемой переменной использует свойство
ListBox1.SelectedIndex, сравнивая его с несколькими значениями. Свойство SelectedIndex всегда содержит номер выбранного элемента списка; самый пер­вый элемент имеет номер 0 (ноль), второй элемент имеет номер 1, следующий – 2 и так далее. Используя SelectedIndex, конструкция Select Case может быстро определить, какой выбор сделал пользова­тель, и отобразить на форме правильное приветствие.

15)Снова отобразить форму и дважды щелкнуть мышью на кнопке Выход.

В окне Редактор кода появится процедура события Button1_Click(…).

В этой процедуре события ввести оператор End (рис. 4.4.2-9).

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) HandlesMyBase.Load ListBox1.Items.Add("England") : ListBox1.Items.Add("Germany") ListBox1.Items.Add("Mexico") : ListBox1.Items.Add("Italy") End Sub Private Sub Button1_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles Button1.Click End End Sub Private Sub ListBox1_SelectedIndexChanged(ByVal sender _ As System.Object, ByVal e As System.EventArgs) _ Handles ListBox1.SelectedIndexChanged Label4.4.Text = ListBox1.Text Select Case ListBox1.SelectedIndex Case 0 Label4.4.Text = "Hello, programmer" Case 1 Label4.4.Text = "Hallo, programmierer" Case 2 Label4.4.Text = "Hola, programador" Case 3 Label4.4.Text = "Ciao, programmatore" End Select End Sub End Class

Рис. 4.4.2-9. Программный код проекта Пример 4.2-3

16)Чтобы сохранить изменения, щелкнуть на кнопке Сохранить все на стандартной панели инструментов. В качестве места сохранения указать соответствующую папку.

17)Чтобы запустить программу, щелкнуть на кнопке Начать отладку,

расположенной на стандартной панели инструментов.

18)В списке Выберите страну щелкнуть на каждом из названий стран

по очереди.

19)Для каждой из перечисленных стран программа отображает
приветствие.

Иллюстрация на рис. 4.4.2-10 показывает при­ветствие для Италии.

20)Чтобы остановить программу, щелкните на кнопке Выход.

Рис. 4.4.2-10. Результат работы проекта Пример 4.2-3,
показывающий при­ветствие для Италии