Mi a kódja az egér-kurzor mozgatásának, Visual Basic Script-ben?

Írok eggyet, megpróbálom érthetően, de ha nem világos akkor majd írd meg mit nem értessz!

Kell két label, egy PictureBox vezérlő.

A picturebox neve legyen:picTerület

A Két label neve: lblX,lblY

lblx.text=X:

lbly.text=Y:

Kattints a formod üres területére jobb gombbal, és menj a view code lehetőégre a lebegő fülön!

Megjelenik a Projekted kódja.

Van két sor, közötte ott van a kurzor.

Itt hozd létre a picTerület_MouseMove eseményt!

A kódba pedig ez legyen:

'Deklaráljuk a változókat

Dim x as integer=MousePosition.x

Dim y as integer=MousepOSITION.Y

'Megadjuk a lblx és lbly értékét

lblx.text="X:" & x

lbly.text="Y:" & y

Remélem érthető volt és nem kapsz hiba üzenetet.

Ha véletlen kapnál valamit, akkor azért remélem rendelkezel annyi tudással, hogy kijavítsd.

Sajnos most nincs a gépemen Visual Studio, ezért nem tudtam letesztelni.

Jól emlékeztem, hogy nem egyszerű...

Itt ez a weboldal: [link]

A második példa használ egy GetCursorPos WinAPI hívást. Ha a pont változó létrehozása után beállítod az értékét:

Point.X = 300

Point.Y = 200

akkor ha a GetCursorPos-t SetCursorPos-ra átírod (és törlöd utána a MessageBox-ot), elvileg működik, de még soha nem csináltam, tehát ez csak tipp.