Изучение свойств Width, Height, Left, Top элементов управления

Урок 4. Изучение свойств Width, Height, Left, Top элементов управления

Цель:

ü  изучить свойства Width, Height, Left, Top управляющих элементов,

ü  закрепить навыки работы с элементами управления,

ü  развивать логическое мышление, расширять кругозор учащихся.

План:

Орг. момент Проверка знаний Теоретическая часть (свойства Width, Height, Left, Top управляющих элементов) Практическая часть (самостоятельное создание проекта) ДЗ Ответы на вопросы Итог урока

Ход урока:

1.  Приветствие, проверка присутствующих. Объяснение хода урока.

2.  Тест.

1.  На форму могут быть помещены:

1.  Программный код

2.  Элементы управления

3.  Другая форма

4.  Комментарии к программе

2.  Значения свойств формы и элементов управления могут быть заданы с помощью окна:

1.  Область элементов

2.  Конструктор

3.  Свойства

4.  Вывод

3. Какой элемент управления может не только отображать текст, но и получать его от пользователя?

5.  Текстовое поле

6.  Надпись

7.  Кнопка

8.  Выпадающий список

4. Какую функцию выполняют события в Visual ?

1.  Осуществляют запуск проекта на выполнение

2.  Осуществляют компиляцию проекта

3.  Осуществляют построение решения

4.  Вызывают выполнение связанного с ними программного кода

3.  Свойства Width, Height, Left, Top управляющих элементов

Все управляющие элементы, включая форму, имеют свойства Width, Height, Left, Top (см. рис.1). Эти свойства позволяют позиционировать элементы управления на экране. Отсчет координат идет от левого верхнего угла рабочей части формы.

Рис.1

Посмотрим, как разместить форму в центре экрана (это можно сделать в окне свойств или программно):

Form1.StartPosition = SenterScreen

С помощью вышеперечисленных свойств разместим управляющие элементы в углах формы. Обратить внимание на различие св-в формы Height (общая высота формы) и ClientSize. Height (высота той части формы, где располагаются управляющие элементы).

Табл.1

Button1.Left=0 Button1.Top=0

Button1.Left= Form1. Width - Button1. Width Button1.Top=0

Продемонстрировать работу проекта prj4, в котором с помощью разных элементов управления (кнопки, переключатели, выпадающий список) производится позиционирование элемента управления на форме. Значения свойств, которые нужно задать в обработчиках событий, указаны в таблице 1. При перемещении кнопками эти свойства задаются в обработчиках события Button_Click(), для переключателей – RadioButton_CheckedChanged().

Стартовая форма:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles RadioButton1.CheckedChanged

If RadioButton1.Checked = False Then Exit Sub

Form2.ShowDialog()

Form2.Close()

RadioButton1.Checked = False

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles RadioButton2.CheckedChanged

If RadioButton2.Checked = False Then Exit Sub

Form3.ShowDialog()

Form3.Close()

RadioButton2.Checked = False

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles RadioButton3.CheckedChanged

If RadioButton3.Checked = False Then Exit Sub

Form4.ShowDialog()

Form4.Close()

RadioButton3.Checked = False

End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles RadioButton4.CheckedChanged

If RadioButton4.Checked = False Then Exit Sub

Try

Form2.Close()

Catch ex As Exception

End Try

Try

Form3.Close()

Catch ex1 As Exception

End Try

Try

Form4.Close()

Catch ex1 As Exception

End Try

Me. Close()

End Sub

