Пардон за каламбур 8). Но тем не менее, дело в следующем:
Я программно создаю объект, в зависимости от многих факторов, события этого объекта будут иметь разное значение, у меня даже есть текстовая переменная содержащая в себе листинг кода на определенное событие, но привязать ее я не могу.
Так как выразился я не понятно, покажу на примере:
Программно создан объект picture1
Программно задаю его свойства
picture1.top = 100
picture1.left = 200
и т.д.
Теперь мне надо задать его события, например
picture1.MouseDown
Я могу сделать что то типа
picture1.MouseDown = mgsbox("А!")
но мне надо что бы там был не один оператор а что то типа:
mgsbox("А!")
mgsbox("АГА!")
mgsbox("А МАСА! МАСА! МАСА!")
mgsbox("А РИКА-ТИКА-ТОНГА!")
Подскажите плиз

На VB6 указанную конструкцию я создал методом научного тыка, но она заработала.

Да Бог с ней, с конструкцией, она тут ни при чем, глюк это или фича разбираться не досуг. Подскажите как мне код в событие динамически создаваемого объекта запихнуть. Свойства то его я описал сам, события не могу.

WorobjoffНе может быть!
Вот код которым "ловят" события динамически созданных контролов:

А где здесь события? Я только свойства вижу.
А
это же не динамически задано, надо что бы в момент создания объекта имя которого не известно.

Worobjoff ALOTE[/src] это же не динамически задано, надо что бы в момент создания объекта имя которого не известно.Во-первых, имя объекта всегда известно.
Во-вторых ссылку на объект можно повесить любой переменной. И если эта переменная объявлена WithEvents и ей определено событие, то установка ссылки этой переменной на объект называется "подписаться на события".
Отнюдь не всегда. До его создания имя не известно.
Вы не поняли объект создается в процессе работы программы и написать "btnOK_Click()" я не могу, так как не знаю как будет называться этот объект. А он может называться btn1, btn2,... btnN. Сколько этих btn будет я не знаю. Я даже не знаю какие события будут происходить на тот же btn1_click, так как листинг формируется так же динамически в зависимости от других условий. Мне нужно что бы событие btn1_click и его код сформировалось динамически, вместе с объектом btn1.

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

БенедиктALOTE,
а ты попробуй, прежде чем дискутировать, поэкспериментируй с кодом, что тебе привели. Представь на секунду, что собеседник вполне-таки тебя понимает, и не зря воздух сотрясает.
А ты представь на секунду, прежде чем лезть с советами, что этот код мне не нужен и вчитаться в вопрос.

VladConn ALOTE БенедиктALOTE,
а ты попробуй, прежде чем дискутировать, поэкспериментируй с кодом, что тебе привели. Представь на секунду, что собеседник вполне-таки тебя понимает, и не зря воздух сотрясает.
А ты представь на секунду, прежде чем лезть с советами, что этот код мне не нужен и вчитаться в вопрос.

ALOTE, Бенедикт ветеран этого форума, и он действительно понимает, что говорит, и действительно тебе хочет помочь (хотя, уже видимо не хочет).

Твой последний выпад в его адрес непозволителен, оскорбителен, необъясним и вообще, идет вразрез с правилами форума.
Пардон, за резкость, и не уважение к сединам, но ответ был симетричен. Бенедикт первый взял указанный тон, и если это идет в разрез с правилами форума, то это его проблемы. Тем не менее обсуждаемый код действительно не имеет отношения, к моему вопросу, я смею Вас заверить, MSDN читать временами умею.

VladConnПопробуй создавать массив элементов и держать в памяти последний их индекс. Будет тогда имя предсказуемо?
Так можно, но как программно задать элементу код? Не пиши предварительно тысячу функций типа
Public sub BTN1_Click()
Бла-бла-бла.
end sub

Public sub BTN2_Click()
Бла-бла-бла.
end sub
....
Public sub BTNN_Click()
Бла-бла-бла.
end sub

БенедиктALOTE,
Горяч, горяч. Значит, действительно не пробовал экспериментировать.

