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

Листинг 13.4. Код формы для создания пользовательского элемента управления TextBox

'-----------------------------------------------------------------
'Переменная для хранения нашего нового элемента управления TextBox
'-----------------------------------------------------------------
Private m_filteredTextBox As SocialSecurityTextBox
'-----------------------------------------------------------------------
'ОБРАБОТЧИК СОБЫТИЙ: Создать экземпляр нашего пользовательского элемента
' управления и поместить его в форму
'-----------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
 'Создать, позиционировать и разместить элемент управления
 m_filteredTextBox = New SocialSecurityTextBox
 m_filteredTextBox.Bounds = _
  New System.Drawing.Rectangle(2, 2, 160, 20)
 'Подключить обработчик событий
 AddHandler m_filteredTextBox.TextChanged, _
  AddressOf Me.textBox_TextChanged
 'Задать родительский объект
 m_filteredTextBox.Parent = Me
 'Выделить элемент управления
 m_filteredTextBox.Focus()
 'Сделать данную кнопку недоступной, чтобы поверх данного объекта
 'не был создан второй объект
 SocialSecurityTextBox Button1.Enabled = False
End Sub
'----------------------------------------------------------------
'ОБРАБОТЧИК СОБЫТИЙ: Этот обработчик подключается динамически при
' создании элемента управления
'----------------------------------------------------------------
Private Sub textBox_TextChanged(ByVal sender As Object, _
 ByVal e As System.EventArgs)
 If (m_filteredTextBox.IsFullValidInput = True) Then
  label1.Text = "FULL SOCIAL SECURITY NUMBER!!!"
 Else
  Label1.Text = "Not full input yet..."
 End If
End Sub

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