Закрытие формы

@MU-GK · Регистрация: 06.01.2017

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

Создаём форму.
Закрыть её можно, просто кликнув по крестику в правом верхнем углу.
Но правила хорошего тона требуют предусмотреть кнопку закрытия, при этом надо прицепить к кнопке Обработчик Клика.
Что-то вроде:

Visual Basic

1
2
3

Private Sub cmb_Exit_Click()
 Me.Hide
End Sub

Но форма может закрываться и в других случаях, например в случае загрузки/сохранения некоего "Начального Документа" в случае отказа от операции

Что-то такое:

Visual Basic

Private Sub cmb_СreateCombine_Click()
 wbCombName = LoadFileSRC
 If wbCombName = "False" Then
  Me.Hide
 Else
 End If
End Sub

Вопрос, как закрыть форму не выписывая закрытие в явной форме, а через посылку сообщения в Обработчик кнопки Закрытия?

@Alex77755 · 09.11.2017, 06:59

вместо Me.Hide вызвать cmb_Exit_Click

Добавлено через 2 минуты

Но правила хорошего тона требуют предусмотреть кнопку закрытия

Не по теме:

жесткие требования у ваших правил! лучше кучу граблей навалить чем воспользоваться стандартным предусмотренным средством

@MU-GK · 09.11.2017, 11:12 **[ТС]**

Ну это не то, очевидно же.

Какая мне разница, вызывать ту или иную функцию.

Более того, Hide даже предпочтительнее в каком-то смысле.

Нет, здесь надо именно что послать какое-о сообщение, Event....

@Burk · 09.11.2017, 17:21

MU-GK, ну и обратиться из разных, где вам нужно к этому макросу закрытия Call cmb_Exit_Click

Добавлено через 16 минут
MU-GK, только нужно указать ИмяФормы.ИмяСаб, если закрывать не под флагом этой формы

@MU-GK · 09.11.2017, 17:31 **[ТС]**

Ну Вы даёте!
Для это и обращаться не надо, достаточно прописать нужную функцию закрытия.

А вот если надо, сидя в одной форме, закрыть другую форму?
А если эта другая форма в другой Книге?
А если вообще в другой Application, одна, скажем, в Excel, а другая в PowerPoint?

@Burk · 09.11.2017, 18:27

Сообщение от MU-GK

А вот если надо, сидя в одной форме, закрыть другую форму?

Я вам про это и писал

Сообщение от MU-GK

А если эта другая форма в другой Книге?

если мне не изменяет память, то и это возможно, но уже с указанием книги, в которой нужно закрыть форму
Про другую аплик ничего не могу сказать

@MU-GK · 09.11.2017, 19:16 **[ТС]**

А всего-то надо послать сообщение.

Но как?!

@pashulka · 09.11.2017, 19:43

Если речь идёт о другом приложении, к которому мы не имеем доступа, то :

Visual Basic

Private Const WM_CLOSE = &H10
 
Private Declare Function FindWindow _
        Lib "user32" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
Private Declare Function SendMessage _
        Lib "user32" Alias "SendMessageA" ( _
        ByVal hWnd As Long, _
        ByVal wMsg As Long, _
        ByVal wParam As Long, _
        lParam As Any) As Long
 
Private Sub Test()
    h& = FindWindow(vbNullString, "UserForm1")
    SendMessage h&, WM_CLOSE, 0&, 0&
End Sub

И если Вы правильно укажите заголовок окна, то будет вызвано событие UserForm_QueryClose чужой формы.

@MU-GK · 10.11.2017, 00:45 **[ТС]**

Мда ..
Сложно как-то ...

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	09.11.2017, 06:59	2
	вместо Me.Hide вызвать cmb_Exit_Click Добавлено через 2 минуты Но правила хорошего тона требуют предусмотреть кнопку закрытия Не по теме: жесткие требования у ваших правил! лучше кучу граблей навалить чем воспользоваться стандартным предусмотренным средством 0

@MU-GK 32 / 29 / 1 Регистрация: 06.01.2017 Сообщений: 297
	09.11.2017, 11:12 [ТС]	3
	Ну это не то, очевидно же. Какая мне разница, вызывать ту или иную функцию. Более того, Hide даже предпочтительнее в каком-то смысле. Нет, здесь надо именно что послать какое-о сообщение, Event.... 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	09.11.2017, 17:21	4
	MU-GK, ну и обратиться из разных, где вам нужно к этому макросу закрытия Call cmb_Exit_Click Добавлено через 16 минут MU-GK, только нужно указать ИмяФормы.ИмяСаб, если закрывать не под флагом этой формы 0

@MU-GK 32 / 29 / 1 Регистрация: 06.01.2017 Сообщений: 297
	09.11.2017, 17:31 [ТС]	5
	Ну Вы даёте! Для это и обращаться не надо, достаточно прописать нужную функцию закрытия. А вот если надо, сидя в одной форме, закрыть другую форму? А если эта другая форма в другой Книге? А если вообще в другой Application, одна, скажем, в Excel, а другая в PowerPoint? 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	09.11.2017, 18:27	6
	Сообщение от MU-GK А вот если надо, сидя в одной форме, закрыть другую форму? Я вам про это и писал Сообщение от MU-GK А если эта другая форма в другой Книге? если мне не изменяет память, то и это возможно, но уже с указанием книги, в которой нужно закрыть форму Про другую аплик ничего не могу сказать 0

@MU-GK 32 / 29 / 1 Регистрация: 06.01.2017 Сообщений: 297
	09.11.2017, 19:16 [ТС]	7
	А всего-то надо послать сообщение. Но как?! 0

@MU-GK 32 / 29 / 1 Регистрация: 06.01.2017 Сообщений: 297
	10.11.2017, 00:45 [ТС]	9
	Мда .. Сложно как-то ... 0