Как добавить событие на программно созданный объект - VB

Формулировка задачи:

Есть такой код:

                    Листинг программы
                
For i=1 to 10 
Set labelx = Me.Controls.Add('VB.Label', 'label' & i, Me)
next i

Как на такой объект добавить событие click ??? Заранее благодарен.

Решение задачи: «Как добавить событие на программно созданный объект»

textual
                            Листинг программы 
                        
 
                        
                          
                    
.....
For i=1 to 10
 Load labelx(i)
 labelx(i).caption='Label ' & i
 labelx(i).move labelx(0).left,labelx(0).top+i*labelx(0).height
next i
.....
Sub labelx_Click(Index as integer)
 MsgBox 'You clicked label with index ' & Index
End Sub
.....

Оцени полезность:

10 голосов , оценка 4.1 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы