Programming Forums > Application Development > Visual Basic

Yu Raider · Jan 19th, 2005, 1:50 PM

How do you store MouseX and MouseY positions in a variable?

Ooble · Jan 19th, 2005, 2:17 PM

Simple:

Dim x As Integer, y As Integer

x = MouseX
y = MouseY

Rory · Jan 21st, 2005, 11:18 AM

I think he meant how do you get the mouse position rather than "how do you assign variables"!

(Toggle Plain Text)

Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long
Type POINTAPI
    x As Long
    y As Long
End Type
Sub Test()
Dim mypos as POINTAPI
if GetCursorPos(mypos)>0 then
msgbox "Mouse at " & mypos.x & "," & mypos.y
end if
end sub

Ooble · Jan 21st, 2005, 11:57 AM

Ah, shush. They should make it clearer :p

Jan 19th, 2005, 1:50 PM	#1
Yu Raider Newbie Join Date: Jan 2005 Posts: 11 Rep Power: 0	MouseX and MouseY How do you store MouseX and MouseY positions in a variable?

Jan 19th, 2005, 2:17 PM	#2
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Simple: (Toggle Plain Text) Dim x As Integer, y As Integer x = MouseX y = MouseY Dim x As Integer, y As Integer x = MouseX y = MouseY __________________ Me :: You :: Them

Jan 21st, 2005, 11:18 AM	#3
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	I think he meant how do you get the mouse position rather than "how do you assign variables"! (Toggle Plain Text) Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long Type POINTAPI x As Long y As Long End Type Sub Test() Dim mypos as POINTAPI if GetCursorPos(mypos)>0 then msgbox "Mouse at " & mypos.x & "," & mypos.y end if end sub Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long Type POINTAPI x As Long y As Long End Type Sub Test() Dim mypos as POINTAPI if GetCursorPos(mypos)>0 then msgbox "Mouse at " & mypos.x & "," & mypos.y end if end sub

Jan 21st, 2005, 11:57 AM	#4
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Ah, shush. They should make it clearer :p __________________ Me :: You :: Them

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)