Основные возможности Visual Basic. Макова Н.Е. - 18 стр.

UptoLike

ВУЗ: 

МичГАУ | Мичуринск

Составители: 

Рубрика: 

18
1.7. Усложняем проект
Итак, вы сохранили свой первый проект. Закройте его —
File→Remove Project. Скопируйте папку проекта тут же, рядыш-
ком. Над копией будем продолжать работать.
Пусть при щелчке по кнопке происходит что-нибудь еще,
кроме окрашивания формы. Например, изменяется размер шриф-
та в текстовом поле. Для этого достаточно в окне кода дописать
следующий оператор:
Text1.FontSize = 16
Здесь Text1 - имя текстового поля, FontSize - размер шриф-
та. Наш оператор можно перевести так: сделать размер шрифта
текстового поля Textl равным 16.
При щелчке по кнопке Visual Basic выполняет по порядку
все операторы процедуры между строками Private Sub
Command1_Click() и End Sub. Запустим проект кнопкой Start.
Убедимся, что оба оператора выполнились. Поскольку компью-
тер работает очень быстро, нам будет казаться, что оба оператора
выполнились одновременно. Но это не так: сначала поменялся
цвет формы, а уж затем размер шрифта.
Продолжим работу. Пусть при нажатии на кнопку, кроме
всего прочего, в текстовом поле появляется текст Теперь форма
красная. Для этого достаточно в окне кода дописать еще 1 опера-
тор:
Text1.Text = "Теперь форма красная"
Здесь Text1 - имя текстового поля, Text - его свойство, а
именно текстовое содержимое этого поля.
После каждого изменения в окне кода проверяйте, как рабо-
тает проект.
Создадим на форме еще одну кнопку. Ее имя - Command2.
Пусть при щелчке по ней форма окрашивается в желтый цвет
(vbYellow), размер шрифта становится равным 12, в текстовом
поле появляется текст Теперь форма желтая.
Для этого так же, как и в случае с кнопкой Command1, сде-
лаем по кнопке Command2 двойной щелчок мышкой. Перед нами
снова окно кода, но в нем появилась заготовка другой процедуры,
то есть новое приглашение - для ввода операторов, реагирующих
PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com
                                  1.7. Усложняем проект

              Итак, вы сохранили свой первый проект. Закройте его —
         File→Remove Project. Скопируйте папку проекта тут же, рядыш-
         ком. Над копией будем продолжать работать.
              Пусть при щелчке по кнопке происходит что-нибудь еще,
         кроме окрашивания формы. Например, изменяется размер шриф-
         та в текстовом поле. Для этого достаточно в окне кода дописать
         следующий оператор:
              Text1.FontSize = 16
              Здесь Text1 - имя текстового поля, FontSize - размер шриф-
         та. Наш оператор можно перевести так: сделать размер шрифта
         текстового поля Textl равным 16.
              При щелчке по кнопке Visual Basic выполняет по порядку
         все операторы процедуры между строками Private Sub
         Command1_Click() и End Sub. Запустим проект кнопкой Start.
         Убедимся, что оба оператора выполнились. Поскольку компью-
         тер работает очень быстро, нам будет казаться, что оба оператора
         выполнились одновременно. Но это не так: сначала поменялся
         цвет формы, а уж затем размер шрифта.
              Продолжим работу. Пусть при нажатии на кнопку, кроме
         всего прочего, в текстовом поле появляется текст Теперь форма
         красная. Для этого достаточно в окне кода дописать еще 1 опера-
         тор:
              Text1.Text = "Теперь форма красная"
              Здесь Text1 - имя текстового поля, Text - его свойство, а
         именно текстовое содержимое этого поля.
              После каждого изменения в окне кода проверяйте, как рабо-
         тает проект.
              Создадим на форме еще одну кнопку. Ее имя - Command2.
         Пусть при щелчке по ней форма окрашивается в желтый цвет
         (vbYellow), размер шрифта становится равным 12, в текстовом
         поле появляется текст Теперь форма желтая.
              Для этого так же, как и в случае с кнопкой Command1, сде-
         лаем по кнопке Command2 двойной щелчок мышкой. Перед нами
         снова окно кода, но в нем появилась заготовка другой процедуры,
         то есть новое приглашение - для ввода операторов, реагирующих


         18

PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com

Страницы