Вызов процедуры, как параметра

[Евгений Д.]

Народ, у меня есть форма, например, с 3 кнопками. Мне надо программно имитировать их нажатие, но я не хочу это делать индивидуально для каждой кнопки, вызывая

Код: Выделить всё

call CommandButton1_Click

и т. д., а передавая имя контрола в качестве параметра в некую функцию. Вопрос, как запустить само событие клика на кнопке. Я понимаю, что это должно быть что-то типа callback вызова, но как его организовать в конфе не нашел. Если это не возможно из VBA, то, может, есть путь через API-вызов? Подскажите.

[Евгений Д.]

Совсем забыл про

Код: Выделить всё

Application.Run


Когда-то об этом читал, но пока никогда не пользовался. Так что проблема решена. Хотя недопонимание осталось: есть ли какой-нибудь другой способ имитировать событие объекта (в моем случае - кнопки), зная его имя? Что-то типа Raise, но в хорошем смысле

... Run-то Run, но неожиданно столкнулся с проблемой вызова Private процедуры, лежащей в коде формы, из процедуры, расположенной в другом модуле:

Код: Выделить всё

Application.Run ("UserForm1.CommandButton1_click")


к сожалению, не срабатывает

[Денис]

Сделать в этом модуле паблик-процедуру, вызывающую эпликейшн-ран, а из других модулей вызывать эту процедуру

[Евгений Д.]

Красивое предложение. Вызвать процедуру, вызывающую процедуру-обработчик события, из модуля формы по Call я действительно могу, причем эта процедура может быть любой, кроме Private: Sub или Function с Public или без, и адресуюсь к ней я через префикс UserForm1:

Код: Выделить всё

Call UserForm1.CallButton1Click

а в CallButton1Click лежит вызов обработчика события:

Код: Выделить всё

Sub CallButton1Click
  Call CommandButton1_Click
end Sub

Но! Как только я то же самое делаю c Application.Run:

Код: Выделить всё

Application.Run ("UserForm1.CallButton1Click")

ничего не происходит!!!

[HandKot]

CallByName ?

[Евгений Д.]

Я так понимаю, что у кнопки нет метода Click, поэтому

Код: Выделить всё

CallByName UserForm1.CommandButton1, "Click", VbMethod

выдает сообщение об ошибке.

[Template]

Код: Выделить всё

Public Sub Macro()
    CallByName UserForm1, "CommandButton1_Click", VbMethod
End Sub

Public Sub CommandButton1_Click()
    MsgBox "То, что доктор прописал"
End Sub

[Евгений Д.]

К сожалению, у CommandButton1 (тем более у UserForm1) нет метода CommandButton1_Click (есть только Move, SetFocus, ZOrder и нексколько скрытых), поэтому, что так:

Код: Выделить всё

CallByName UserForm1.CommandButton1, "Click", VbMethod

, что так:

Код: Выделить всё

CallByName UserForm1.CommandButton1, "CommandButton1_Click", VbMethod

, что так:

Код: Выделить всё

CallByName UserForm1, "CommandButton1_Click", VbMethod

- все одно - сообщение об ошибке: "Object doesn't support this property or method (Error 438)"

[HandKot]

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

Код: Выделить всё

Private Sub CommandButton1_Click()

на

Код: Выделить всё

Public Sub CommandButton1_Click()

то сделав так

Код: Выделить всё

Call UserForm1.CommandButton1_Click

все будет в шоколаде

да и так сработает

Код: Выделить всё

CallByName UserForm1, "CommandButton1_Click", VbMethod

[Евгений Д.]

Да так работает. Не заметил я Public в

Код: Выделить всё

Public Sub CommandButton1_Click

Это снимает проблему. Спасибо. Но почему не срабатывает аналогичный вызов:

Код: Выделить всё

Application.Run "UserForm1.CommandButton1_Click"

, на котором я сначала зациклился?

[HandKot]

тут искал одно нашел и это

Совет 393. Программная имитация нажатия кнопок
Предположим, на вашей форме Form1 расположены несколько командных кнопок и вам нужно выполнить программную имитацию их нажатия:


Private Sub Command1_Click()
MsgBox "Кнопка 1 нажата!"
End Sub
Private Sub Command2_Click()
MsgBox "Кнопка 2 нажата!"
End Sub

К примеру, на другой форме Form2 имеется кнопка AllCommands, щелчок которой должен вызывать нажатие двух кнопок на Form1. Обратиться непосредственно к процедурам CommandN_Click нельзя, так как они имеют статус Private. Для решения этой проблемы следует воспользоваться свойством Value, которое управляет состоянием кнопки:


Private Sub AllCommands_Click()
Form1.Command1.Value = True
Form1.Command2.Value = True
End Sub

[Евгений Д.]

Вау!!! И красиво, и элегантно, и не надо морочиться с Private! То, что доктор прописал! Спасибо!!!