Из кода, что тебе дали, всё что нужно, и вырастает. Это тебе кажется, что этот код не нужен. Сколько элементов управления, когда они созданы (в design- или в runtime), как называются, не имеет значения. Можно создать коллекцию таких элементов. Можно назначить обработчики событий - но эти обработчики событий уже должны существовать в виде методов классов. Если логика обработчика какая-то настраиваемая, то должен существовать какой-то интерпретатор этой логики (только ты пока знаешь, какой).
Да нет, просто адекватен, однако какое отношение имеет коллекция элементов к приведенному выше коду?

WorobjoffНдя... молодежь пошла...
А ведь раньше это характерно было лишь дряхлым старикам - ни кого не слушать, ни чего не читать и быть уверенным что та мысль которая пришла ему в голову здесь и сейчас - есть мысль гения до которой никто прежде не додумался. А свое непонимание людей вокруг, искренне принимать за глупость этих людей...
А старичье, я погляжу, как не слушало других, так и не слушает.

Господа, дабы не усиливать дискуссию, не переходить на личности и воспоминания о том, кто чьей маме имел счастье цветы под Луной дарить, уточню вопрос:
Листинг события которое происходит в создаваемом элементе <b>динамичен</b>.
То есть я не могу написать
Dim WithEvents btnOK As CommandButton

Private Sub btnOK_Click()
MsgBox "Click"
End Sub

Потому что, события которые будут происходить по btnOK_Click() не известны. В первом элементе это может быть просто месаджбокс, во втором запуск рекордсета, в третьем и то и другое и еще много вкусного.

Konst_Oneвидимо тебе дорога в JAVA, там все как ты хочешь
У меня нет под рукой компилятора JAVA 8(

Antonariy... Кажется я уловил поток сознания автора.

Есть набор четко определенных процедур, которые должны выполняться, допустим при нажатии на кнопку, двойном щелчке по гриду и т.п. Причем что когда выполняется должно регулироваться динамически.

Правильно?
Нет, боюсь поток моего сознания, потока Вашего сознания не достиг, к сожалению набора четких процедур, определяемых в зависимости от щелчка мыши нету. Если бы все было так просто, поверте, не полез бы сюда. RTFM я умею. И что такое классы знаю. Вопрос не в этом. Попытаюсь описать задачу с другого угла:
1) В форме есть 8 комбобоксов.
2) У каждого комбобокса от 2 до 7 значений.
3) В зависимости от выбраного в каждом комбобоксе значения формируются события которые должны произойти по нажатию кнопки.
Конечно четкий набор процедур написать можно, только посчитайте сами сколько этих четких наборов может быть.

Antonariy ALOTE
VB не позволяет динамически создать подписку на произвольное событие. Тут есть два выхода - писать классы-переходники с уже заложенными подписками для контролов тех типов, которые будут взаимодействовать с пользователем в твоей схеме. А вот уже в этих классах сделать механизм, вызывающий нужную процедуру. Второй выход - сабклассить нужные контролы единой процедурой, в которой должны быть обработаны все возможные события.
Второй выход невозможен, слишком много вариантов, а вот первый пожалуй стоит попробовать. Просто я надеялся что можно как нибудь задать переменную в качестве обработчика событий.

Бенедикт AntonariyVB не позволяет динамически создать подписку на произвольное событие. Тут есть два выхода - писать классы-переходники с уже заложенными подписками для контролов тех типов, которые будут взаимодействовать с пользователем в твоей схеме. А вот уже в этих классах сделать механизм, вызывающий нужную процедуру. Второй выход - сабклассить нужные контролы единой процедурой, в которой должны быть обработаны все возможные события.Есть ещё по меньшей мере один выход (или модификация первого) - обернуть стандартные элементы управления UserControl-ами (а для ActiveX-ов этого и делать не придётся), и тогда их можно создавать динамически, а события получать через "супер-обработчик" VBControlExtender_ObjectEvent(Info As EventInfo). Чем не динамически созданная подписка на произвольное событие?
Ну вот, теперь благодарствуем.