Community of VE/MapPoint Users and Developers
This is a discussion on find mileage using two zipcodes onlh within the MapPoint 2006/2009 Discussion forums, part of the Map Forums category; Is it possible to find the mileage by using only a zipcode for starting point and then use a zipcode ...
| |||||||
| Register | Blogs | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
| |||
| Finding mileage with zip codes only..
If you are using a city, postal code or place doesn't matter. You will always get a location object back that you can use to get your distance. An example (Use a form with a MapPoint OCX, a textbox, a listbox and two commandbuttons where Command1 calculates the route and Command2 clear the route): ------------------------------------------------- Dim MyRoute As MapPointCtl.Route Private Sub Command1_Click() If Not MyRoute Is Nothing Then If MyRoute.Waypoints.Count > 1 Then MyRoute.Calculate Else MsgBox "Need more Waypoints!", vbExclamation End If End If End Sub Private Sub Command2_Click() Me.List1.Clear MyRoute.Clear Me.MappointControl1.ItineraryVisible = False End Sub Private Sub Form_Load() Me.MappointControl1.NewMap MapPointCtl.geoMapEurope Set MyRoute = Me.MappointControl1.ActiveMap.ActiveRoute End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Dim MyMap As MapPointCtl.Map Dim MyResult As Object Set MyMap = Me.MappointControl1.ActiveMap If KeyCode = KeyCodeConstants.vbKeyReturn Then Set MyResult = MyMap.ShowFindDialog(Me.Text1.Text) If Not MyResult Is Nothing Then If MyResult.Name > " " Then Me.List1.AddItem MyResult.Name MyRoute.Waypoints.Add MyResult, MyResult.Name Me.Text1.Text = "" End If End If End If End Sub ----------------------------------- /Joakim Tornhill SpedSoft AB http://www.spedsoft.se
__________________ SpedSoft AB has been working with MapPoint since version 2000 and have the longest experience in Sweden on MapPoint. |
![]() |
| Tags |
| find, mileage, onlh, zipcodes |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
| |
| ||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| zipcodes | Anonymous | MapPoint 2006/2009 Discussion | 1 | 02-16-2005 08:31 AM |
| Creating Mileage Charts | ekrupa | MapPoint 2006/2009 Discussion | 2 | 11-30-2004 08:37 AM |
| Mileage Chart | mpnewb | MapPoint 2006/2009 Discussion | 3 | 09-07-2004 07:32 AM |
| mileage report for employees | Anonymous | MapPoint 2006/2009 Discussion | 0 | 02-11-2004 06:34 AM |
| Retrieving mileage & time | EJBATL | MapPoint 2006/2009 Discussion | 0 | 06-30-2003 02:20 PM |
Niederau Skiing
For a picturesque and family friendly atmosphere, experience Niederau skiing holidays. Book online at Holiday Hypermarket to find fantastic low prices.
Travel Counsellors
Travel Counsellors are an award winning Travel Agent. Have a personal Travel Counsellor help with your travel plans.
Jamaica Holidays
Jamaica Holidays can include world class business hotels, upscale shopping and top entertainment and dining. Alternatively, hit the beach or hike in the hills. Book online with us.
Egypt Holidays
Visit one of the most spectacular sightseeing destinations in the world with The Holiday Place. Egypt holidays provide a fantastic break!
Egypt
In Egypt you find an ancient city buzzing with life. There is an abundance of historical sites to see, not just the pyramids. The Opera House is certainly worth a visit and you can enjoy some open-air theatre too.
Price Comparison
Price comparison is the name of the game at Travel.co.uk. Visit our website and see for yourself.
Cheap Holidays in Florida
Legendary weather! Visit On The Beach for info on cheap holidays in Florida.