Функция MoveToEx

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

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

MoveToEx устанавливает координаты текущей точки на устройстве.Текущая точка является начальной точкой в функциях,заканчивающихся на "To" (например, LineTo). Функция также помещает бывшую текущую точку в переменную lpPoint. В случае ошибки функция возвращает 0 , в успешном случае возвращается 1.

hdc
Контекст устройства для установления текущей точки.
x
Координата x точки.
y
Координата y точки.
lpPoint
Переменная для бывшей начальной точки.

Пример:

' Рисуем красную линию из точки (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)
' Внимание!Теперь pt содержит старую текущую точку.
retval = LineTo(Form1.hdc, 100, 50)   ' рисуем линию из первой точки в (100,50)

Категория: Линии и кривые

В начало.