Create New Item
Item Type
File
Folder
Item Name
Search file in folder and subfolders...
Are you sure want to rename?
File Manager
/
Documents
/
DEV2
:
Definition.bas
Advanced Search
Upload
New Item
Settings
Back
Back Up
Advanced Editor
Save
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