XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Cursorposition ermitteln
Def @Getcursorpos(1) !user32,GetCursorPos
Struct Mauskoordinaten = X&,Y&
Declare Xpos&,Ypos&,Curpos#
Windowstyle 31
Windowtitle Cursorposition ermitteln
Window 200,0 - 440,440

While 0 = 0

    Sleep 100
    Dim Curpos#,Mauskoordinaten
    @Getcursorpos(Curpos#)
    Let Xpos& = Curpos#.X&
    Let Ypos& = Curpos#.Y&
    Dispose Curpos#
    Drawtext 0,0,X-Position des Cursors: + @Str$(Xpos&) + @Space$(30)
    Drawtext 0,30,Y-Position des Cursors: + @Str$(Ypos&) + @Space$(30)

Endwhile