MapForums

XRoK · #1 (**permalink**) 10-29-2004

I was able to show lan/lat infomation on status bar using private sub Mouse_move on .vb programming.
Now I'm trying with vb.net, but lan/lat will not display correctly.
I was able to show lan/lat by zoom in and zoom out, but it will not show under mouse_move.

What am I missing?

XRoK

EdB · #2 (**permalink**) 10-30-2004

Post some code, let's have a look

Anonymous · #3 (**permalink**) 10-30-2004

Ok,
Here is the code for MouseMoveEvent

Private Sub AxMappointControl1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxMapPoint._IMappointCtrlEvents_MouseMoveEvent) Handles AxMappointControl1.MouseMoveEvent

Dim oLoc As MapPoint.Location
Dim dblLat As Double, dblLon As Double
Dim strPos As String
Dim strPosp As String
Dim x As Integer
Dim Y As Integer

oLoc = oMap.XYToLocation(x, Y)

CalcPos(oMap, oLoc, dblLat, dblLon)

Statusbar.panel(1).text = dblLat & "/" & dblLon

End Sub

**John Meyer** · #4 (**permalink**) 10-30-2004

I wonder if it is because your declaration of dblLat and dblLon is inside of your Private Sub AxMappointControl1_MouseMoveEvent ?

XRoK · #5 (**permalink**) 10-30-2004

I think you went over my head..

Can you explain little more in my level, which isn't much.

XRoK

brianmcg · #6 (**permalink**) 10-31-2004

I'm a vb6 developer and haven't done anything with .net yet, but having said that, the XYtoLocation function must be passed the mouse coordinates in order to create the locations. In vb6, the event passes you the x and y of the mouse as parameters. You seem to be creating x and y as local variables and not assigning any values to them before calling the XYToLocation method. I may be missing something, but the way the code seems to work, you'll get the lat/long of whatever is in the top left corner of the map window (because that's (0,0) in the window and local integers are created with a value of 0) rather than anything to do with the mouse pointer.[/quote]

**John Meyer** · #7 (**permalink**) 10-31-2004

Your right I dont see anything for setting the x.y either.

Check out this article:
Programming MapPoint via .NET
http://www.mp2kmag.com/a66--location....mappoint.html

Code:

Private Sub OnMouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Integer, ByVal Y As Integer) Handles Map.MouseMove

Notice this sub declaration the x and y get passed in by mappoint.

EdB · #8 (**permalink**) 10-31-2004

I'm not sure if you got your answer yet, but I think it's here:

dim x as integer = e.x
dim y as integer = e.y

Make those changes and you should be fine.