@tak-tak

Здраствуйте, уважаемые знатоки) Пишу VBA код в Access2003. Ситуация следующая: на форме есть массив однотипных контролов; хочу настроить их поведение при правом клике, для чего создал модуль класса "DelSampleBut" с кодом примерно следующим:
В модуле формы:
Как вы понимаете - не работает.(коды был модифицирован из примера с др. сайта) После пары дней экспериментов и поисков обнаружил что всё начинает работать, если в код формы добавить ДВЕ строки
Если б контролов было 2 я б не парился, но их м/б до 192х. Где я ошибся?

0

Аксима

Здравствуйте, tak-tak,

Дело в том, что для объектов Access предусмотрено три разных типа обработчика для событий этих объектов, например для события OnMouseDown.

Откройте форму в режиме конструктора, нажмите на "Обработка событий..." (или как там у вас в англоязычной версии?) и в меню построителя обработчика событий вы увидите три варианта обработки: макросы, выражения и программы. В вашем случае события обрабатываются с помощью программы, но Access об этом не знает. Надо ему об этом сообщить, и ваш способ - один из вариантов намекнуть Access, что вы хотите обрабатывать события с помощью программы (но этот способ - самый топорный).

Более простой и корректный путь - прямо указать Access, какой конкретно тип обработчика вы хотите использовать. Если вы хотите использовать...

...макрос - пишете в свойстве OnMouseDown элемента управления имя макроса.

...выражение - пишете в свойстве OnMouseDown элемента управления "=<выражение>", где вместо <выражение> подставляете выражение так, как оно отображается в Построителе Выражений.

...программу - пишете в свойстве OnMouseDown элемента управления значение "[Event Procedure]".

Теперь, зная теорию, напишем код, обрабатывающий события наших переключателей:

1. Модуль общего назначения Module1:
   
   

   Visual Basic
   1 Public AllToggleButtons As Collection

2. Модуль класса DelSampleBut:
   
   

   Visual Basic
   1 2 3 4 5 Public WithEvents SampleBut As Access.ToggleButton   Private Sub SampleBut_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)     If Button = 2 Then MsgBox "Элемент управления """ & SampleBut.Name & """ сообщает: нажата правая кнопка мыши." End Sub

3. Модуль формы:
   
   

   Visual Basic

   1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Form_Open(Cancel As Integer)     Dim c As Object, c1 As DelSampleBut     Set AllToggleButtons = New Collection     For Each c In Me.Controls         If TypeOf c Is Access.ToggleButton Then             Set c1 = New DelSampleBut             Set c1.SampleBut = c             c1.SampleBut.OnMouseDown = "[Event Procedure]" 'Указываем, что обработка события OnMouseDown производится именно с помощью программного кода.            AllToggleButtons.Add c1 'Сохраняем ссылку на объект класса, чтобы обрабатывались события его встроенного объекта SampleBut.        End If     Next c End Sub

С уважением,

Аксима

1

@tak-tak

Да-да, я как раз наткнулся на решение на др сайте, только там свойство OnMouseDown = "[Event Procedure]" устанавливается сразу в модуле класса, но ваш код понятнее. Спасибо за уделённое мне время)

0