Private Sub Button1_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button1.Click Button1.Left = 0 Button1.Top = 0 End Sub Private Sub Button2_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button2.Click Button2.Top = 0 Button2.Left = Me. Width - Button2.Width End Sub Private Sub Button3_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button3.Click Button3.Top = Me. ClientSize. Height - Button3.Height Button3.Left = 0 End Sub Private Sub Button4_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4.Click Button4.Top = Me. ClientSize. Height - Button4.Height Button4.Left = Me. Width - Button4.Width End Sub
Private Sub rbLeftUp_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles rbLeftUp. CheckedChanged If rbLeftUp. Checked = False Then Exit Sub lbText. Left = 0 lbText. Top = 0 End Sub Private Sub rbLeftDwn_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles rbLeftDwn. CheckedChanged If rbLeftDwn. Checked = False Then Exit Sub lbText. Left = 0 lbText. Top = Me. ClientSize. Height - lbText. Height End Sub Private Sub rbRgtUp_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles rbRgtUp. CheckedChanged If rbRgtUp. Checked = False Then Exit Sub lbText. Left = Me. Width - lbText. Width lbText. Top = 0 End Sub Private Sub rbRgtDwn_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles rbRgtDwn. CheckedChanged If rbRgtDwn. Checked = False Then Exit Sub lbText. Left = Me. Width - lbText. Width lbText. Top = Me. ClientSize. Height - lbText. Height End Sub Private Sub rbCenter_CheckedChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles rbCenter. CheckedChanged If rbCenter. Checked = False Then Exit Sub lbText. Left = Me. Width / 2 - lbText. Width / 2 lbText. Top = Me. ClientSize. Height / 2 - lbText. Height / 2 End Sub
Private Sub cbList_SelectedIndexChanged(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles cbList. SelectedIndexChanged Select Case cbList. SelectedIndex Case 0 lbText. Left = 0 lbText. Top = 0 Case 1 lbText. Left = 0 lbText. Top = Me. ClientSize. Height - lbText. Height Case 2 lbText. Left = Me. Width - lbText. Width lbText. Top = 0 Case 3 lbText. Left = Me. Width - lbText. Width lbText. Top = Me. ClientSize. Height - lbText. Height Case 4 lbText. Left = Me. Width / 2 - lbText. Width / 2 lbText. Top = Me. ClientSize. Height / 2 - lbText. Height / 2 End Select End Sub

Предложить учащимся создать проект перемещения кнопок на своих рабочих местах по выданной им технологической карте:

4.  Задание. Создать проект перемещения кнопок, следуя плану.

·  Создать новый проект типа WindowsApplication (к-да File – Create Project), задать ему имя

Рис.1

·  Добавить форму (к-да Projects - Add Form) типа WindowsForm (рис.1). По умолчанию ей присвоится имя Form1.

·  Добавить на форму четыре элемента Кнопки. Задать свойства Name, Text элементам в соответствии с образцом.

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

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

Button1.Left = 0

Button1.Top = 0

End Sub

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

Button2.Top = 0

Button2.Left = Me. Width - Button2.Width

End Sub

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

Button3.Top = Me. ClientSize. Height - Button3.Height

Button3.Left = 0

End Sub

Private Sub Button4_Click(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles Button4.Click

Button4.Top = Me. ClientSize. Height - Button4.Height

Button4.Left = Me. Width - Button4.Width

End Sub

Проверить работу проекта (к-да Debug - Start) Сохранить проект в папке вашего класса (к-да File – Save All) Откомпилировать проект (к-да Build) Закрыть среду разработки Найти папку с проектом, в ней открыть папку и запустить созданное вами приложение. Проверьте, что оно работает.

Дополнительное задание. Создать проект для перемещения надписи с помощью переключателей (см. prj4, отслеживается событие RadioButton_CheckedChanged. Это событие происходит, когда включается или выключается переключатель. Поэтому перед присваиванием значений свойствам в обработчике этого события надо проверить, включен ли переключатель: If RadioButton1.Checked = False Then Exit Sub).

5.  ДЗ. На форме находится кнопка Button1. Надо расположить две другие кнопки под ней:

Button1

Button2

Button3

Какие значения свойствам этих кнопок надо задать, используя значения свойств кнопки Button1?

6.  Ответы на вопросы.

7.  Сегодня мы рассмотрели свойства Width, Height, Left, Top и научились использовать их для программного позиционирования и изменения положения управляющих элементов на форме и самой формы.