ПОНЯТНО О Visual Basic NET (том 3)


Бесконечность форм - часть 2


Dim Форма As New Collection

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Ф As New Form2

        Ф.Show()

        Форма.Add(Ф)

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Форма(3).BackColor = Color.Green

End Sub

 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim i As Integer

        For i = 1 To Форма.Count

            Форма(i).Text = "Форма " & i

        Next

End Sub

Щелкая по первой кнопке, мы создаем очередную форму, показываем ее на экране и добавляем в коллекцию. Щелкнув раз шесть, щелкните один раз по второй кнопке, которая покрасит третью форму, и один раз по третьей кнопке, которая поменяет заголовки у всех форм (см. Рис. 27.4).

Рис. 27.4

Член нашей коллекции не обладает всем богатством свойств формы Form2. Поэтому, если мы, скажем, добавим на Form2 текстовое поле и захотим покрасить вышеописанным способом текстовые поля на всех экземплярах формы, то нам не удастся этого сделать. Спасает положение следующий код:

        Dim Объект As Form2

        For Each Объект In Форма

            Объект.TextBox1.BackColor = Color.Yellow

        Next




- Начало -  - Назад -  - Вперед -



Книжный магазин