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

Сегодня мы рассмотрим метод Line() на примере программы, в которой при нажатии на форму рисуются горизонтальная и вертикальная штриховки.

Для начала создадим новый проект. Нажимаем «Файл», «Новый Проект» и выбираем «Стандартный EXE» (рисунок 1).


Рисунок 1 – Выбор проекта

На экране появится пустая форма «Form1» нового проекта (рисунок 2).


Рисунок 2 – Пустая форма нового проекта

Два раза щелкаем на форму. Откроется окно редактора кода. Выбираем процедуру Form_Click() (рисунок 3).


Рисунок 3 – Окно редактора кода

Чтобы заполнить форму вертикальными линиями, нужно метод Line() поместить в цикл For. Цикл будем вести от 1 до 20000 с интервалом 100. Изменяться будет переменная x (по аналогии координата X, так как именно она изменяется при перемещении вертикальных линий). Приведем получившийся код программы:

Private Sub Form_Click()
For x=1 To 20000 Step 100
Line (x,1)-(x,20000)
Next x
End Sub

Запускаем проект и щелкаем по форме. Результат виден на рисунке 4.


Рисунок 4 – Результат работы приведенного кода

Чтобы выводить на форму еще и горизонтальную штриховку, введем по аналогии еще один цикл, только теперь будем изменять координату Y. Код нового цикла выглядит следующим образом:

For y = 1 To 20000 Step 100
Line (1, y)-(20000, y)
Next y

Результат работы двух циклов с методами Line() представлен на рисунке 5.


Рисунок 5 – Результат работы двух циклов

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

Line (x, 1)-(x, 20000), vbGreen
или
Line (1, y)-(20000, y), vbGreen

Результат цветового преображения приведен на рисунке 6.


Рисунок 6 — Результат цветового преображения