| Пособие-самоучитель on-line "Visual Basic с нуля" |
Глава 1. Форма. Что с ней делать?
Скачать исходник программы "Форма" | Дата создания 02.10.2004 {Автор 4us}

Загружай VB, и в путь. Итак создаем первый “Стандартный EXE” (как в Главе 1). На экране имеем примерно такую картинку:

Рисунок 2.

Теперь мы найдем место, где будем заносить собственно программу. Для этого в верхнем ряду окна нажимаем кнопку “Вид”. В выпавшем меню первая строка и есть та, которая нам нужна: “Код”. Показано на рисунке 3.

Рисунок 3.

У нас поверх окна формы Проект1 – Form1 (Форма) появится окно Проект1 – Form1 (Код). Сверху этого окна у нас два выпадающих списка. Слева - список доступных объектов, справа – события для этих объектов. Объектов у нас сейчас два – (General) и Form. Жмем на строку Form. В поле окна кода появились две строки. Что это значит. Первая строка:

`Private Sub` `Form_Load()`

говорит о том, что мы создали подпрограмму (Private Sub) или правильней процедуру, которая будет выполняться при загрузке (_Load) нашей формы (Form). Последняя строка

`End Sub`

просто говорит о том, что процедура завершена. Вот только выполнять-то пока нечего. В теле процедуры у нас нет ничего. А поэтому мы сейчас туда чего-нибудь напихаем. Первым делом напишем в нашей форме какой-нибудь текст. По идиотской традиции самая первая программа должна выводить на экран надпись типа “Hello, world” (Здравствуй мир). Мы напишем “Я стану программистом”. Для этого вписываем между двух уже имеющихся у нас строк еще одну. У нас будет

`Private Sub` `Form_Load()`

`Form1.Print "Я стану программистом"`

`End Sub`

Теперь можно бы посмотреть как это работает, только ни черта у нас не выйдет. Чтобы эта надпись появилась в форме надо залезть в окно “Свойства – Form1”. На рис. 2 (см. выше) оно подписано как “Свойства выделенного объекта” и в левой колонке найти свойство “AutoRedraw”. В этой строке только в правой колонке из выпадающего списка выбрать “True”. Теперь окно перерисуется вместе с нашим чудесным текстом. После этого нажмем кнопочку для стрелочку для запуска нашей программы (показано на рис.4) и наслаждаемся ее работой.

Рисунок 4.

Свойство перерисовки, как и всякое другое можно задавать программно. Это намного правильней, так как в ходе выполнения программы часто приходится менять свойства. Перед нашей строчкой добавим еще одну:

`Form1.AutoRedraw = True`

А в свойствах формы изменим AutoRedraw с True (Истина) на False (Ложь). Запустим программу. Она работает совершенно также. Аналогично можно менять другие свойства формы. В дальнейшем по мере необходимости мы будем обращаться к ним.

Ясное дело, форму можно растягивать. Можно менять ее положение на экране, двигая квадратик в окне “Размещение формы”.

Еще одно. Можно создавать несколько форм и управлять объектами одной из другой. Для этого в меню выберите “Проект – Добавить форму – Открыть”.

Только если после этого запустить программу, второй формы не увидишь. Чтобы сделать ее видимой, надо прописать такой в Form1 код:

`Form2.Show`

Теперь наш проект надо сохранить. Выбери “Файл – Сохранить проект” или нажми на изображение дискетки. Появиться окно. Но лучше сохранять не туда, куда предлагает VB, а создать папочку для этого, так как проект включает в себя несколько файлов. Чтобы не получилась каша из файлов разных проектов, файлы каждого надо складывать в свою директорию. Сохраняй пока файлы под теми же именами, которые предлагает VB.

Последний этап – создание выполняемого (т.е. EXE) файла, то ради чего мы это все делали. Нажми “Файл – Создать Проект1.exe…” сохраняй и готово. Теперь ты можешь закрыть VB и запускать свой EXE-файл. Поздравляю. Ты создал первую программу на Visual Basic. Вариант этой программы, только несколько расширенный, я привожу ниже. В ней показано изменение некоторых свойств формы. Скопируй ее в тело подпрограммы и поэкспериментируй с ней. Обрати внимание на комментарии. Они выделяются зеленым цветом и пишутся после апострофа. Нужны они только для пояснений и программой не выполняются.

'******вот некоторые возможности работы с формой*****

`Private Sub` `Form_Load()
Form1.AutoRedraw = True 'включает перерисовку формы 1
Form1.BackColor = vbBlack 'меняет цвет формы 1 на черный
Form1.ForeColor = &HFF& 'меняет цвет текста формы 1 на красный
Form1.BorderStyle = 3 'меняет рамку (бордюр) формы 1 на неизменяемую
Form1.Font.Size = 18 'меняет размер шрифта формы 1 на 18
Form1.Font.Underline = True 'подчеркивает текст в форме 1
Form1.Caption = "Моя первая программа" 'устанавливает заголовок формы 1
` `Form1.Print "Я стану программистом" 'выводит текст на форму 1
Form2.Show 'делает видимой форму 2
Form2.Width = 9000 'устанавливает ширину формы 2 равной 9000 твипов
Form2.WindowState = 1 'сворачивает форму 2
End Sub`

Скачать код можно вверху страницы.

Copyright © 2004 4us