Метод Point

Метод point возвращает цвет в палитре RGB указанной точки в форме или на объектах типа pictureBox.

Синтаксис:

Object.Point (X, у)

где:

object — объект, в котором используется метод;

x, у — координаты точки в объекте.

Метод Line

Предназначен для рисования линий

Синтаксис:

Object.Line (x1, y1) - (x2, y2), [color], [b] [f]

где:

object — объект, в котором применяется метод (по умолчанию форма);

x1, y1 — координаты начала линии. При отсутствии этих параметров начало привязывается к значениям свойств CurrentX и CurrentY объекта;

x2, y2 — координаты конца линии;

color — задает цвет линии в палитре RGB. Если параметр не указан, то используется свойство ForeColor объекта;

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

F— задает заполнение прямоугольника цветом линии рисования.

Метод Сls

С помощью метода Cls можно очистить форму или объект picture от текста и графики, созданных в нем программно.

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

Object.Cls

где object — объект, в котором применяется метод. Если параметр не указан, то по умолчанию используется форма.

Метод Circle

Метод circle используется следующим образом:

Object.Circle (X, у), radius, [color, start, end, aspect]

где:

object — объект, в котором применяется метод. Если объект не указан, то по умолчанию используется форма;

х, у — числа, определяющие координаты центра окружности, дуги или эллипса в единицах свойства scaleMode объекта;

radius — число, определяющее радиус окружности, дуги или эллипса в единицах свойства ScaleMode объекта;

color — значение типа Long, задающее цвет линии. Если параметр не указан, применяется значение свойства ForeColor. Для задания цвета можно использовать функции RGB () или QBColor;

start, end — при рисовании дуги или части эллипса задает позицию начала и конца дуги в радианах: от 2 пи до -2 пи радиан;

aspect — задает коэффициент "эллиптичности" окружности. По умолчанию этот коэффициент равен 1.0, что соответствует окружности.

Метод Print

Метод print выводит (печатает) текст в указанный объект. Синтаксис этого метода следующий:

Object.Print [outputList]

где:

object — объект, в котором используется метод. Если объект не указан, то по умолчанию используется форма;

outputList — строковое выражение или список выражений, выводимых в объекте.

Метод Pset

Метод Pset назначает цвет указанной точки объекта. Этот метод является обратным методу point. Синтаксис этого метода следующий:

Object.Pset (X, у), [color]

где:

object — объект, в котором используется метод. Если объект не указан, то по умолчанию используется форма;

х, у — координаты точки на объекте;

color — цвет точки в палитре RGB. Если параметр не указан, то используется свойство Forecolor объекта.

Пример: Построить концентрические эллипсы

Private Sub Command7_Click()

Dim r As Integer

Picture1.Cls

Picture1.Scale (0, 10000)-(10000, 0)

For r = 100 To 1000 Step 100

Picture1.Circle (1000, 1000), r, vbRed, , , 0.5 (0,5 это эксцентриситет эллипса)

Next

End Sub

Пример Нарисовать концентрические окружности

Private Sub Command1_Click()

Dim r As Integer

Picture1.Scale (0, 100)-(100, 0)

For r = 5 To 50 Step 10

Picture1.Circle (50, 50), r

Next

End Sub

Пример Нарисовать концентрические буквы П

Private Sub Command5_Click()

Dim r As Integer

Picture1.Scale (0, 1000)-(1000, 0)

For r = 5 To 1000 Step 10

Picture1.Line (0 - r, 0)-(0 - r, 100 + r), r

Picture1.Line (0 - r, 100 + r)-(r + 100, r + 100), r

Picture1.Line (r + 100, r + 100)-(r + 100, 0), r

Next

End Sub

Пример: Нарисовать паралелипипед

Private Sub Command6_Click()

Dim r As Integer

Picture1.Cls

Picture1.Scale (-1, 3000)-(3000, -1)

For r = 5 To 1000 Step 10

Picture1.Line (0, 0)-(0, 1000), r

Picture1.Line (0, 1000)-(1000, 1000), r

Picture1.Line (1000, 1000)-(1000, 0), r

Picture1.Line (1000, 0)-(0, 0), r

Picture1.Line (0, 1000)-(500, 1500), r

Picture1.Line (500, 1500)-(1500, 1500), r

Picture1.Line (1500, 1500)-(1000, 1000), r

Picture1.Line (1500, 1500)-(1500, 500), r

Picture1.Line (1500, 500)-(1000, 0), r

Next

End Sub