Функция LineTo

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

Платформа: Win 95/98, Win NT

LineTo рисует линию из текущей точки в другую точку на устройстве. Линия рисуется цветом,определяемым свойством ForeColor формы или PictureBox. После вывода линии,конечная точка становится новой текущей точкой для новой линии.В случае ошибки возвращается 0,в успешном случае возвращается 1.

hdc
Контекст устройства для вывода линии.
x
Координата x конечной точки линии.
y
Координата y конечной точки линии.

Пример:

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

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

Схожие функции: Polyline, PolylineTo, PolyPolyline
Категория: Линии и кривые

В начало.