RESOLVED-Convert Long to Single for the GetCursorPos function

[alexandros]

Hello
i am using the getcursorpos function to get the correct position
of the mouse.
the problem is it does not seem to show correct position.

the getcursorpos returns a POINTAPI type which has a X as long and Y as long.

I want the X,Y to get converted to Single.

i tried form1.scalex(point.x,vblong,vbsingle)
but it did not work.

instead i used xsingle=15*xlong and it seems to quite work but not 100%.

also how to i convert from twips to single ??

thanks !!

[crptcblade]

Well, first, GetCursorPos works relative to the screen, so that will throw off your values if you expect it to be relative to your window. Second, you convert the values from pixels to twips using ScaleX/ScaleY

Msgbox  ScaleX(pt.X, vbPixels, ScaleMode)

[manavo11]

http://www.vbforums.com/showthread.p...hreadid=235776

I think the above works correct.

[alexandros]

well i got a ruler control .
it has a function like that

I want to set X,Y which are of long type (POINTAPI) to single

Public Sub RenderTrackLine(X As Single, Y As Single)
If mvarMouseTrackingOn = True Then
RenderControl
'Optionaly render Mouse tracking line
Select Case Orientation
Case orHorizontal
Line (X, 0)-(X, ScaleHeight)
Case orVertical
Line (0, Y)-(ScaleWidth, Y)
End Select
End If
End Sub


when i try to just make
GetcursorPos Point
ruler.rendertrackline point.x,point.y

it fails

i also tried to do this but it said 'Type Mismatch'

GetCursorPos point
kx = point.X
ky = point.Y

webbrowser.ClientToWindow kx, ky

[alexandros]

thanks guys ! i solved it

Public Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long

Dim point As POINTAPI

GetCursorPos point


Call ScreenToClient(Form1.hwnd, point)
kx = point.X
ky = point.Y

ruler_horiz.RenderTrackLine ScaleX(kx, vbPixels, vbTwips) - wbrowser.Left, ScaleY(ky, vbPixels, vbTwips) - wbrowser.TOp
ruler_verti.RenderTrackLine ScaleX(kx, vbPixels, vbTwips) - wbrowser.Left, ScaleY(ky, vbPixels, vbTwips) - wbrowser.TOp