> evaluateMultipleChoiceAnswer(buttonAnswer4, 4)
>End Sub
>'ОБРАБОТЧИК СОБЫТИЙ: Был выполнен щелчок на кнопке выбора варианта ответа
>Private Sub buttonAnswer5_Click(ByVal sender As Object, ByVal _
> e As System.EventArgs) Handles buttonAnswer5.Click
> evaluateMultipleChoiceAnswer(buttonAnswer5, 5)
>End Sub
Листинг 13.2. Динамическое создание элементов управления на форме во время выполнения
>'-------------------------------------
>'Счетчик количества создаваемых кнопок
>'-------------------------------------
>Private m_nextNewButtonIndex As Integer
>'---------------------------------------------------------------
>'ОБРАБОТЧИК СОБЫТИЙ: Обработчик щелчка на кнопке, которая
>' имеется на нашей форме.
>'
>'Эта функция создает новую кнопку, присоединяет ее к нашей форме
>'и подключает обработчик события щелчка для нее
>'---------------------------------------------------------------
>Private Sub buttonCreateNewButtons_Click(ByVal sender As _
> System.Object, ByVal e As System.EventArgs) _
> Handles buttonCreateNewButtons.Click
> 'Впоследствии мы начнем создавать новые кнопки, начиная
> 'снизу экрана, поэтому ограничиваем их количество восемью
> If (m_nextNewButtonIndex > 8) Then
> Return
> End If
> '----------------------------------------------------
> 'Создать кнопку (еще не присоединенную к нашей форме)
> 'установить ее местоположение, размеры и текст
> '----------------------------------------------------
> Const newButtonHeight As Integer = 15
> Dim newButton As System.Windows.Forms.Button
> newButton = New System.Windows.Forms.Button
> newButton.Width = 100
> newButton.Height = newButtonHeight
> newButton.Left = 2
> newButton.Top = (newButtonHeight + 2) * m_nextNewButtonIndex
> newButton.Text = "New Button " + _
> m_nextNewButtonIndex.ToString()
> '----------------------------------------------------
> 'Присоединить обработчик к событию щелчка для данного
> 'элемента управления.
> '----------------------------------------------------
> AddHandler newButton.Click, _
> AddressOf Me.ClickHandlerForButtons
> '---------------------------------------------
> 'Присоединить эту кнопку к форме. По существу,
> 'это создаст кнопку на форме!
> '---------------------------------------------
> newButton.Parent = Me
> 'Увеличить счетчик в соответствии с созданием очередной кнопки
> m_nextNewButtonIndex = m_nextNewButtonIndex + 1
>End Sub
>'-----------------------------------------------------
>'Обработчик событий, который мы динамически подключаем
>'к нашим новым кнопкам
>'-----------------------------------------------------
>Private Sub ClickHandlerForButtons(ByVal sender As Object, _