Книга: Программирование мобильных устройств на платформе .NET Compact Framework

Листинг 11.10. Код, который должен быть помещен в форму для создания экземпляра пользовательского элемента управления

'Наша новая кнопка
Private m_newControl As myButton
'--------------------------------------------------------------
'Этот код будет подключен в качестве нашего обработчика событий
'--------------------------------------------------------------
Private Sub CallWhenButtonTurningBlue(ByVal sender As Object, _
 ByVal e As System.EventArgs)
 MsgBox("Кнопка становится синей!")
End Sub
'----------------------------------------------
'Эта функция подключается для обработки событий
'щелчка на кнопке Button1
'----------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
 '----------------------------------------------
 'Для простоты мы допускаем существование только
 'одного экземпляра элемента управления,
 '----------------------------------------------
 If Not (m_newControl Is Nothing) Then Return
  'Создать экземпляр нашей кнопки
  m_newControl = New myButton
  'Указать ему его местоположение внутри родительского объекта
  m_newControl.Bounds = New Rectangle(10, 10, 150, 40)
 '-------------------------------
 'Присоединить обработчик событий
 '-------------------------------
 AddHandler m_newControl.EventButtonTurningBlue, _
  AddressOf CallWhenButtonTurningBlue
 'Добавить его в список элементов управления данной формы.
 'Это сделает его видимым
 Me.Controls.Add(m_newControl)
End Sub

Оглавление книги