Практика

Пример 1

Создайте форму:

Код:

Dim ttt As TextBox

Private Sub Command1_Click()

Set ttt = Text1

ttt.Text = " Надпись в 1 поле текста"

Set ttt = Nothing

End Sub

Private Sub Command2_Click()

Set ttt = Text2

ttt.Text = " Надпись во 2 поле текста"

Set ttt = Nothing

End Sub

Как видите, мы используем объектную переменную ttt для ссылки на разные объекты.

Запустите приложение.

Пример 2

Если надо написать процедуру, центрирующую форму на экране, то можно написать ее в следующем виде:

Private Sub Command1_Click()

CenterForm Me

End Sub

Private Sub Command2_Click()

Dim formCopy As New Form1

formCopy.Show

End Sub

‘Процедура центрирования любой формы (точнее – формы, откуда вызывается процедура)

Public Sub CenterForm(frm As Form)

frm.Move (Screen.Width - frm.Width) / 2, (Screen.Height - frm.Height) / 2

End Sub

Как видите, в процедуре CenterForm используется объектная переменная frm – она используется для ссылки на объект типа формы (не на конкретную форму!!!). А под кнопкой центрирования вместо указания конкретной формы используется ключевое слово Me (меня, то есть текущую форму).

Так же можно вместо ключевого слова Me напрямую указывать конкретную форму.

Самостоятельно создайте приложение, состоящее из нескольких различных (не копий!) форм. Каждая форма должна иметь кнопку центрирования, обрабатывающая одну процедуру CenterForm. Сначала используйте слово Ме, потом измените код для центрирования какой-либо формы.

Форма 1:

Форма 2:

Форма 3:

Один из вариантов кода первой формы:

Private Sub Command1_Click()

CenterForm Me

End Sub

Public Sub CenterForm(frm As Form)

frm.Move (Screen.Width - frm.Width) / 2, (Screen.Height - frm.Height) / 2

End Sub

Private Sub Command2_Click()

Form2.Show

End Sub

Private Sub Command3_Click()

Form3.Show

End Sub

Для второй и третьей формы допишите программу самостоятельно.

Запустите программу.

Замечание:

Если Вы под кнопками центрирования будете писать не Ме, а указывать конкретную форму, то эта кнопка и будет центрировать любую указанную форму из Вашего проекта.