Командные кнопки на форме и в проекте

Теперь пора сделать проект хоть немножко управляемым. То есть от оформления формы мы переходим непосредственно к ее программированию.

Сейчас наша форма закрывается как обычное окно Windows, но мы будем закрывать се с помощью специальной командной кнопки.

Итак, разместим на форме CommandButton командную кнопку со свойствами: Left — 2040; Тор — 2880; Width - 1815; Height - 615.

Выберем теперь какой-нибудь подходящий BackColor. Для того, чтобы цвет кнопки изменился установите свойство Style — Graphical. Тек же установите размер шрифта — 12 (Font), поменяйте Caption па слово "Закрыть".

А теперь напишем для этой кнопки наш первый командный код. Дважды щелкнув по кнопке "Закрыть", мы попадаем в окно Project — Form1 (Code)

Как вы видите, все наши описания событий, происходящих в проекте, будут представляться в виде процедур, начало и окончание которых мы видим на экране. В данном случае нам надо описать, что будет происходить формой после ее запуска по щелчку мышью по кнопке "Закрыть". Мы хотим, чтобы в этом случае форма просто закрывалась. Это описывается командой End, которую мы и впишем в предоставленное нам место.

Запустим проект и щёлкнем по кнопке "Закрыть". Разместим на форме еще одну командную кнопку со свойствами: Left — 4200; Тор — 2880; Width — 1815; Height — 615; Caption — Показать; Style — Graphical и каким-нибудь BackColor. Дальше сделаем так, чтобы после запуска проекта на форме были бы только командные кнопки и все, а потом, по нажатию кнопки «Показать», увидели бы нашу надпись и картинку.

Во-первых, чтобы текст и картинка изначально не были видны, предварительно их выделив, установите для них свойств Visible — False.

Теперь щелкните дважды по кнопке "Показать" и напишите следующий командный код:

Private Sub Command2_Click()

Label1.Visible = True

Image1.Visible = True

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