Много кнопок с одним событием

У меня на форме порядка двадцати кнопок, а функция обработки события должна быть одна. Как сделать так чтобы она получала имя вызвавшей ее кнопки?

поспрошать у ActiveControl.Name

Если я правильно понял вопрос... В public модуле разместите функцию, принимающу в качестве параметра кнопку, поле, имя, любую метку. Например:

Public Function MyAnyFuncBlaBla(ByRef frm as Form, ByRef btn as CommandButton) as long
Dim a as string

With frm
a = .Name 'а тут делаем с формой, контролами и т.п. что надо
End with

With btn
a = .Name 'а тут с кнопкой (или любым контролом)
End With

End Function

Т.е. основной смысл - передать в ф-цию обработки ссылку на объект, а там уже... В общем, передавайте в неё всё что захочется, вплоть до форм и рекордсетов. Там и пишите код обработки.

А в самой кнопке на форме разместите что-нибудь, вроде:

Private Sub Кнп_ОгоГо_Click()

Call MyAnyFuncBlaBla(Me, Me.Кнп_ОгоГо)

End Sub

Ещё можно иммитировать массивы контролов (ибо прямой поддержки в Аксе массива контролов, по-моему, нет). Но тот путь, что я привёл - проще.

ОйОй

Как раз этого (определения процедуры обработки события для каждой кнопки) он, похоже и хочет избежать :)

screen.activecontrol

Alexander G

ОйОй Как раз этого (определения процедуры обработки события для каждой кнопки) он, похоже и хочет избежать :)

пропиши имя этой единственной функции в свойствах кнопок, на событие клик например, =ИмяФункции(Параметр),
где Параметр м.б. число или текст (имя кнопки).
Ессно функция должна его принимать.

Спасибо.
В принципе можно и так выкрутится.
Вообще задачка такая, несколько извращенно, но работать должно.

На плане (подложка на форме) может распологатся какое-то число объектов.
Расположение кнопок я эмулирую их положение(при открытии формы они распологаются там где надо). Количество оюектов не ограничено, я побольше кнопок накидал не видимыми. Не хочу описывать все.
Как это избежать? Можно ли добавлять кнопку программно, а так же событие кней?

antipod

Спасибо. В принципе можно и так выкрутится. Вообще задачка такая, несколько извращенно, но работать должно. На плане (подложка на форме) может распологатся какое-то число объектов. Расположение кнопок я эмулирую их положение(при открытии формы они распологаются там где надо). Количество оюектов не ограничено, я побольше кнопок накидал не видимыми. Не хочу описывать все. Как это избежать? Можно ли добавлять кнопку программно, а так же событие кней?

Private Sub Form_Load() Me.btn1.OnClick = "=fnMyFunction(0)" End Sub

Если fnMyFunction(0) - функция, существующая в общем модуле, то нет проблем, как видим.

antipod

Можно ли добавлять кнопку программно?

CreateControl