Mouse location

Originally Posted by

>This is a multi-part message in MIME format.
>
>------=_NextPart_000_0010_01C73DFE.D4179010
>Content-Type: text/plain;
> charset="iso-8859-1"
>Content-Transfer-Encoding: quoted-printable
>
>Hi all,
>
>My development environment is VB 6.0, and my OS is winxp. I would like =
>to know how to find the mouse location at a control when the mouse is =
>point at that control. The problem is that the mouse "whatever" events =
>will not fire since the mouse is hjhack by other control. Anyway, I have =
>the following code and I can check is the mouse over the control or not, =
>however, I cannot find out where the mouse location at that control.
>
>Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) =
>As Long
>Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As =
>Long, ByVal yPoint As Long) As Long
>
>
>private sub mouseChecker()
Dim pnt As POINTAPI
Dim ConvertX As Double
GetCursorPos pnt
If WindowFromPoint(pnt.x, pnt.y) =3D Me.control1.hWnd Then
'I cannot find any method in finding the mouse location in that =

Originally Posted by

>Hi all,
>
>My development environment is VB 6.0, and my OS is winxp. I would like to know how to find the mouse location at a control when the mouse is point at that control. The problem is that the mouse "whatever" events will not fire since the mouse is hjhack by other control. Anyway, I have the following code and I can check is the mouse over the control or not, however, I cannot find out where the mouse location at that control.
>
>Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
>Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
>
>
>private sub mouseChecker()
Dim pnt As POINTAPI
Dim ConvertX As Double
GetCursorPos pnt
If WindowFromPoint(pnt.x, pnt.y) = Me.control1.hWnd Then
'I cannot find any method in finding the mouse location in that Visual basic control.
>
End If
>end sub
>
>
>
>thanks
>Egghead

Originally Posted by

In response to the post:
On Mon, 22 Jan 2007 15:25:26 GMT, "EggHead"
<robertlo_NO_SPAM@shaw.castated...and I replied:
>

Quote: Originally Posted by >Hi all, >> >My development environment is VB 6.0, and my OS is winxp. I would like to know how to find the mouse location at a control when the mouse is point at that control. The problem is that the mouse "whatever" events will not fire since the mouse is hjhack by other control. Anyway, I have the following code and I can check is the mouse over the control or not, however, I cannot find out where the mouse location at that control. >> >Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long >Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long >> >> >private sub mouseChecker() > Dim pnt As POINTAPI > Dim ConvertX As Double > GetCursorPos pnt > If WindowFromPoint(pnt.x, pnt.y) = Me.control1.hWnd Then > 'I cannot find any method in finding the mouse location in that Visual basic control. >> > End If >end sub >> >> >> >thanks >Egghead

>
>
Try this (air code)
>
'begin code
Type POINTAPI
X As Long
Y As Long
End Type
>
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
>
Type WINDOWPLACEMENT
Length As Long
flags As Long
ShowCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
>
Declare Function GetCursorPos Lib "user32" ( _
lpPoint As POINTAPI) As Long
>
Declare Function GetWindowPlacement Lib "user32" ( _
ByVal hwnd As Long, _
lpwndpl As WINDOWPLACEMENT) As Long
>
Public Function PointsToMe() As Boolean
Dim WinPos As WINDOWPLACEMENT
Dim Point As POINTAPI, lResult As Long
>
lResult = GetCursorPos(Point)
>
lResult = GetWindowPlacement(Me.hwnd, WinPos)
>
If Point.X >= WinPos.rcNormalPosition.Left And _
Point.X <= WinPos.rcNormalPosition.Right And _
Point.Y >= WinPos.rcNormalPosition.Top And _
Point.Y <= WinPos.rcNormalPosition.Bottom Then _
PointsToMe = True
End Function
'end air code

Originally Posted by

In response to the post:
On Mon, 22 Jan 2007 15:25:26 GMT, "EggHead"
<robertlo_NO_SPAM@shaw.castated...and I replied:
>

Quote: Originally Posted by >>Hi all, >> >>My development environment is VB 6.0, and my OS is winxp. I would like to >>know how to find the mouse location at a control when the mouse is point >>at that control. The problem is that the mouse "whatever" events will not >>fire since the mouse is hjhack by other control. Anyway, I have the >>following code and I can check is the mouse over the control or not, >>however, I cannot find out where the mouse location at that control. >> >>Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) >>As Long >>Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As >>Long, ByVal yPoint As Long) As Long >> >> >>private sub mouseChecker() > Dim pnt As POINTAPI > Dim ConvertX As Double > GetCursorPos pnt > If WindowFromPoint(pnt.x, pnt.y) = Me.control1.hWnd Then > 'I cannot find any method in finding the mouse location in that >Visual basic control. >> > End If >>end sub >> >> >> >>thanks >>Egghead

>
>
Try this (air code)
>
'begin code
Type POINTAPI
X As Long
Y As Long
End Type
>
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
>
Type WINDOWPLACEMENT
Length As Long
flags As Long
ShowCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
>
Declare Function GetCursorPos Lib "user32" ( _
lpPoint As POINTAPI) As Long
>
Declare Function GetWindowPlacement Lib "user32" ( _
ByVal hwnd As Long, _
lpwndpl As WINDOWPLACEMENT) As Long
>
Public Function PointsToMe() As Boolean
Dim WinPos As WINDOWPLACEMENT
Dim Point As POINTAPI, lResult As Long
>
lResult = GetCursorPos(Point)
>
lResult = GetWindowPlacement(Me.hwnd, WinPos)
>
If Point.X >= WinPos.rcNormalPosition.Left And _
Point.X <= WinPos.rcNormalPosition.Right And _
Point.Y >= WinPos.rcNormalPosition.Top And _
Point.Y <= WinPos.rcNormalPosition.Bottom Then _
PointsToMe = True
End Function
'end air code
>