События для динамических объектов

[MacII]

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

Вариант - заранее написать тучу процедур_ОнКлик будет вариантом "Б", хотся чего-то более рационального и оптимального, заранее спасибо

PS контролы создаю с помощью Form1.Controls.Add "VB.Image", nameHex, Form1.imgmap '

[xolod]

А не проше ли через Load контролы загружать?
Они в массиве будут, следить будешь по Index .

[MacII]

Ок, я не знаю как через лоад, но сейчас в нете поищу....

[A.A.Z.]

Добавь кнопку Command1 с Index = 0

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

Sub Form_Load()
Command1(0).Caption = Chr(Int(100 + 5 * Rnd))
For i = 1 To 5
Load Command1(i)
Command1(i).Visible = True
Command1(i).Top = Command1(i - 1).Top + Command1(i - 1).Height
Command1(i).Caption = Chr(Int(32 + (255 - 32) * Rnd))
Next
End Sub

Sub Command1_Click(Index As Integer)
Select Case Index 'выбираешь, какая кнопка была нажата
Case 0 'если с индексом 0, то
'операторы только для кнопки 0

Case 1 'если с индексом 1, то
'операторы только для кнопки 1

Case 2 'если с индексом 2, то
'операторы только для кнопки 2

Case 3 'если с индексом 3, то
'операторы только для кнопки 3

Case 4 'если с индексом 4, то
'операторы только для кнопки 4

Case 5 'если с индексом 5, то
'операторы только для кнопки 5

End Select
MsgBox "Кнопка - " & Index & "; Caption = " & Command1(Index).Caption
End Sub


[MacII]

Большое спасибо. Я понял идею и переделал под свои нужды, сейчас всё работает.

[A.A.Z.]

Так же можно объект создавать как экземпляр другого объекта, например, форму:

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

Sub Command1_Click()
Dim NewForm As New Form1
Set NewForm = New Form1
NewForm.Visible=True
End Sub


При этом, все события, элементы управления (а также их события) (если они там были) сохраняются.