Программа 5. Структуры с использованием Select Case.

Программа 4. Просмотр графических файлов.

Для создания программы просмотра рисунков используется 3 объекта файловой системы, графический объект и программные коды (рис.5).

Рис.5.

1.Выбрать DriveListBox control (Управление списком дисководов) в панели инструментов. Построить в форме. Дважды щелкнуть мышью для вызова командного кода. Ввести следующее программное утверждение:Dir1.Path=Drive1.Drive.

2. Кнопка DirListBox control (Управление списком директорий). Построить. Дважды щелкнуть мышью и ввести: File1.Path=Dir1.Path

3.Кнопка FileListBox control (Управление списком файлов). Построить. В свойствах установить в Pattern - *.bmp;*.wmf;*.ico;*.pcx. Дважды щелкнуть мышью и ввести следующее утверждение: Image1.Picture=LoadPicture(File1.Path+”\”+File1.FileName)

4.Кнопка Image Control (Управление рисунками). В свойствах установить в Stretch – True; в BorderStyle – 1-Fixed Single.

5. Запустить программу.

Программа 5. Структуры с использованием Select Case.

1. Создайте такую форму, как показано на рис.6.

Рис. 6.

Примечание: Первое, второе, четвертое и пятое окна – метки (Label1 – Label4). Третье окно – кнопка ListBox1. Цвет надписей в Label4 – красный. С правой стороны – окно Quit (командная кнопка – Command1).

2. Дважды щелкните по форме. В окне Code появится процедура Form_Load.
Введите следующий текст:

Private Sub Form_Load()
List1.AddItem "England"
List1.AddItem "Germany"
List1.AddItem "Spain"
List1.AddItem "Italy"
List1.AddItem "Россия"
End Sub

Для загрузки значений в поле со списком используется команда AddItem. Найдите процедуру List_Click. Введите следующее:

Private Sub List1_Click()
Label3.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label4.Caption = "Hello, Programmer!"
Case 1
Label4.Caption = "Hello, Programmierer!"
Case 2
Label4.Caption = "Hello, Programador!"
Case 3
Label4.Caption = "Hello, Programmator!"
Case 4
Label4.Caption = "Здравствуй, программист!"
End Select
End Sub

3. Дважды щелкните по кнопке Quit и введите программный код - End.

Запустите программу. Программа будет отображать приветствия на языке каждой из стран.

Рассмотрим еще одну программу с использованием Select Case, которая называется "Расписание заданий". Создайте форму, как показано на рис. 7.

Рис.7.

Создаем три метки. В первой метке в свойствах пишем "Расписание занятий", во второй – "Введите день недели", а третью оставляем пустой. Создаем List1 и командную кнопку с надписью "Конец!". Под Command1 записываем процедуру:

Private Sub Command1_Click()
End
End Sub

Дважды нажимаем на форме и записываем следующую процедуру:

Private Sub Form_Load()
List1.AddItem "понедельник"
List1.AddItem "вторник"
List1.AddItem "среда"
List1.AddItem "четверг"
List1.AddItem "пятница"
List1.AddItem "суббота"
List1.AddItem "воскресенье"
End Sub

Дважды щелкните на List1 и введите следующую программу:

Private Sub List1_Click()
Label2.Caption = List1.Text
Select Case List1.ListIndex
Case 0
Label3.Caption = "математика, физика, информатика"
Case 1
Label3.Caption = "история, ин.язык, физ-ра"
Case 2
Label3.Caption = "химия, физика, менеджмент"
Case 3
Label3.Caption = "биология, экономика"
Case 4
Label3.Caption = "экология, геометрия"
Case 5
Label3.Caption = "военная кафедра"
Case 6
Label3.Caption = "отдых"
End Select
End Sub

Запускаем программу и выбираем дни недели. Внизу появится расписание на этот день.