Пример 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,
показывающий приветствие для Италии