Vba excel userform queryclose

QueryClose event

Occurs before a UserForm closes.

Syntax

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

The QueryClose event syntax has these parts:

Part	Description
Cancel	An integer. Setting this argument to any value other than 0 stops the QueryClose event in all loaded user forms and prevents the UserForm and application from closing.
CloseMode	A value or constant indicating the cause of the QueryClose event.

Return values

The CloseMode argument returns the following values:

Constant	Value	Description
vbFormControlMenu	0	The user has chosen the Close command from the Control menu on the UserForm.
vbFormCode	1	The Unload statement is invoked from code.
vbAppWindows	2	The current Windows operating environment session is ending.
vbAppTaskManager	3	The Windows Task Manager is closing the application.

These constants are listed in the Visual Basic for Applications object library in the Object Browser. Note that vbFormMDIForm is also specified in the Object Browser, but is not yet supported.

This event is typically used to make sure there are no unfinished tasks in the user forms included in an application before that application closes. For example, if a user hasn’t saved new data in any UserForm, the application can prompt the user to save the data.

When an application closes, you can use the QueryClose event procedure to set the Cancel property to True, stopping the closing process.

Example

The following code forces the user to click the UserForm client area to close it. If the user tries to use the Close box in the title bar, the Cancel parameter is set to a nonzero value, preventing termination. However, if the user has clicked the client area, CloseMode has the value 1 and Unload Me is executed.

See also

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Источник

Событие QueryClose

Происходит до закрытия UserForm .

Синтаксис

Частный вложенный UserForm_QueryClose(Cancelas Integer, CloseModeas Integer)

Синтаксис события QueryClose содержит следующие элементы:

Part	Описание
Отмена	Параметр SyncSchedule указывает . Допустимые значения этого параметра: Установка для этого аргумента любого значения, отличного от 0, останавливает событие QueryClose во всех загруженных пользовательских формах и предотвращает закрытие UserForm и приложения.
CloseMode	Значение или константы , указывающие причину события QueryClose .

Возвращаемые значения

Аргумент CloseMode возвращает следующие значения:

Константа	Значение	Описание
vbFormControlMenu	0	Пользователь выбрал команду Close (Закрыть) в меню элементов управления Control для UserForm.
vbFormCode	1	Оператор Unload (Загрузить) вызывается из кода.
vbAppWindows	2	Текущий сеанс операционной среды Windows подходит к концу.
vbAppTaskManager	3	Окно Диспетчер задач закрывается в приложении.

Эти константы перечислены в библиотеке объектов Visual Basic для приложений в браузере объектов Object Browser. Обратите внимание, что vbFormMDIForm также указывается в Object Browser, но еще не поддерживается.

Замечания

Это событие обычно используется, чтобы убедиться, что в пользовательских формах нет незавершенных задач, добавленных в приложение перед его закрытием. Например, если пользователь не сохранил новые данные ни в одной из форм UserForm, приложение предложит пользователю сохранить данные.

При закрытии приложения можно использовать процедуру события QueryClose для задания свойству Cancel (Отмена) значения истины True, прекращая процесс закрытия.

Пример

Следующий код заставляет пользователя щелкнуть область клиента UserForm , чтобы закрыть ее. Если пользователь пытается использовать поле Close (Закрыть) в строке заголовка, параметр Cancel, имеющий ненулевое значение, предотвращает закрытие. Однако если пользователь щелкнул клиентную область, CloseMode имеет значение 1 и Unload Me выполняется.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

VBA
Пользовательские формы

Лучшие практики

UserForm — это модуль класса с дизайнером и экземпляром по умолчанию . Доступ к дизайнеру можно получить, нажав Shift + F7 при просмотре кода , а доступ к коду можно получить, нажав F7 во время просмотра дизайнера .

Работайте с новым экземпляром каждый раз.

Будучи модулем класса , форма является, таким образом, планом для объекта . Поскольку форма может содержать состояние и данные, лучше работать с новым экземпляром класса, а не с по умолчанию / глобальным:

Работа с экземпляром по умолчанию может привести к тонким ошибкам, когда форма закрыта красной кнопкой «X» и / или когда Unload Me используется в коде.

Реализуйте логику в другом месте.

Форма должна касаться только презентации : кнопка Click handler, которая подключается к базе данных и запускает параметризованный запрос на основе ввода пользователем, делает слишком много вещей .

Вместо этого внедрите прикладную логику в код, который отвечает за отображение формы или даже лучше в выделенных модулях и процедурах.

Напишите код таким образом, чтобы UserForm всегда отвечал за знание того, как отображать и собирать данные: откуда поступают данные или что происходит с данными после этого, не является проблемой.

Абонент не должен беспокоиться о контроле.

