Создаем несколько объектов-форм из одного класса формы
Создайте проект из двух форм и модуля. На форму 1 поместите кнопку, на форму 2 – три кнопки. Покажем, что из одного класса формы можно порождать несколько объектов-форм, причем эти объекты ведут себя так же, как и объекты, порождаемые из модуля класса в предыдущем разделе. Поскольку работа объектов-форм с переменными и процедурами неотличима от таковой работы прочих объектов, то ее рассматривать я не буду, а займусь более живописной и наглядной работой с цветом фона.
В окна кода введите такой текст:
Модуль:
Module Module1
Public Форма1 As New Form2
Public Форма2 As New Form2
End Module
Форма 1:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Форма1.Show()
Форма2.Show()
End Sub
Форма 2:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BackColor = Color.Blue
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.BackColor = Color.Red
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Форма1.Text = "Форма1"
Форма1.BackColor = Color.Black
Форма2.Text = "Форма2"
Форма2.BackColor = Color.White
End Sub
Запустите проект, нажмите кнопку формы 1, на экран «выскочат» два совершенно одинаковых близнеца-формы о трех кнопках каждый. Даже заголовок у них одинаковый – Form2. При щелчках по первым двум кнопкам близнецов каждый близнец красит себя то в синий, то в красный цвет. Только себя, а не брата. Потому что в коде написано Me. Таким образом близнецы очень скоро перестают быть близнецами.
Третья кнопка показывает, что каждый из объектов может изменять не только себя, но и брата.
