> 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
Листинг 13.5. код формы, демонстрирующий использование прозрачности '
>'----------------------------------------------------------------
>'Размеры наших битовых образов и экранного изображения PictureBox
>'----------------------------------------------------------------
>Const bitmap_dx As Integer = 200
>Const bitmap_dy As Integer = 100
>'-------------------------------------------------
>'Создает и прорисовывает изображение заднего плана
>'-------------------------------------------------
>Private m_backgroundBitmap As System.Drawing.Bitmap
>Sub CreateBackground()
> If (m_backgroundBitmap Is Nothing) Then
> m_backgroundBitmap = New Bitmap(bitmap_dx, bitmap_dy)
> End If
> 'Делаем битовую карту белой
> Dim gfx As System.Drawing.Graphics
> gfx = System.Drawing.Graphics.FromImage(m_backgrourdBitmap)
> gfx.Clear(System.Drawing.Color.White)
> 'Рисуем текст черным
> Dim myBrush As System.Drawing.Brush
> myBrush = New System.Drawing.SolidBrush( _
> System.Drawing.Color.Black)
> Dim у As Integer
> For у = 0 To bitmap_dy Step 15
> gfx.DrawString("I am the BACKGROUND IMAGE...hello", Me.Font, myBrush, 0, y)
> Next
> 'Очистить
> myBrush.Dispose()
> gfx.Dispose()
>End Sub
>'-------------------------------------------------
>'Создает и прорисовывает изображение заднего плана
>'-------------------------------------------------
>Private m_foregroundBitmap As System.Drawing.Bitmap
>Sub CreateForeground()
> If (m_foregroundBitmap Is Nothing) Then
> m_foregroundBitmap = New Bitmap(bitmap_dx, bitmap_dy)
> End If
> 'Делаем всю битовую карту синей
> Dim gfx As System.Drawing.Graphics
> gfx = System.Drawing.Graphics.FromImage(m_foregroundBitmap)
> gfx.Clear(System.Drawing.Color.Blue)