File "Definition.bas"

Full Path: /home/analogde/www/Documents/DEV2/Definition.bas
File size: 931 bytes
MIME-type: text/plain
Charset: utf-8

Attribute VB_Name = "Module2"
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
' positionne le curseur de la souris
' Dim Retour As Long
' Retour = SetCursorPos( 10, 10)



Type CadPoint
    X As Single
    Y As Single
   
End Type



'-----------Selection,Grille, Snap et ZOom--------------------------

Dim GridStart As CadPoint
Dim Echelle_X As Single
Dim Echelle_Y As Single

Private Function GetMousePosition() As POINTAPI

Dim pos As POINTAPI

GetCursorPos pos
ScreenToClient Me.hwnd, pos
pos.X = Screen.TwipsPerPixelX * pos.X
pos.Y = Screen.TwipsPerPixelY * pos.Y
GetMousePosition = pos

End Function