Как определить какой кнопкой вызывается форма?

@iam2005 · Регистрация: 10.04.2011

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

В книге есть UserForm1 с тремя кнопками.
Каждая из этих кнопок вызывает UserForm2.
Вопрос:
Как в модуле UserForm2 определить,
какой кнопкой это форма вызвана?
Заранее благодарен!

04.09.2011, 23:32

Лучше всего определить глобальную переменную (целую), и в процедуре-событии задавать уникальное значение.

05.09.2011, 01:14

Или передавать в форму при вызове цифирь параметром (если такое возможно в VB - в VBA такое есть)

@iam2005 · 05.09.2011, 14:17 **[ТС]**

Спасибо за ответ!

Я думал есть стандартные методы VBA!

Но пришлось определить глобальные переменные:,
Public Cmd1 As Boolean
Public Cmd2 As Boolean
Public Cmd3 As Boolean

Для UserForm1:,
Private Sub UserForm_Initialize()
Cmd1 = False
Cmd2 = False
Cmd3 = False
End Sub

Для кнопок:,
Private Sub CommandButton1_Click()
Cmd1 = True
UserForm2.Show
End Sub

Private Sub CommandButton2_Click()
Cmd2 = True
UserForm2.Show
End Sub

Private Sub CommandButton2_Click()
Cmd3 = True
UserForm2.Show
End Sub

Для прочих процедур:,
If Cmd1 = True Then
...
ElseIf Cmd2 = True Then
...
Else
...
End If

Для UserForm2:,
Private Sub UserForm_Terminate()
Cmd1 = False
Cmd2 = False
Cmd3 = False
End Sub

05.09.2011, 17:22

а зачем столько переменных? )

@mmos · 05.09.2011, 18:08

Я бы использовал UserForm.Tag

@iam2005 · 05.09.2011, 21:34 **[ТС]**

Не нашёл в справке VBA UserForm.Tag

@mmos · 06.09.2011, 14:00

Tag - это свойство формы. Ему можно присваивать текстовое значение. А потом его читать.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@iam2005 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 18

	Как определить какой кнопкой вызывается форма? 04.09.2011, 22:46. Показов 1706. Ответов 7 Метки нет (Все метки) В книге есть UserForm1 с тремя кнопками. Каждая из этих кнопок вызывает UserForm2. Вопрос: Как в модуле UserForm2 определить, какой кнопкой это форма вызвана? Заранее благодарен! 0

CatsTail
	04.09.2011, 23:32
	Лучше всего определить глобальную переменную (целую), и в процедуре-событии задавать уникальное значение.

Ghost
	05.09.2011, 01:14
	Или передавать в форму при вызове цифирь параметром (если такое возможно в VB - в VBA такое есть)

@iam2005 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 18
	05.09.2011, 14:17 [ТС]
	Спасибо за ответ! Я думал есть стандартные методы VBA! Но пришлось определить глобальные переменные:, Public Cmd1 As Boolean Public Cmd2 As Boolean Public Cmd3 As Boolean Для UserForm1:, Private Sub UserForm_Initialize() Cmd1 = False Cmd2 = False Cmd3 = False End Sub Для кнопок:, Private Sub CommandButton1_Click() Cmd1 = True UserForm2.Show End Sub Private Sub CommandButton2_Click() Cmd2 = True UserForm2.Show End Sub Private Sub CommandButton2_Click() Cmd3 = True UserForm2.Show End Sub Для прочих процедур:, If Cmd1 = True Then ... ElseIf Cmd2 = True Then ... Else ... End If Для UserForm2:, Private Sub UserForm_Terminate() Cmd1 = False Cmd2 = False Cmd3 = False End Sub 0

Ghost
	05.09.2011, 17:22
	а зачем столько переменных? )

@mmos 4 / 4 / 2 Регистрация: 06.03.2011 Сообщений: 151
	05.09.2011, 18:08
	Я бы использовал UserForm.Tag 0

@iam2005 0 / 0 / 0 Регистрация: 10.04.2011 Сообщений: 18
	05.09.2011, 21:34 [ТС]
	Не нашёл в справке VBA UserForm.Tag 0

@mmos 4 / 4 / 2 Регистрация: 06.03.2011 Сообщений: 151
	06.09.2011, 14:00
	Tag - это свойство формы. Ему можно присваивать текстовое значение. А потом его читать. 0