MapForums

zadic · #1 (**permalink**) 10-03-2005

Hi all

Background: I have vehicles in the field and they report their long,lat positions to a sqlDatabase through GPRS.

What I want to know is how do I use this long/lat positions to add a pushpin or any type of shape onto my map?

Im not using the webservice put the MappointControl object with a VB form.

Thanx

Z

calv1ns · #2 (**permalink**) 10-05-2005

Zadic

Here is a VB6 Funciton that will do what you want:

Quote:

Public Function addpushpin(wk_lat As Double, wk_long As Double, wk_type As Integer, wk_name As String) As Integer
Dim this_loc As MapPoint.Location
Dim this_pin As MapPoint.Pushpin
'note myobj is a global definded as Dim myobj as MapPoint.Map
'Function: addpushpin returns +1 on success -1 on failure

myapp.Visible = True

On Error GoTo myErr:
wk_istat = 1
Set this_loc = myobj.GetLocation(wk_lat, wk_long, 0)
Set this_pin = myobj.addpushpin(this_loc, wk_name)
this_pin.Symbol = wk_type

myErr:
If Err.Number <> 0 Then
On Error GoTo 0
Debug.Print Err.Number, Err.Description
Err.Clear
wk_istat = -1
End If
addpushpin = wk_istat
End Function

Ciao,

zadic · #3 (**permalink**) 10-06-2005

Thanx it worked!!

Zadic

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
Adding custom field to a Pushpin	marcocim	MapPoint Desktop Discussion	1	06-12-2005 04:13 PM
Adding Pushpin	Anonymous	MapPoint Desktop Discussion	5	03-11-2005 07:23 AM
Adding pushpins by lat/long or address using MPC in MSAccess	GM	MapPoint Desktop Discussion	0	11-01-2004 12:00 PM
Adding custom pushpin symbol	M.Vrolijk	MapPoint Desktop Discussion	2	09-20-2004 06:55 AM
Check error with VBA before adding pushpin	Anonymous	MapPoint Desktop Discussion	2	03-24-2004 09:36 AM

MapForums

Adding a PushPin from a Long/Lat position

Adding a PushPin from a Long/Lat position

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

Similar Threads