Шаг 126 - Как нарисовать линию на форме

У формы есть метод Line. Этот метод идет еще от BASIC для DOS и работает по тем же правилам. Сначала нам нужно установить режим отображения формы. Потом воспользоваться методом Line для рисования линии.

Private Sub Command1_Click()
    Form1.ForeColor = &HFF&
    Form1.Line (0, 0)-(100, 100)
End Sub

Private Sub Form_Load()
    Form1.ScaleMode = 3
End Sub

Запускаем, смотрим:

gif/126_1.gif (1884 b)


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.