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




Проект с несколькими формами - часть 2


Рис. 21.7

Добавьте в проект стандартный модуль. Поместите в окна кода модуля и обеих форм следующий текст:

Модуль:

Module Module1

    Public F1 As Form1

    Public F2 As Form2

End Module

Первая форма:

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

        Me.BackColor = Color.Blue

        F2.BackColor = Color.Yellow

End Sub

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

        TextBox1.Text = "Форма Form1 приветствует саму себя!"

        F2.TextBox1.Text = "Привет форме 2 от формы 1!"

        F2.Focus()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        F1 = Me

End Sub

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

        F2 = New Form2

        F2.Show()

End Sub

Вторая форма:

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

        Me.BackColor = Color.White

        F1.BackColor = Color.Tomato

End Sub

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

        TextBox1.Text = "Форма Form2 приветствует саму себя!"

        F1.TextBox1.Text = "Привет форме 1 от формы 2!"

        F1.Focus()

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TextBox1.Text = "Я родилась!"

End Sub

Пояснения: Прежде всего, несколько слов о том, видны ли модульные переменные из других модулей. Если они объявлены как обычно словом Dim, то не видны, а если словом Public – то видны. Более подробно об этом написано в 21.9.

Модули обычно используются в качестве общедоступного склада для переменных, констант, процедур, функций и других элементов VB. Возьмите, например, модули Strings и DateAndTime пространства имен Microsoft. VisualBasic.




Содержание  Назад  Вперед