[art_rrc]

Доброго времени суток. Подскажите пожалуйста, реально ли средствами VBA 7.1 определить, где находился курсор в момент вызова программы. Ну а если в идеале, то нужно занести в переменную блок с именем "Имя1", который находился ближе всего к курсору в момент вызова программы. Положение блока определяется его точкой вставки. Спасибо.

[trir]

Код:

[Выделить все]

Private Type POINTAPI 
    X As Long 
    Y As Long 
End Type 

Private Declare Function GetCursorPos _ 
        Lib "user32.dll" (lpPoint As POINTAPI) As Long 

Private Sub GetCursorPosition() 
    Dim iPOINT As POINTAPI 

    GetCursorPos iPOINT 

    MsgBox "X : " & iPOINT.X & vbNewLine & "Y : " & iPOINT.Y, _ 
    vbExclamation, "Координаты курсора мышки" 
End Sub

[Do$]

trir, осталось только всего ничего - перевести эти экранные координаты в чертеж

[Gogi]

http://www.caduser.ru/forum/index.ph...D=25&TID=26786