Создайте хорошо определенную модель для формы, с которой можно работать, либо в своем собственном выделенном модуле класса, либо инкапсулироваться внутри самого кода кода — выставлять модель с процедурами Property Get и работать с этим кодом клиента: это делает форма абстракции над элементами управления и их подробные детали, подвергая только соответствующие данные клиенту.

Это означает, что код выглядит следующим образом:

Обработать событие QueryClose.

Обычно формы имеют кнопку « Закрыть» , а в подсказках / диалоговом окне есть кнопки « ОК» и « Отмена» ; пользователь может закрыть форму, используя блок управления формы (красная кнопка «X»), которая по умолчанию уничтожает экземпляр формы (еще одна веская причина работать с новым экземпляром каждый раз ).

Самый простой способ обработать событие QueryClose — установить для параметра Cancel значение True , а затем скрыть форму, а не закрывать ее:

Таким образом, кнопка «X» никогда не уничтожит экземпляр, и вызывающий может безопасно получить доступ ко всем открытым членам.

Скрыть, не закрывать.

Код, который создает объект, должен нести ответственность за его уничтожение: ответственность за разгрузку и завершение работы лежит не на форме.

Избегайте использования Unload Me в коде кода. Вызовите Me.Hide вместо этого, чтобы вызывающий код все еще мог использовать объект, который он создал, когда форма закрывается.

Назовите вещи.

Используйте окно свойств ( F4 ) для тщательного определения каждого элемента управления в форме. Имя элемента управления используется в коде, так что, если вы не используете инструмент рефакторинга, который может справиться с этим, переименование элемента управления приведет к поломке кода — так что гораздо проще делать все правильно, в первую очередь, чем пытаться чтобы точно определить, какой из 20 текстовых TextBox12 означает.

Традиционно элементы управления UserForm называются префиксами венгерского стиля:

• lblUserName для lblUserName управления Label , указывающего имя пользователя.
• txtUserName для txtUserName управления TextBox где пользователь может ввести имя пользователя.
• cboUserName для управления ComboBox где пользователь может ввести или выбрать имя пользователя.
• lstUserName для lstUserName управления ListBox где пользователь может выбрать имя пользователя.
• btnOk или cmdOk для управления Button с надписью «Ok».

Проблема заключается в том, что когда, например, пользовательский интерфейс изменен и ComboBox изменяется на ListBox , имя необходимо изменить, чтобы отразить новый тип управления: лучше называть элементы управления для того, что они представляют, а не после их типа управления — отделить кода из пользовательского интерфейса, насколько это возможно.

• UserNameLabel для метки только для чтения, которая указывает имя пользователя.
• UserNameInput для UserNameInput управления, в котором пользователь может ввести или выбрать имя пользователя.
• OkButton для командной кнопки с надписью «Ok».

Какой бы стиль ни выбрали, все лучше, чем оставлять все элементы управления по умолчанию. Согласованность в стиле именования тоже идеальна.

Обработка QueryClose

Событие QueryClose возникает всякий раз, когда форма закрывается, независимо от того, выполняется ли это с помощью действия пользователя или программно. Параметр CloseMode содержит VbQueryClose перечисления VbQueryClose которое указывает, как форма была закрыта:

постоянная	Описание	Значение
vbFormControlMenu	Форма закрывается в ответ на действие пользователя	0
vbFormCode	Форма закрывается в ответ на оператор Unload	1
vbAppWindows	Сеанс Windows завершается	2
vbAppTaskManager	Диспетчер задач Windows закрывает приложение-хост	3
vbFormMDIForm	Не поддерживается в VBA	4

Для лучшей читаемости лучше использовать эти константы, а не использовать их значение напрямую.

Отмена пользовательской формы

Учитывая форму с кнопкой « Отмена»

Кодировка кода формы может выглядеть так:

Затем вызывающий код может отображать форму и знать, была ли она отменена:

Свойство IsCancelled возвращает True при нажатии кнопки « Отмена» или когда пользователь закрывает форму с помощью блока управления .

Источник

How to close VBA UserForm: Hide vs Unload

VBA UserForms are a key tool for managing user interactions. When UserForms are well designed, they guide users through the options and settings without any help file or guidance. However, from my own UserForm development, I know one of the most overlooked aspects is how to close VBA UserForms. Is it best to hide or unload the form? Does it matter either way?

This post covers key considerations to ensure the closure process achieves the desired outcome.

Download the example file: Click the link below to download the example file used for this post:

Basic VBA code

To start, let’s look at the basic VBA code for opening and closing UserForms. In this post, the UserForm is called myUserForm, which looks like this.

The UserForm has three elements:

• Text box: named txtTextBox
• Hide button: named cmdHide
• Unload button: named cmdUnload

Display a UserForm

The code to display a UserForm is usually stored outside of the UserForm in a standard module. The following code displays a UserForm.

