Programming Forums > Application Development > Visual Basic

Mikael · Mar 27th, 2006, 11:54 AM

 	Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    Y As Long
End Type

Private Sub Timer1_Timer()
      Dim rect As POINTAPI
      Call GetCursorPos(rect)
      Form1.Cls
      x.Caption = "Current X = " & rect.x
      Y.Caption = "Current Y = " & rect.Y
End Sub

Add an Timer called timer1.
Add two labels called x and Y.
Set the timer1.interval to 5
Last but not least Put the code in the form.
Finito u just made x and y coordinates

brownhead · Mar 27th, 2006, 9:59 PM

^^Yep.. that does indeed work, but I usually prefer using a function and a with statement to get the job done.. because whenever I use this API.. I have to use it alot :\.. anyways, My favorite way to do it is below.. but his words too

(Toggle Plain Text)

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
    x As Long
    Y As Long
End Type
Private Function GetCursorPosEx() as Pointapi
GetCursorPos GetCursorPosEx
End Function
Private Sub Timer1_Timer()
With GetCursorPosEx
    X = "Current X = " & .x
    Y = "Current Y = " & .y
End with
end sub

Booooze · Mar 28th, 2006, 12:39 AM

This code is quite common. No offense though. Might help some new people. Just as a note, I first saw this code in the API guide. If your really into VB, then you should have it. Just google "API Guide".

Mar 27th, 2006, 11:54 AM	#1
Mikael Newbie Join Date: Mar 2006 Posts: 2 Rep Power: 0	[Source] Getting X And Y Coordinates [VB6.0] (Toggle Plain Text) Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long Y As Long End Type Private Sub Timer1_Timer() Dim rect As POINTAPI Call GetCursorPos(rect) Form1.Cls x.Caption = "Current X = " & rect.x Y.Caption = "Current Y = " & rect.Y End Sub Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long Y As Long End Type Private Sub Timer1_Timer() Dim rect As POINTAPI Call GetCursorPos(rect) Form1.Cls x.Caption = "Current X = " & rect.x Y.Caption = "Current Y = " & rect.Y End Sub Add an Timer called timer1. Add two labels called x and Y. Set the timer1.interval to 5 Last but not least Put the code in the form. Finito u just made x and y coordinates

Mar 27th, 2006, 9:59 PM	#2
brownhead Programmer Join Date: Mar 2006 Location: California Posts: 37 Rep Power: 0	^^Yep.. that does indeed work, but I usually prefer using a function and a with statement to get the job done.. because whenever I use this API.. I have to use it alot :\.. anyways, My favorite way to do it is below.. but his words too (Toggle Plain Text) Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long Y As Long End Type Private Function GetCursorPosEx() as Pointapi GetCursorPos GetCursorPosEx End Function Private Sub Timer1_Timer() With GetCursorPosEx X = "Current X = " & .x Y = "Current Y = " & .y End with end sub Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long Y As Long End Type Private Function GetCursorPosEx() as Pointapi GetCursorPos GetCursorPosEx End Function Private Sub Timer1_Timer() With GetCursorPosEx X = "Current X = " & .x Y = "Current Y = " & .y End with end sub

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

Mar 28th, 2006, 12:39 AM	#3
Booooze Expert Programmer Join Date: Mar 2006 Location: Igloo Posts: 710 Rep Power: 3	This code is quite common. No offense though. Might help some new people. Just as a note, I first saw this code in the API guide. If your really into VB, then you should have it. Just google "API Guide".

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

Programming Forums > Application Development > Visual Basic

[Source] Getting X And Y Coordinates [VB6.0]