Управление размерами формы

@Skriptik · Регистрация: 26.06.2011

Author24 — интернет-сервис помощи студентам

Подскажите как мне сделать так чтоб при нажатие на кнопке на форме форма выдвигалась на половину и при следующим нажатии на туже кнопку задвигалась на половину
Вот кусок кода

Visual Basic

1
2
3

Private Sub Command2_Click()
Form1.Height = 10000
End Sub

Форма выдвигается на половину а как сделать чтоб она задвигалась обратно. Спасибо

morgann55 · 11.08.2012, 18:53

Visual Basic

Private Sub Command2_Click()
If Form1.Height = 10000 then Form1.Height = 5000: Exit Sub
Form1.Height = 10000
End Sub

@Skriptik · 12.08.2012, 02:50 **[ТС]**

Спасибо большое. Очень выручили.

Добавлено через 6 часов 47 минут
Подскажите пожалуйста как мне зделать так, чтоб при нажатие на одну кнопку на форме другая была заблокированна, но была видна на форме и на оборот. Спасибо.

morgann55 · 12.08.2012, 03:04

Visual Basic

Private Sub Command1_Click()
If Command2.Enabled = False Then Command2.Enabled = True: Exit Sub
Command2.Enabled = False
End Sub

Если не надо "оживлять" этой же кнопкой, то строку №2 удали....

@Skriptik -26 / 6 / 1 Регистрация: 26.06.2011 Сообщений: 157
	12.08.2012, 02:50 [ТС]	3
	Спасибо большое. Очень выручили. Добавлено через 6 часов 47 минут Подскажите пожалуйста как мне зделать так, чтоб при нажатие на одну кнопку на форме другая была заблокированна, но была видна на форме и на оборот. Спасибо. 0

	12.08.2012, 03:04