Функция GetCurrentPositionEx

Declare Function GetCurrentPositionEx Lib "gdi32" ( _
        ByVal hdc As Long, lpPoint As POINTAPI) As Long

GetCurrentPositionEx возвращает координаты текущей точки на устройстве

hdc

Контекст устройства

lpPoint

Структура POINTAPI, содержащая координаты текущей точки

Пример

Dim pt As POINTAPI

 ' устанавливаем текущую точку в (0,40)
Call MoveToEx(Me.hdc, 0, 40, pt)
 ' проверяем
Call GetCurrentPositionEx(Me.hdc, pt)
Print pt.x: Print pt.y

Категория

Координаты