Функция LineTo

Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

hdc

Контекст устройства для вывода линии

x

Координата x конечной точки линии

y

Координата y конечной точки линии

Пример

' Рисуем красную линию
' из точки (0,40) в точку (100,50) на окне формы Form1
Dim pt As POINTAPI  ' нужно для другой функции
Dim retval As Long  ' возвращаемое значение
' Устанавливаем свойство foreground Form1 в красный цвет
Form1.ForeColor = RGB(255, 0, 0)
retval = MoveToEx(Form1.hdc, 0, 40, pt)  ' устанавливаем первую точку в (0,40)
retval = LineTo(Form1.hdc, 100, 50)  ' рисуем линию из первой точки в (100,50)

Смотри также

Категория