Как сделать кнопку "Свернуть" рядом с крестиком?

@Fiot · Регистрация: 17.11.2014

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

Vba макрос создаю USerForm , в вверху правом углу есть крестик , что бы закрыт форму, а как туда добавить сворачивание ? Что бы форма сворачивалась вместе с активной книгой в которой идут изменения ?

Аксима · 24.11.2014, 18:12

Здравствуйте, Fiot,

Например, можно поступить так:

Нарисовать под крестиком обычную кнопку (CommandButton).
Присвоить ей текст вроде "_" или "Свернуть".

В обработчике нажатия на кнопку написать следующий код:

Visual Basic

#If VBA7 Then
    Private Declare PtrSafe Function ShowWindow Lib "User32.dll" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Boolean
#Else
    Private Declare Function ShowWindow Lib "User32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Boolean
#End If
 
Private Sub CommandButton1_Click()
    ShowWindow Application.hWnd, 6
End Sub

С уважением,

Аксима

@Fiot · 25.11.2014, 00:13 **[ТС]**

Не получается, выдает ошибку....
Можно посмотреть пример?

@~~Апострофф~~ · 25.11.2014, 07:48

Visual Basic

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
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
Const GWL_STYLE As Long = (-16)
Const WS_SYSMENU As Long = &H80000
Const WS_MINIMIZEBOX As Long = &H20000
Const WS_MAXIMIZEBOX As Long = &H10000
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWNORMAL As Long = 1
 
Private Sub UserForm_Activate()
'добавляет на форму значки минимизировать форму и значок развернуть окно на полный экран
Dim lngFrmHndl As Long
Dim lngStyle As Long
    lngFrmHndl = FindWindow(vbNullString, Me.Caption)
    lngStyle = GetWindowLong(lngFrmHndl, GWL_STYLE) Or WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    SetWindowLong lngFrmHndl, GWL_STYLE, (lngStyle)
    DrawMenuBar lngFrmHndl
End Sub

Правда, как быть с VBA7 - не знаю

@Fiot · 25.11.2014, 09:31 **[ТС]**

Куда вот это вставить ?

Visual Basic

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
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
Const GWL_STYLE As Long = (-16)
Const WS_SYSMENU As Long = &H80000
Const WS_MINIMIZEBOX As Long = &H20000
Const WS_MAXIMIZEBOX As Long = &H10000
Const SW_SHOWMAXIMIZED As Long = 3
Const SW_SHOWMINIMIZED As Long = 2
Const SW_SHOWNORMAL As Long = 1

Это все идет без программы sub ..... я не совсем понимаю

@~~Апострофф~~ · 25.11.2014, 09:33

Сообщение от Fiot

Куда вот это вставить ?

В самый верх модуля формы.

@Fiot · 25.11.2014, 10:22 **[ТС]**

ААА все разобрался ))) Спасибо ) и он добавил , это то что надо было ) спасибо ))

Добавлено через 42 минуты
А можно ли этот скрипт привязать к активной странице в которой идут изменения, что бы он сворачивал и форму и саму книгу?
или я так понимаю это как то делается через vba7 ??

Добавлено через 3 минуты
Хотя сделав просто вот это код, он начал сворачивать

Visual Basic

1
2
3

Private Sub CommandButton1_Click()
    ShowWindow Application.hWnd, 6
End Sub

Добавлено через 3 минуты
Совместив его конечно с этим скриптом

Visual Basic

1	Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

@korvindeson · 25.11.2014, 16:36

В своё время отыскал очень простой и вкусный класс на эту тему. Вот пример.

@Fiot · 25.11.2014, 16:49 **[ТС]**

Да , но там нужно еще какой то стиль формы прописывать полностью ?
так как сама программа в userform не работает , если только заданы все скрипты в Стиле, я правильно понял ?

@korvindeson · 25.11.2014, 17:58

Не понял вопрос. Класс CFormChanger подгружаем, на этапе инициализации формы встявляем код, удаляя не нужные опции.

Visual Basic

Private Sub UserForm_Initialize()
    Set mclsFormChanger = New CFormChanger
    'можно менять размер
    mclsFormChanger.Sizeable = True
    'показать кнопку максимизировать
    mclsFormChanger.ShowMaximizeBtn = True
    'показать кнопку мимимизировать
    mclsFormChanger.ShowMinimizeBtn = True
    'показать заголовок
    mclsFormChanger.ShowCaption = True
    'показать кнопку закрыть
    mclsFormChanger.ShowCloseBtn = True
    'показать иконку
    mclsFormChanger.ShowTaskBarIcon = True
    Set mclsFormChanger.Form = Me
End Sub

Только если разрешаете ресайз, надо ещё прописывать изменение положения элементов в форме, в зависимости от размеров.

@Fiot · 25.11.2014, 18:43 **[ТС]**

Как пристально подгрузить cformchanger ?? Просто прим создание формы идет только модуль ...

@mc-black · 26.11.2014, 07:06

Сообщение от Fiot

Как пристально подгрузить cformchanger ??

Экспортировать одноименный модуль класса из примера в файл с расширением .cls, а затем импортировать его в свой проект. Делается через нажатие ПКМ в дереве проекта (Project Explorer).

Как сделать кнопку "Свернуть" рядом с крестиком?

Решение

Решение

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
		1
	Как сделать кнопку "Свернуть" рядом с крестиком? 24.11.2014, 16:01. Показов 10828. Ответов 11 Метки нет (Все метки) Vba макрос создаю USerForm , в вверху правом углу есть крестик , что бы закрыт форму, а как туда добавить сворачивание ? Что бы форма сворачивалась вместе с активной книгой в которой идут изменения ? 0

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	25.11.2014, 00:13 [ТС]	3
	Не получается, выдает ошибку.... Можно посмотреть пример? 0

@~~Апострофф~~ Заблокирован
	25.11.2014, 09:33	6
	Сообщение от Fiot Куда вот это вставить ? В самый верх модуля формы. 1

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	25.11.2014, 16:49 [ТС]	9
	Да , но там нужно еще какой то стиль формы прописывать полностью ? так как сама программа в userform не работает , если только заданы все скрипты в Стиле, я правильно понял ? 0

@Fiot 3 / 3 / 0 Регистрация: 17.11.2014 Сообщений: 118
	25.11.2014, 18:43 [ТС]	11
	Как пристально подгрузить cformchanger ?? Просто прим создание формы идет только модуль ... 0

@mc-black 2785 / 717 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	26.11.2014, 07:06	12
	Сообщение от Fiot Как пристально подгрузить cformchanger ?? Экспортировать одноименный модуль класса из примера в файл с расширением .cls, а затем импортировать его в свой проект. Делается через нажатие ПКМ в дереве проекта (Project Explorer). 1