MapForums

mzupan · #1 (**permalink**) 07-25-2003

I have a simple app that just refreshes on command a new location on the map. As i click the button the mappoint process grows and grows.. can anyone see a problem in my code or is this a mappoint problem since it shouldnt be refreshed in under 15 seconds

Code:

Dim newlat
Dim newlong
Dim zoom
Dim objpushpin As MapPointCtl.Pushpin
Dim objLoc As MapPointCtl.Location
Dim objMap As MapPointCtl.Map


Private Sub Command1_Click()
    newlat = newlat + 0.0008
    newlong = newlong + 0.0008
    
    Set objMap = MappointControl1.ActiveMap
    Set objLoc = objMap.GetLocation(newlat, newlong, zoom)
    Set objpushpin.Location = objLoc
    objLoc.GoTo
    
    Set objMap = Nothing
    Set objLoc = Nothing
End Sub

Public Sub Form_Load()

    MappointControl1.NewMap 1
    
    Set objMap = MappointControl1.ActiveMap
    
    newlat = 42.67986
    newlong = -73.696918
    zoom = 1
    
    Set objLoc = objMap.GetLocation(newlat, newlong, zoom)
    Set objpushpin = objMap.AddPushpin(objLoc, "Current Location")
    objpushpin.Symbol = 82
    objLoc.GoTo
    
    Set objMap = Nothing
    Set objLoc = Nothing
    
End Sub

Victor_Chinn · #2 (**permalink**) 08-02-2003

Yep...I've noticed this too ... except I update every second and MapPoint eats up 4K every second. No response from Microsoft however ... perhaps this will be addressed in next version?

Quote:

Originally Posted by mzupan

I have a simple app that just refreshes on command a new location on the map. As i click the button the mappoint process grows and grows.. can anyone see a problem in my code or is this a mappoint problem since it shouldnt be refreshed in under 15 seconds

Code:

Dim newlat
Dim newlong
Dim zoom
Dim objpushpin As MapPointCtl.Pushpin
Dim objLoc As MapPointCtl.Location
Dim objMap As MapPointCtl.Map


Private Sub Command1_Click()
    newlat = newlat + 0.0008
    newlong = newlong + 0.0008
    
    Set objMap = MappointControl1.ActiveMap
    Set objLoc = objMap.GetLocation(newlat, newlong, zoom)
    Set objpushpin.Location = objLoc
    objLoc.GoTo
    
    Set objMap = Nothing
    Set objLoc = Nothing
End Sub

Public Sub Form_Load()

    MappointControl1.NewMap 1
    
    Set objMap = MappointControl1.ActiveMap
    
    newlat = 42.67986
    newlong = -73.696918
    zoom = 1
    
    Set objLoc = objMap.GetLocation(newlat, newlong, zoom)
    Set objpushpin = objMap.AddPushpin(objLoc, "Current Location")
    objpushpin.Symbol = 82
    objLoc.GoTo
    
    Set objMap = Nothing
    Set objLoc = Nothing
    
End Sub

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Memory leak - Bulk calculates	bigderek	MapPoint 2006/2009 Discussion	7	10-08-2008 07:50 AM
Memory leaks in MapPoint	rbarthels	MapPoint 2006/2009 Discussion	2	01-27-2004 05:53 PM
Location.Goto functionality, for freeform shapes?	Geomancer	MapPoint 2006/2009 Discussion	1	12-16-2003 08:42 AM
Mappoint and VB.NET: Horrible Memory Usage	mrobold	MapPoint 2006/2009 Discussion	2	11-12-2003 06:16 PM
Huge memory leak in using QueryShape?	random0000	MapPoint 2006/2009 Discussion	2	03-28-2003 06:22 AM

MapForums

memory leak with objloc.goto?

memory leak with objloc.goto?

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

Similar Threads

MapForums

memory leak with objloc.goto?

memory leak with objloc.goto?

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

Similar Threads