Представим форму в виде системы координат, в которой можно создавать объекты, используя различные методы, например:
Свойства
объектов, влияющие на графические метод
Очистить форму
Cls - clear screen
Задание масштаба формы
Scale (0, 0)-(300, 300) - указание координат левого верхнего и правого нижнего углов формы
Например, Scale (-300, 300)-(300, 300) задет следующие координаты формы:
Установка толщины линий
DrawWidth = 1 - толщина линий 1 пикселЦвет в VB 2 способа
vbRed или RGB(255, 0, 0) - красный
Описание метода LINE
LINE ( X1, Y1 ) - ( X2, Y2 ) ,
X1, Y1 и X2, Y2 - координаты отрезка прямой
(в дальнейшем я буду для простоты при описании процедур, функций, методов в качестве значения их параметров будут указываться числа)
Выполните следующие действия:
Создайте новый проект, щелкните по форме и введите следующую процедуру, но не всю сразу, а по одной команде, запуская каждый раз проект на выполнение, для того чтобы понять, что делает каждая команда.
Описание процедуры:
Результат:
Задания
Простые задания (exe файл)
Исходник (запуск в VB - Form1)
Задание 1
|
Задание 2
|
Задание 3 | Задание 4 |
Задание 5 | Задание 6 |
Задание 7 | Задание 8 |
Дополнительное задание
Создайте проект рисования случайных фигур при нажатии на соответствующую кнопку
Загрузить exe файл
Загрузить exe файл
Пример процедур для кнопок Линии и Очистить
Private Sub Command1_Click()
' Рисование
случайных линий по нажатию на кнопку
Randomize
Scale (0,
0)-(1000, 1000)
DrawWidth = 5
Line (Rnd *
1000, Rnd * 1000)-(Rnd * 1000, Rnd * 1000), RGB(Rnd * 255, Rnd * 255, Rnd *
255)
End Sub
Private Sub
Command2_Click()
' кнопка очистки
экрана
Cls
End Sub
Комментариев нет:
Отправить комментарий