Порядок выполнения работы. 1. Проверить наличие личной папки

1. Проверить наличие личной папки. Если ее нет – создать.

2. Войти в среду Visual Basic .

3. Создать новый проект, выбрав в диалоговом окне запуска (рис.1) создание нового проекта Standart Exe. Присвоить созданному проекту имя Lab1. Для этого в окне проекта(Project) выбрать первую строку (строку проекта) и затем открыть окно свойств командой View Þ Properties Window.(Вид Þ Окно Параметров) В появившемся окне свойств Properties (Параметры) для свойств Name указать значение Lab1.

4. Используя меню View включить/отключить основные окна среды Visual Basic: окно форм, окно кода, окно управления раскладкой, окно свойств, панель элементов, окно проекта. Описать назначение каждого окна. Как еще можно открыть и закрыть эти окна?

5.Изменить значение свойства Name формы на Form1. Свойству Caption присвоить значение «Лаб№1. Выполнил <ФИО>. Группа <группа>». Этот текст будет отображаться в строке заголовка формы при запуске приложения.

6.Запустить приложение, т.е. перейти в режим Run-Time. Для этого нажать клавишу F5. Закрыть приложение. Описать, какие еще есть способы запуска приложения.

7.Используя панель элементов управления ToolBoxcоздать в форме командную кнопку (элемент управления типа CommandButton) с именем «EXIT» (свойство Name) и написать на ней «Выход» (свойство Caption).

Путем изменения свойств и повременного переключения в режим Run-Time и обратно – в режим конструктора исследовать и описать такие свойства командной кнопки, как размеры, местоположение, цветовое оформление, внешний вид, вид и параметры шрифта и т.п.

8.Аналогично создать кнопку Hello с подписью «Привет».

9. Запустить приложение на выполнение. Реагируют ли кнопки на щелчки? Возвратиться в режим конструктора.

10. Двойным щелчком на кнопке EXIT войти в окно кода формы и ввести следующий код обработки события Click кнопки EXIT (обрамляющие строки будут сгенерированы Visual Basic автоматически):

Private Sub EXIT_Click()

End

End Sub

11.С событием Clik кнопки Hello связать следующий код:

Private Sub Hello_Click()

Print “Привет! Моя первая программа”

End Sub

12.Запустить приложение на выполнение (F5). Как теперь реагируют на щелчки командные кнопки Hello и EXIT? Сделать несколько щелчков на кнопке Hello.

13.Изменить процедуру обработки события Click кнопки Hello, включить в нее дополнительные инструкции для запроса и установки размера шрифта:

Private Sub Hello_Click()

Dim i as integer

i = InputBox(“Введите размер шрифта”)

Font.Size = i

Print “Привет! Моя первая программа”

End Sub

Как теперь работает приложение? Сделайте несколько щелчков на кнопке, задавая каждый раз разные размеры шрифта.

14. Создать в форме элемент управления Check1 типа CheckBox (флажок) с подписью «Подчеркивание».

15. В процедуру обработки события Click кнопки Hello добавить запрос размера шрифта, а также установку/снятие режима подчеркивания в зависимости от состояния флажка Check1:

Private Sub Hello_Click()

Dim i as integer

i = InputBox(“Введите размер шрифта”)

Font.Size = i

Font.Underline = Check1.Value

Print “Привет! Моя первая программа”

End Sub

Запустить приложение на выполнение. Какова теперь реакция приложения на щелчки на кнопке Hello при разных установках флажка Check1.

16.Изменить код процедуры Hello_Click()так, чтобы сообщение выводилось в центре формы. Для этого с помощью методов TextHeight и TextWidth определить фактическую высоту и ширину выводимой строки. Размеры (высота и ширина) рабочей области формы (области, доступной для размещения информации) находятся в свойствах ScaleHeight и ScaleWidth соответственно. Процедура имеет вид:

Private Sub Hello_Click()

Dim Str as string