Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.80
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.80

Сразу необходимо решить вопрос с размещением на главной форме элементов управления. Дело в том, что, находясь в форме-контейнере, дочерняя будет пересекаться с элементами управления, создавая таким образом определенные неудобства. Поэтому при создании MDI-приложений чаще используют элемент управления Main Menu. Можно воспользоваться и обычными кнопками Button, надписями Label и прочими элементами. При этом желательно поместить их ближе к одному краю формы, например слева, а дочерние формы справа, установив соответствующее значение стартовой позиции. Задайте значение свойства Start Position равным Manual, а затем с помощью свойства Location пропишите координаты верхнего левого угла дочерней формы. Эти координаты будут установлены относительно формы-контейнера, а не экрана дисплея, как обычно.

Итак, у нас есть форма-контейнер (Forml) и еще одна форма (Form2), которую предстоит сделать дочерней. Как мы

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 15 ▼ Несколько полезных программ

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

Поместим на форму Forml две кнопки Button и текстовое поле TextBox. На форму Form2 - надпись Label. Кнопка Button 1 послужит для открытия дочерней формы. С помощью кнопки Button2 откроем диалоговое окно для передачи текста на дочернюю форму. Для этого предназначено текстовое поле TextBoxl. Сначала объявим переменную, видимую в модуле:

Dim f2 As Form2 = New Form2

Private Sub Buttonl_Click (ByVal sender As_ System. Object, ByVal e As System.EventArgs) _ Handles Buttonl.Click

Затем откроем вторую форму:

f 2. Show () Сделаем вторую форму дочерней:

f2.MdiParent = Me

Передадим текст с главной формы на дочернюю:

f2.Labell.Text = TextBoxl.Text End Sub

Передадим текст на дочернюю форму с помощью диалогового окна:

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta