Как добавить событие на программно созданный объект - 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

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