Сдам Сам

ПОЛЕЗНОЕ


КАТЕГОРИИ







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

 









Что способствует осуществлению желаний? Стопроцентная, непоколебимая уверенность в своем...

Живите по правилу: МАЛО ЛИ ЧТО НА СВЕТЕ СУЩЕСТВУЕТ? Я неслучайно подчеркиваю, что место в голове ограничено, а информации вокруг много, и что ваше право...

ЧТО ПРОИСХОДИТ, КОГДА МЫ ССОРИМСЯ Не понимая различий, существующих между мужчинами и женщинами, очень легко довести дело до ссоры...

Что будет с Землей, если ось ее сместится на 6666 км? Что будет с Землей? - задался я вопросом...





Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:


©2015- 2021 zdamsam.ru Размещенные материалы защищены законодательством РФ.