Type POINTAPI
x As Long
y As Long
End Type
Public Declare Function GetCursorPos Lib \"user32\" _
(lpPoint As POINTAPI) As Long
À§¿¡ °ÍÀ» ¸ðµâ¿¡ ³õ°í,
Dim z As POINTAPI
GetCursorPos z
Label1 = \"x: \" & z.x
Label2 = \"y: \" & z.y
ÀÌ°ÍÀ» ¼Ò½º¿¡ ³Ö¾î¼ ÁÂÇ¥°ªÀ» ¾Ë¾Æ³»°í ÀÖ½À´Ï´Ù.
À§Àǹæ½ÄÀº Á¤È®È÷ Çȼ¿¹æ½ÄÀΰ¡¿ä? ¾Æ´Ï¶ó¸é Çȼ¿¹æ½ÄÀº ¾î¶»°ÔÇϳª¿ä? ±×·³ À§¿¡ ¹æ½Ä°ú Çȼ¿¹æ½Ä Â÷ÀÌÁ¡ÀÌ ¹«¾ùÀΰ¡¿ä?
¶Ç, È°¼ºÈµÈâÀÇ ÁÂÇ¥°ªÀ» ±¸Çϴ¹æ¹ýÀº ¾î¶»°Ô ÇÏ´ÂÁö ¾Æ½Ã´ÂºÐ ´äº¯Á» ºÎŹÇÕ´Ï´Ù.
ªÀº±Û Àϼö·Ï ½ÅÁßÇÏ°Ô.