End Sub. 1. В папке Лабораторная_работа_№16 создайте папку 16.6

Ход работы.

1. В папке Лабораторная_работа_№16 создайте папку 16.6.

2. Скопируйте в папку любые 3 web-страницы или создайте свои.

3. Запустите программу Microsoft Visual Basic 6.0.

4. Расположите на форме 1 компонент WebBrowser, 3 компонента CommandButton.

5. Установите свойства компонентов в соответствии с Таблицей 16.3, или ориентируясь на Рис.16.8.

Таблица 16.3 – Свойства компонентов приложения «Просмотр web-страниц»

Компонент	Свойство	Значение
Form1	Caption	Просмотр web-страниц
Name	frmИнтернет
CommandButton1	Caption	Файл №1
CommandButton2	Caption	Файл №2
CommandButton3	Caption	Файл №3
WebBrowser1	Visible	False

6. Напишите обработчики событий Click при щелчке на кнопку «Файл №1»:

Private Sub Command1_Click()

WebBrowser1.Visible = True

WebBrowser1.Navigate "Путь к файлу\Имя файла.htm (или html)"

7. Напишите обработчики события Click для оставшихся кнопок, загрузив в них соответствующие файлы.

8. Сохраните проект под именем Интернет.vbp, а форму под именем frmИнтернет.frm

9. Запустите проект на выполнение и проверьте его функциональность

10. Закройте запущенное приложение.

11. Создайте exe-файл приложения с помощью команды File → Make Интернет.exe.

12. Выйдите из среды Visual Basic.

13. Запустите на выполнение файл Интернет.exe и убедитесь в работоспособности exe-файла.

Задание 7. Создание приложения «Рисованные часы»

Постановка задачи.

Создать приложение, рисующее на форме часы со стрелками. Примерный вид приложения приведен на Рис.16.9.

Дата добавления: 2014-12-23