Функция MoveToEx
Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
MoveToEx устанавливает координаты текущей точки на устройстве. Текущая точка является начальной точкой в функциях, заканчивающихся на "To" (например, LineTo). Функция также помещает бывшую текущую точку в переменную lpPoint
- 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)
Категория
Линии и кривые