Как у формы сделать кнопку СВЕРТЫВАНИЯ формы -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.198]

Организуем VBA-FAQ! Если у Вас есть предложения, выскажитесь здесь: Пишем FAQ, интересно Ваше мнение

Популярные разделы FAQ: user posted image

Общие вопросы user posted image

Особенности VBA-кода user posted image

Оптимизация VBA-кода user posted image

Полезные ссылки

1. Старайтесь при создании темы указывать в заголовке или теле сообщения название офисного приложения и (желательно при работе с Office 95/97/2000) его версию. Это значительно сократит количество промежуточных вопросов.
2. Формулируйте вопросы как можно конкретнее, вспоминая (хотя бы иногда) о правилах ВЕЛИКОГО И МОГУЧЕГО РУССКОГО ЯЗЫКА, и не забывая, что краткость - сестра таланта.
3. Не забывайте использовать теги [сode=vba] ...текст программы... [/code] для выделения текста программы подсветкой!
4. Темы с просьбой выполнить какую-либо работу полностью за автора здесь не обсуждаются и переносятся в раздел ПОМОЩЬ СТУДЕНТАМ.

Модераторы: Old Bat, MIF

Новое голосование

Как у формы сделать кнопку СВЕРТЫВАНИЯ формы

НарКот

Сообщ. #1 , 20.02.08, 08:30

Profi

Профиль · PM

Рейтинг (т): 101

ясно. А как у формы сделать кнопку СВЕРТЫВАНИЯ формы

а то кнопка для этого мне не подходит

Private Sub CommandButton1_Click()

If fMin Then

Me.Height = 361.5

fMin = 0

Else

Me.Height = 44

fMin = 1

End If

End Sub

Эта тема была разделена из темы "Проверка типа ячейки перед помещением ее в контрол"

Krasnaja Shapka	Сообщ. #2 , 20.02.08, 08:43
Full Member Профиль · PM Рейтинг (т): 18	скрыть форму: Me.Hide' закрыть форму UnLoad Me это если в коде формы конечно... Сообщение отредактировано: Krasnaja Shapka - 20.02.08, 08:45

НарКот

Сообщ. #3 , 20.02.08, 09:57

Profi

Профиль · PM

Рейтинг (т): 101

Krasnaja Shapka, мне нужна в загаловке формы кнопочка СВЕРНУТЬ
неужели у форм ВБА это не предусмотрено?

Сообщения были разделены в тему "Как у формы сделать кнопку СВЕРТЫВАНИЯ формы"

Это сообщение было перенесено сюда или объединено из темы "Проверка типа ячейки перед помещением ее в контрол"

Krasnaja Shapka	Сообщ. #4 , 20.02.08, 10:43
Full Member Профиль · PM Рейтинг (т): 18	это другое дело... к чему тогда цитирование кода? поройся на форуме... тут проскакивал подробнейший пример управления формой...

bi-lya	Сообщ. #5 , 20.02.08, 11:21
Senior Member Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 34	Посмотрите здесь

НарКот	Сообщ. #6 , 20.02.08, 16:14
Profi Профиль · PM Рейтинг (т): 101	Цитата bi-lya @ 20.02.08, 11:21 Посмотрите здесь что-то никак не загружу оттуда можешь здесь написать о чем там?

Pavel55

Сообщ. #7 , 20.02.08, 17:47

Junior

Профиль · PM

Рейтинг (т): 12

Добавь в модуль формы

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Const GWL_STYLE As Long = (-16)

Private Const WS_SYSMENU As Long = &H80000

Private Const WS_MINIMIZEBOX As Long = &H20000

Private Const WS_MAXIMIZEBOX As Long = &H10000

Private Sub UserForm_Activate()

Dim lngFrmHndl As Long

Dim lngStyle As Long

lngFrmHndl = FindWindow(vbNullString, Me.Caption)

lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE)

lngStyle = lngStyle Or WS_SYSMENU

lngStyle = lngStyle Or WS_MINIMIZEBOX

lngStyle = lngStyle Or WS_MAXIMIZEBOX

SetWindowLong lngFrmHndl, GWL_STYLE, (lngStyle)

DrawMenuBar lngFrmHndl

End Sub

bi-lya	Сообщ. #8 , 21.02.08, 02:03
Senior Member Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 34	Да, что-то сайт мертвит... Приаттачиваю Прикреплённый файлUserform_MinToTaskbarWithIcon.zip (35.01 Кбайт, скачиваний: 199)

НарКот	Сообщ. #9 , 21.02.08, 07:56
Profi Профиль · PM Рейтинг (т): 101	спасибо

Pavel55	Сообщ. #10 , 21.02.08, 15:48
Junior Профиль · PM Рейтинг (т): 12	bi-lya, у меня пишет: "Архив повреждён" (или Неожиданный конец архива) Сообщение отредактировано: Pavel55 - 21.02.08, 15:48

bi-lya	Сообщ. #11 , 21.02.08, 23:06
Senior Member Профиль · PM Поощрения: 7 Dgm Рейтинг (т): 34	Pavel55, скорее всего - недогружаете. Попробовал загрузить и разархивировать встроенным виндозовским, RAR, 7-ZIP - все получилось

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0354 ] [ 15 queries used ] [ Generated: 1.07.25, 15:25 GMT ]