2015-05-10
212
1. Создайте новый проект. Активизируйте форму Form1 щелчком мыши. В окне Свойства объекта выбрать свойство Text и присвоить ему значение Первый проект.
2. Разместите в центре формы четыре кнопки Button1, Button2, Button3 и Button4.
3. Последовательно активизируйте форму и кнопки. В окне Свойства объекта последовательно для всех объектов измените свойство Name на form1, Button1, Button2, Button3 и Button4.
4. Активизируйте форму form1. В окне Свойства объекта последовательно присвойте свойствам Left, Тор, Width и Height значения 1000, 3000, 4000, 3000.
5. Двойным щелчком по форме вызовите окно Программный код с пустой процедурой Form_LoadO. Введите код процедуры выравнивания.
6. Разместите четыре кнопки в центре формы с помощью мыши. При необходимости задайте точное положение каждой кнопки на форме и их размеры с помощью окна Свойства объекта.
Рисунок 1. Расположение кнопок
Для кнопки Button3, которая должна перемещаться в правый нижний угол код событийной процедуры следующий:
Private Sub Button_C1ick()
Button3.Move form l.Width - Button3.Width, form1.Height - Button3.Height
End Sub
7. Запустите проект. Форма появится в центре экрана монитора. Последовательно щелкните по всем кнопкам, они переместятся в углы формы.
Рисунок 2. Работающая программа
