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

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

Есть такой код:
For i=1 to 10 
Set labelx = Me.Controls.Add('VB.Label', 'label' & i, Me)
next i
Как на такой объект добавить событие click ??? Заранее благодарен.

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

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
.....
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