class="p1">Здесь В, G, R — числовые переменные, имеющие тот же смысл, что и числа в функции RGB. А теперь, знатоки, скажите, не кажется ли вам, что перед вами 256-я система счисления?

3 способ — Рисуем при помощи графических методов

Рассмотрим третий способ использования графики в Visual Basic.

Методами для рисования различных геометрических фигур обладают два объекта: форма и PictureBox. Кстати, те же, что обладают и методом Print, который с полным основанием тоже называют графическим.

Напишем программу, которая рисует на форме точку, прямоугольник, окружность и отрезок прямой в тех местах, где это показано на рисунке:

Вот программа:

Private Sub Command1_Click()

   PSet (1000, 2000) 'точка

   Line (2000, 1000)-(5000, 3000) 'отрезок прямой

   Line (3000, 3000)-(1000, 4000), В 'прямоугольник

   Circle (4000, 2000), 1000 'окружность

End Sub

Пояснения: Числа на картинке обозначают горизонтальную и вертикальную координаты на форме (в твипах).

Вы видите, что методы записаны без указания объекта, которому они принадлежат. В этом случае считается, что по умолчанию они принадлежат форме. Если бы вы записали Picture1.Line, то рисование происходило бы на поверхности PictureBox.

Точка рисуется методом PSet. Два числа в скобках — координаты точки на форме, первое число — горизонтальная координата, второе число — вертикальная.

Будем называть величины, указанные в методе, параметрами метода.

Отрезок прямой рисуется методом Line. Мы знаем, что отрезок прямой можно построить, если известно положение двух его крайних точек. Они-то и задаются в обращении к методу. Первая пара параметров — координаты одной точки (любой из двух), вторая пара — другой.

Если дана пара точек, то между ними можно провести не только отрезок прямой, но и прямоугольник. Для этого достаточно в методе Line указать букву В после двух запятых.

Окружность можно построить, если известно положение центра и радиус. Окружность рисуется методом Circle, первые два параметра которого — координаты центра, третий — радиус.

Создайте новый проект и проверьте программу.

Кроме метода Print, в Visual Basic есть следующие графические методы (о тех из них, что нам не знакомы, поговорим чуть позже):

Метод ∙ Смысл

PSet ∙ Точка

Line ∙ Линия или прямоугольник

Circle ∙ Круг, эллипс, дуга, сектор

Cls ∙ Очищает поверхность объекта от нарисованного и напечатанного

Point ∙ Это функция, она сообщает цвет любой точки на объекте

PaintPicture ∙ Копирует с одного объекта на другой прямоугольный кусок изображения

Настройка внешнего вида рисуемых фигур

Фигуры, изображенные методами вашей программы, нарисованы тонкими черными сплошными линиями без заливки внутренних областей. Это скучно. Вы должны уметь управлять толщиной, цветом и другими атрибутами фигур. Для этого есть три способа, которые вы можете применять по одиночке или вперемешку:

В режиме проектирования настроить соответствующие свойства объекта. Эти свойства воздействуют сразу на все методы.

В режиме работы в нужные моменты изменять эти свойства (этот способ бьет предыдущий, то есть в случае конфликта пересиливает его настройки).

В самом методе можно задавать многие атрибуты рисуемой фигуры (этот способ бьет остальные).

Поговорим об этом подробнее.

Свойства объектов, влияющие на графические методы

Поэкспериментируйте со следующими свойствами (сначала в режиме проектирования, а затем в режиме работы):

Свойство ∙ Смысл

DrawWidth ∙ Толщина линии

ForeColor ∙ Цвет линии

DrawStyle ∙ Стиль линии (сплошная, штриховая и т. п.). Предварительно сделайте толщину = 1.

FillStyle ∙ Стиль (узор) заливки и будет ли заливка.

FillColor ∙ Цвет заливки

AutoRedraw ∙ Определяет, будут ли автоматически восстанавливаться графика и напечатанный текст, случайно стертые из-за того, что объект скрылся из вида.

DrawMode ∙ Способ наложения краски. По умолчанию = 13 (Сору Реп), когда краска плотно накладывается и предыдущая картинка через нее не просвечивает. При других значениях новая краска меняет свой цвет или сложно взаимодействует со старой и иногда получается любопытный и полезный результат.

Пример:

PSet (1000, 2000) 'точка — тонкая, черная

Circle (4000, 2000), 1000 'окружность — тонкая, черная

DrawWidth = 20 'меняем толщину линий

ForeColor = RGB(230, 250, 100) 'меняем цвет линий

PSet (1000, 5000) 'точка — толстая, цветная

Circle (4000, 5000), 1000 'окружность — толстая, цветная

Задание 61: В режиме работы нарисуйте снеговика и сделайте на нем надпись шрифтом Times — >

А теперь рассмотрим подробнее графические методы.

Метод Pset

До этого я использовал методы, указывая минимальное число параметров. Теперь я хочу показать все важные параметры, которые можно указывать в методах.

Метод ∙ Результат

PSet (1000, 2000) ∙ Рисуется точка с координатами х=1000, у=2000. Цвет точки определяется свойством ForeColor

PSet (1000, 2000), vbRed ∙ Рисуется красная точка

Параметры метода могут быть выражениями, например:

PSet (х+200, у), RGB(5+а, 90, 80) + 100

Вообще, в дальнейшем я буду для простоты при описании процедур, функций, методов в качестве значения их параметров указывать числа, но вы должны иметь в виду, что почти всегда там, где допустимы числа, допустимы и выражения.

Синтаксис метода PSet:

PSet (х, у), цвет

Здесь все параметры, включая цвет — числовые выражения.

В этой и следующих синтаксических схемах я по возможности воздержусь от квадратных скобок, указывающих на необязательность параметра, иначе схемы будут ими перенасыщены. Также я не буду указывать объект — владелец метода. Также не буду указывать и отложу немного объяснение параметра Step.

Метод Line

Вот объяснение на примерах:

Метод ∙ Результат

Line (2000, 1000)-(5000, 3000) ∙ Отрезок прямой между точкой с координатами (2000, 1000) и точкой с координатами (5000, 3000).

Line (2000, 1000)-(5000, 3000), vbRed ∙ Отрезок красного цвета

Line (2000, 1000)-(5000, 3000), vbRed,В ∙ Прямоугольник красного цвета

Line (2000, 1000)-(5000, 3000), vbRed,BF ∙ Прямоугольник красного цвета, залитый этим же цветом

Line (2000, 1000)-(5000, 3000),B ∙ Прямоугольник. Цвет его определяется свойством ForeColor, так как в операторе там, где должен быть указан цвет, стоит пустота

Нет смысла и запрещено писать одну букву F вместо В или BF.

Заливку можно сделать двумя способами:

Поставив букву F, тогда заливка будет тем же цветом, что и линия.

Не ставя букву F, тогда заливка определяется свойствами FillStyle и FillColor.

Обратите внимание на две стоящие рядом запятые в последнем примере. Это вполне