Построение изображений с использованием графических примитивов - Программирование графики в Microsoft Visual Basic
В векторных чертежах Графическим примитивом называют элементарные составляющие чертежа: отрезок, дуга, символ, окружность и др. Здесь имеем дело с растровой графикой, но в данном случае подход тот же - по координатам рисуем те же фигуры. Система координат такая: начало координат - это левый верхний угол формы, ось Ox направлена вправо, а Oy - вниз. Задача состоит в том, чтобы рисовать в форме: окружность, отрезок, прямоугольник, сектор, текст, эллипс и закрашенный сектор. Выбор того или иного графического примитива осуществить через элемент управления ListBox. Для решения этой задачи создаем форму и перетаскиваем в нее из Панеля элементов элемент управления ListBox. Далее - двойной щелчок в пределах формы, где в пустом обработчике события Form1_Load создаем список графических примитивов, заполняя коллекцию (Items) элементов списка ListBox1 [9, с.118]..
Далее переходим в программный код и вводим соответствующий текст, представленный ниже:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System. Object,
ByVal e As System. EventArgs) Handles MyBase. Load
ListBox1.Items. AddRange(New Object() {"Окружность", "Отрезок",
"Прямоугольник", "Сектор", "Текст",
"Эллипс", "Закрашенный сектор"})
' Font = New Font("Times New Roman", 14)
Me. Text = "Выбери графический примитив"
End Sub
Private Sub ListBox1_Click(ByVal sender As Object,
ByVal e As System. EventArgs) Handles ListBox1.Click
' Создание графического объекта
Dim graph As Graphics = MyBase. CreateGraphics
' Создание пера для рисования им фигур
Dim pen1 As New Pen(Color. Red)
' Создание кисти для "закрашивания" фигур
Dim brush1 As New SolidBrush(Color. Red)
' Очистка области рисунка путем ее окрашивания в
' первоначальный цвет формы graph. Clear(Color. FromName("Control"))
' graph. Clear(ColorTranslator. FromHtml("#EFEBDE"))
Select Case ListBox1.SelectedIndex
Case 0 ' -- выбрана окружность:
Graph. DrawEllipse(pen1, 50, 50, 150, 150)
Case 1 ' -- выбран отрезок:
Graph. DrawLine(pen1, 50, 50, 200, 200)
Case 2 ' -- выбран прямоугольник:
Graph. DrawRectangle(pen1, 50, 30, 150, 180)
Case 3 ' -- выбран сектор:
Graph. DrawPie(pen1, 40, 50, 200, 200, 180, 225)
Case 4 ' -- выбран текст:
Dim s As String
S = "Каждый во что-то верит, но" &;
VbCrLf &; " жизнь преподносит сюрпризы."
Graph. DrawString(s, Font, brush1, 10, 100)
Case 5 ' -- выбран эллипс:
Graph. DrawEllipse(pen1, 30, 30, 150, 200)
Case 6 ' -- выбран закрашенный сектор:
Graph. FillPie(brush1, 20, 50, 150, 150, 0, 45)
End Select
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Методы очистки формы:
Dim Графика = CreateGraphics()
Графика. Clear(Me. BackColor)
' Графика. Clear(SystemColors. Control1)
' Графика. Clear(Color. FromName("Control"))
' Графика. Clear(Color. FromKnownColor(KnownColor. Control))
' Графика. Clear(ColorTranslator. FromHtml("#FOFOFO"))
' Me. Refresh() ' Этот метод также перерисовывает форму
End Sub
End Class
В программе, обрабатывая событие Click по выбранному элементу списка, создаю: графический объект graph, перо pen1 для рисования им фигур, кисть brush1 для "закрашивания" ею фигур. Далее очищаем область рисования путем окрашивания формы в первоначальный цвет "Control" или #EFEBDE (как записано в комментарии), используя метод Clear() объекта graph: graph. Clear(Color. FromName("Control")) Процедура окрашивания формы в какой-либо цвет выглядела бы менее громоздко, если бы использоваи какую-либо константу, означающую цвет, например, White или любую другую из списка 146 констант цвета. Тогда бы написали:
Graph. Clear(Color. White) В таком случае пришлось бы при инициализации переменных при загрузке формы задать другой цвет формы:
Me. BackColor = System. Drawing. Color. White Однако хотелось бы, чтобы цвет формы оставался первоначальным - "Control". Кстати, этот цвет можно назвать цветом Microsoft: это цвет Windows Explorer, Internet Explorer и пр. После очистки формы, используя свойство SelectIndex, которое указывает на номер выбранного пользователем элемента списка (от 0 до 6), рисуем выбранную фигуру. На рисунке 13 представлен фрагмент работы программы [9, с.124].
Рис.13 - Окно рисования графического примитива на форме
Похожие статьи
-
Построение изображений указателем мыши в Microsoft Visual Basic Приведем пример, в котором демонстрируется рисование указателем мыши на форме, то есть...
-
Visual Basic представляет собой интегрированную среду разработки, которая содержит набор инструментов, облегчающих и ускоряющих процесс разработки...
-
Введение - Программирование графики в Microsoft Visual Basic
Microsoft Visual Basic (VB) - это система программирования, предназначенная для написания программ, работающих под управлением операционной системы...
-
Вывод графического изображения на форму - Программирование графики в Microsoft Visual Basic
Для того чтобы вывести графическое изображение в окне формы необходимо в созданном средствами Visual Studio приложении WindowsApplication вставить в...
-
Любой объект можно связать с набором процедур, исполняемых в строго определенные моменты. Процедура ( Procedure ) - это группа операторов языка....
-
Значения свойств объектов можно менять двумя способами: При проектировании : В каждый момент проектирования только один объект является выделенным...
-
Объектно-ориентированное программирование в Microsoft Visual Basic Объектно-ориентированное программирование - это методология программирования,...
-
Объекты управления и их свойства - Visual Basic. Основы программирования
Объектом называется некая сущность, которая, во-первых, четко проявляет свое поведение, а во-вторых, является представителем некоторого класса подобных...
-
Постановка задачи - составление по возможности точного и понятного словесного описания того, как должно работать будущее приложение, - что должен делать...
-
- рисуем графический примитив, например, эллипс у рыбки; - накладываем сверху на эллипс другой графический объект так, чтобы он закрывал часть эллипса; -...
-
Векторная графика - Построение векторных схем
Векторная или объектная графика представляет собой изображение, полученное из простейших геометрических фигур: отрезков, дуг, кругов, прямоугольников и...
-
Растровая графика оперирует с изображениями в виде растров. Неформально можно сказать, что растр - это описание изображения на плоскости путем разбиения...
-
Общие рекомендации по выполнению работ Перед выполнением первой работы создайте на диске свой каталог и в дальнейшем сохраняйте свои проекты в нем; При...
-
Проект приложения, Структура проекта, Запуск проекта - Visual Basic. Основы программирования
Программный проект - это совокупность частей, составляющих будущее Windows-приложен. Любой проект должен состоять из одной или нескольких Экранных форм и...
-
При изменение имени ( Name ) объектов Visual Basic рекомендуется использовать следующую простую схему: Начинать название с трехбуквенного префикса;...
-
"РЕШЕНИЕ ЗАДАЧ ЛИНЕЙНОГО ПРОГРАММИРОВАНИЯ С ИСПОЛЬЗОВАНИЕМ MICROSOFT EXCEL" Цель работы Приобретение навыков решения задач линейного программирования...
-
Самостоятельное выполнение заданий позволяет закрепить навыки работы учащихся в среде Visual Basic Преподаватель может использовать их В качестве...
-
Запуск модели, Графики и диаграммы - Построение модели сердца
Щелкнув на кнопке запуска модели, после компиляции откроется окно презентации эксперимента. Запустив эксперимент, увидим структуру активного объекта:...
-
Под термином графика обычно понимается визуальное (то есть воспринимаемое зрением) представление каких-либо реальных или воображаемых объектов. Графика...
-
Варианты - Решение задач линейного программирования с использованием Microsoft Excel
Используя MS Excel, найти решение для модели ЛП, соответствующей заданному варианту (табл. 1.5). Таблица 1.5 Варианты задач к лабораторной работе № 1 №...
-
Для лучшего понимания динамики модели и наблюдения за процессами, в AnyLogic можно строить анимированные изображения, состоящие из динамических...
-
Кодирование цвета Кодируется цвет графических изображений с помощью бит. Количество бит, с помощью которых закодирован цвет называют битовой глубиной...
-
Средства для обработки компьютерной графики - Основы преобразования изображений и видео
Программные средства создания растровых изображений. Среди программ, предназначенных для создания компьютерной двумерной живописи, самыми популярными...
-
Фрактал - это рисунок, который состоит из подобных между собой элементов. Существует большое количество графических изображений, которые являются...
-
1. Каковы основные этапы решения задач ЛП в MS Excel? 2. Каков вид и способы задания формул для целевой ячейки и ячеек левых частей ограничений? 3. В чем...
-
Для начала работы создадим несколько примитивных объектов, используя элементы пункта "Object type", который находиться в правом верхнем углу (рис. 23)....
-
Выбор макета Для правильного отображения сведений важно определиться с действием и выбрать подходящий макет SmartArt. При смене макетов большая часть...
-
Предисловие, Теория "Основные понятия Visual Basic" - Visual Basic. Основы программирования
Язык программирования Visual Basic все шире используется в российском образовании. Одна из проблем, с которыми сталкивается преподаватель, работающий с...
-
Застосування масивів при розв'язанні задач у Visual Basic 6.0
- Для створення відкритого масиву (public array) треба використати оператор Public у секції Declaration модуля; - Для створення масиву рівня модуля...
-
Программные средства создания растровых изображений Среди программ, предназначенных для создания компьютерной двумерной живописи, самыми популярными...
-
Цель Работы - изучить приемы создания и использования шаблонов классов. - Теоретические сведения Достаточно часто встречаются классы, объекты которых...
-
Visual component library graphics Цель работы: изучение графических возможностей стандартной библиотеки визуальных компонентов VCL, функций и процедур...
-
Настройка сети. - Использование компьютерных сетей
Следующий шаг установка и конфигурация необходимых сетевых протоколов. Дважды щел Кните на пиктограмме "Сеть" в "Панели управления". В окне "Сеть"...
-
3. Построение графиков функций - Основы информатики
3.1 Построить в разных системах координат при х Є [-3.2; -1] графики следующих функций: G = , z = , y = . Решение: Для того, чтобы построить график...
-
Интерфейс - совокупность средств и правил, которые обеспечивают взаимодействие устройств, программ и человека. Все ОС способны обеспечивать как пакетный,...
-
Сохранение проекта, Открытие проекта, Компиляция проекта - Visual Basic. Основы программирования
Для сохранения следует выполнить File / Save Project или нажать кнопку на панели инструментов. Visual Basic сначала предложит сохранить форму, а затем...
-
Алгоритм работы декодера кода Рида - Маллера будем разрабатывать на основе уже приведенных выше уравнений. Алгоритм приведен на рисунке 12. В начале...
-
Постановка задачи: Для заданных функций необходимо: 1. Построить электронную таблицу (одну для обеих функций) для вычисления значений функций в заданном...
-
Форматы файлов для хранения растровых графических изображений - Обзор графических редакторов
Как правило, файлы для хранения растровых графических изображений логически состоят из двух частей: заголовка и области данных. В заголовке указаны...
-
Каждый из видов графики имеет свои достоинства и недостатки, следует отметить определенную "зеркальность" их достоинств и недостатков. Среди достоинств...
Построение изображений с использованием графических примитивов - Программирование графики в Microsoft Visual Basic