|
'open a window and graphicbox WindowHeight = 300 WindowWidth = 400 graphicbox #w.g, 0, 0, 400, 300 open "test" for window_nf as #w print #w, "trapclose [quit]" #w.g "setfocus" hw = hWnd(#w.g) struct MouseRect ,mx as long,my as long calldll #user32, "GetCursorPos",MouseRect As struct,re As Long calldll #user32, "ScreenToClient",hw As ulong,MouseRect As struct,re as long print MouseRect.mx.struct print MouseRect.my.struct wait [quit] close #w end