В Visual Basic можно рисовать в графическом окне графические примитивы, используя манипулятор мышь.
Создадим проект и напишем программу рисования в графическом окне графических примитивов:
отрезка прямой по двум заданным точкам;
прямоугольника по координатам точек левого верхнего и правого нижнего угла
окружности по заданному центру и точке,лежащей на окружности.
Пример реализации интерфейса приложения (окна формы проекта) для решения задачи рисования графических примитивов.
Текст рограммы.
Событийная процедура Picture1 обрабатывает событие MouseDown,которое происходит, когда пользователь нажимает на кнопку мыши. В результате для объекта PictureBox определены координаты x,y курсора мыши того места, где произошло событие MouseDown.
В программе использован двухмерный массив p(i,j) из четырех элементов.
Индекс i определяет номер точки графического примитива 0 или 1:
для линии точка 0 - начало отрезка, точка 1 - конец отрезка
для прямоугольника точка 0 - верхняя левая вершина, 1 - правая нижняя вершина
для окружности точка 0 - центр окружности, 1 - точка, лежащая на окружности
Индекс j определяет, какая из координат точки задана: 0 - координата по оси Х, 1 - координата по оси Y.
Циклы по переменным i и j в конце событийной процедуры позволяют обнулить элементы массива, когда графический примитав (отрезок прямой, прямоугольник или окружность) уже вычерчен.
