Visual Basic для детей. Уроки 1-5


Название свойства Значение свойства - часть 3


 

            А сейчас, рассмотрим следующую процедуру обработки событий. Процедура cmdGrow_Click увеличивает высоту формы на 100 твипов и увеличивает ширину формы также на 100 твипов:

 

Private Sub cmdGrow_Click()

'Увеличение (Grow) формы

'Увеличить высоту формы на 100 твипов

frmFormFun.Height = frmFormFun.Height + 100

'Увеличить ширину формы на 100 твипов

frmFormFun.Width = frmFormFun.Width + 100

End Sub

 

Процедура обработки событий cmdRed_Click изменяет цвет фона у формы на красный цвет:

 

Private Sub cmdRed_Click()

'Сделать форму красной (red)

frmFormFun.BackColor = vbRed

End Sub

 

Процедура обработки событий cmdBlue_Click изменяет цвет формы на голубой цвет:

 

Private Sub cmdBlue_Click()

'Сделать форму голубой (blue)

frmFormFun.BackColor = vbBlue

End Sub

 

 

Процедура обработки событий cmdHide_Click применяется для того, чтобы сделать невидимыми (присвоить свойству Visible значение False) все командные кнопки, за исключением cmdShow. Это делается так:

 

Private Sub cmdHide_Click()

'Скрыть (hide)

все кнопки, кроме cmdShow

cmdGrow.Visible = False

cmdShrink.Visible = False

cmdHide.Visible = False

cmdRed.Visible = False

cmdBlue.Visible = False

'Показать (show)

кнопку cmdShow

cmdShow.Visible = True

End Sub

 

А для процедуры обработки событий cmdShow_Click, запишем следующее действие, обратное предыдущему:

 

Private Sub cmdShow_Click()

'Показать (Show) все кнопки, кроме cmdShow

cmdGrow.Visible = True

cmdShrink.Visible = True

cmdHide.Visible = True

cmdRed.Visible = True

cmdBlue.Visible = True

'Скрыть (Hide) кнопку cmdShow

cmdShow.Visible = False

End Sub

 

 

            И, наконец, процедура обработки событий Form_Click, которая  используется для увеличения ‘grow’ формы, поэтому имеет такой же код, как и кнопка cmdGrow_Click:

 

Private Sub Form_Click()

'Увеличение формы

'Увеличить высоту формы на 100 твипов

frmFormFun.Height = frmFormFun.Height + 100




Начало  Назад  Вперед



Книжный магазин