Hide a UserForm

To hide a UserForm using a button, the code may be contained within the UserForm itself, or in a separate module.

Code contained within the UserForm

The code below shows an example where the code is contained within the UserForm. Me. refers to the UserForm object.

Code contained within a standard code module

Where the code is contained within another module, we must refer to the name of the UserForm, as shown by the code below.

When using the hide code outside of the UserForm, we need to call the code from the button.

Unload a UserForm

Another way to close a UserForm is to unload it. Like the examples above, the code can be referenced from within or outside the UserForm code module.

Code contained within the UserForm

The code is an example where the code is contained within the UserForm.

Code contained within a standard code module

The example below is where the code is contained within a standard code module

When using the unhide code outside of the UserForm, we need to call the code from the UserForm.

Close button

The simplest option to close a UserForm is the standard [X] close button. It is convenient because it is always at the top of the window where the user expects it. By default, it doesn’t require any code to work as it’s part of the Windows framework.

The close button is equivalent to the unload method to close the VBA UserFrom.

Assigning the Esc key

The Esc key is commonly used within interface design to close a window. We can use this on our UserForm too, though the option to apply the setting is in a strange place.

Select a button on the UserForm and set the Cancel property to True.

When the UserForm is displayed, pressing the Esc key triggers the button with the Cancel property. Therefore, the Esc key can be assigned to a button with hide or unload.

Hide vs Unload

As there is an option to hide or unload, which should we choose? Does it matter? YES, it definitely does matter.

The two options differ in their approach; they achieve slightly different things.

Unload

Unload closes the form completely; it no longer exists in memory. It will be as if the initialize event had never triggered, so if we refer to any of the objects on the UserForm, they will have no value.

Hide makes a UserForm invisible. It is still there; we just can’t see it. As it still exists, we can still reference objects on the form to retrieve their values.

For example, if there is text in a text box, we can obtain that value after the form has closed. The code below displays a message box with the text from the UserForm.

Note: As the form remains open, it continues to hold the memory.

Preloading the UserForm

What if we want to reference an object on a UserForm before we display it? The initialize event has not been executed, and the form does not exist in memory. To get around this issue, we use the load command to create the UserForm, but not display it.

By using this method, the initialize event triggers, but not the activate event. The activate event only triggers only when the UserForm is displayed.

To guarantee the UserForm is always in memory, load the form during the workbook open event.

How to close using the X button

By default, the [X] close button unloads the UserForm. Which is a problem if we want to hide it. But we can hijack the [X] button control to achieve the same as the hide command.

The UserForm has an event called QueryClose. Using this event, we can cancel the unload action, then hide the UserForm.

Enter the following code in the UserFrom code module

Once we’ve canceled the unload action, we can now refer to the elements on the UserForm, just like the normal hide.

How did the user close the form?

As there are multiple ways to close a UserForm, it may be helpful to know which option the user selected. For example, did they click “OK” or “Cancel”?

In this situation, an easy option is to use a public variable. We can assign the value to the variable as part of the close procedure.

The public variable can then be accessed by any module.

Related Posts:

About the author

Hey, I’m Mark, and I run Excel Off The Grid.

My parents tell me that at the age of 7 I declared I was going to become a qualified accountant. I was either psychic or had no imagination, as that is exactly what happened. However, it wasn’t until I was 35 that my journey really began.

In 2015, I started a new job, for which I was regularly working after 10pm. As a result, I rarely saw my children during the week. So, I started searching for the secrets to automating Excel. I discovered that by building a small number of simple tools, I could combine them together in different ways to automate nearly all my regular tasks. This meant I could work less hours (and I got pay raises!). Today, I teach these techniques to other professionals in our training program so they too can spend less time at work (and more time with their children and doing the things they love).

Do you need help adapting this post to your needs?

I’m guessing the examples in this post don’t exactly match your situation. We all use Excel differently, so it’s impossible to write a post that will meet everybody’s needs. By taking the time to understand the techniques and principles in this post (and elsewhere on this site), you should be able to adapt it to your needs.

But, if you’re still struggling you should:

1. Read other blogs, or watch YouTube videos on the same topic. You will benefit much more by discovering your own solutions.
2. Ask the ‘Excel Ninja’ in your office. It’s amazing what things other people know.
3. Ask a question in a forum like Mr Excel, or the Microsoft Answers Community. Remember, the people on these forums are generally giving their time for free. So take care to craft your question, make sure it’s clear and concise. List all the things you’ve tried, and provide screenshots, code segments and example workbooks.
4. Use Excel Rescue, who are my consultancy partner. They help by providing solutions to smaller Excel problems.

What next?
Don’t go yet, there is plenty more to learn on Excel Off The Grid. Check out the latest posts:

Источник