Уроки по Visual Basic 6.0 - Метод Circle () Обучающий материал

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

За центр окружностей возьмем половины от ширины и высоты формы:

x=ScaleWidth/2
y=ScaleHeight/2

Чтобы нарисовать окружность, воспользуемся методом Circle(x,y), радиус, цвет. Так как нам нужно несколько таких окружностей, то воспользуемся циклом, в котором будем увеличивать радиус окружностей.

Так мы сможем избежать наложения окружностей друг на друга. Возьмем значение 100 твипов за начальный радиус, конечный радиус — 10000 твипов, шаг – 100 твипов.

Получим цикл:

For r = 100 To 10000 Step 100
Circle (x,y), r
Next r

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

Private Sub Form_Click()
x = ScaleWidth / 2
y = ScaleHeight / 2
For r = 100 To 10000 Step 100
Circle (x, y), r
Next r
End Sub

Запускаем наш проект, нажимаем на форму и любуемся результатом (рисунок 1).


Рисунок 1 – Результат работы программы

Если вам захочется выделить окружности цветом, то добавьте название нужного цвета после радиуса в методе Circle().

Например:

Circle (x, y), r, vbBlue

Результат такого выделения представлен на рисунке 2.


Рисунок 2 – Выделение окружностей цветом