MapForums

mmartin · #1 (**permalink**) 04-12-2007

Hello community.

Any ideas on how to draw a polygon on a geodatamap of zip codes, have
the user select the area,trap the zips in the shape and export to a dataset? Particularly not sure how to activate and use the toolbar drawing functions...programmactialy

I am using mappoint 2006 in visual studio 2005 via activex, VB.net

Best
M. Martin

**Paul Larson** · #2 (**permalink**) 04-17-2007

First off, you'll need to change the zipcode map to a pushpin map. This is because the QueryShape() method does not work on demographic or area maps.

Programmatically triggering the DrawFreeformShape tool can be done by adding this class to your application:

Code:

Public Class xMapPointGUI
   Private hwMPC As IntPtr = IntPtr.Zero
   Private hwMessageFrame As IntPtr

   Private Const WM_COMMAND As Int32 = &H111
   Private Const WM_MAPPOINT_BEGIN_SCRIBBLE As Int32 = 58205
   Private Const WM_MAPPOINT_BEGIN_LINE As Int32 = 58206
   Private Const WM_MAPPOINT_BEGIN_ARROW As Int32 = 58207
   Private Const WM_MAPPOINT_BEGIN_FREEFORM As Int32 = 58208
   Private Const WM_MAPPOINT_BEGIN_RECTANGLE As Int32 = 58209
   Private Const WM_MAPPOINT_BEGIN_OVAL As Int32 = 58210
   Private Const WM_MAPPOINT_BEGIN_MEASURE As Int32 = &HE370
   Private Const WM_MAPPOINT_BEGIN_RADIUS As Int32 = &HE372
   Private Const WM_MAPPOINT_BEGIN_TEXTBOX As Int32 = 58211
   Private Const WM_MAPPOINT_DRAW_PUSHPIN As Int32 = 58202

   Private Declare Auto Function FindWindowEx Lib "user32" Alias "FindWindowEx" (ByVal hwParent As IntPtr, ByVal hwChildAfter As IntPtr, ByVal strClassName As String, ByVal strWindowCaption As String) As IntPtr
   Private Declare Auto Function GetParentWindow Lib "user32" Alias "GetParent" (ByVal hwChild As IntPtr) As IntPtr
   Private Declare Auto Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32

   Public Event MPCError(ByVal strErrorMsg As String)

   Public Sub New(ByRef MPC As AxMapPoint.AxMappointControl)
      If MPC.Handle.ToInt32 = 0 Then
         RaiseEvent MPCError("MapPointControl was not initialized before calling xMapPointGui.New()")
         Exit Sub
      End If
      hwMPC = GetParentWindow(FindWindowEx(MPC.Handle, IntPtr.Zero, vbNullString, vbNullString))
      Dim hwTemp = FindWindowEx(hwMPC, IntPtr.Zero, vbNullString, "")
      hwMessageFrame = FindWindowEx(hwTemp, IntPtr.Zero, vbNullString, "")
   End Sub

   Public Sub BeginScribbleTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_SCRIBBLE, 0)
   End Sub

   Public Sub BeginLineTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_LINE, 0)
   End Sub

   Public Sub BeginArrowTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_ARROW, 0)
   End Sub

   Public Sub BeginFreeFormTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_FREEFORM, 0)
   End Sub

   Public Sub BeginRectangleTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_RECTANGLE, 0)
   End Sub

   Public Sub BeginOvalTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_OVAL, 0)
   End Sub

   Public Sub BeginRadiusTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_RADIUS, 0)
   End Sub

   Public Sub BeginTextBoxTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_TEXTBOX, 0)
   End Sub

   Public Sub BeginMeasureTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_MEASURE, 0)
   End Sub

   Public Sub BeginDrawPushPinTool()
      SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_DRAW_PUSHPIN, 0)
   End Sub
End Class

You can instantiate the class object by calling

Code:

Dim mpGUI As xMapPointGUI
...
mpGUI = New xMapPointGUI(Me.AxMapPointControl1)

To trigger the freeform tool, call

Code:

mpGui.BeginFreeFormTool()

After the user draws the shape, use the mappoint api QueryShape() method to find all pushpins within the shape and return them as a recordset. Then iterate through the recordset and use your favorite ADO.Net method to export the recordset items to a dataset.

HTH
Paul

mmartin · #3 (**permalink**) 04-17-2007

Hi Paul,

Thanks very much for your reply. So, I understand then that a
GeoMapRegion.geoMapNorthAmerica could be used with Push pins put in for all the zip codes, to then query and put into the dataset?

Also, I implemented the class and executed it, but I'm not sure what's supposed to happen? Does this activate the toolbar freeform shape or some other function?. Not sure what it's doing once it executes the SendMessage(hwMessageFrame, WM_COMMAND, WM_MAPPOINT_BEGIN_FREEFORM, 0) ....? I simply brough up a map, and executed a button firing the mpGUI.BeginFreeFormTool() (I guess I'm not quite sure what the difference is between using this and the tool bar freeform command?)

Thanks again..michael

**Paul Larson** · #4 (**permalink**) 04-17-2007

Yes - your understanding is correct.

And, yes, the method activates the freeform tool. Just as if the user had clicked the freeform toolbar button. This was to answer your question about activating the drawing toolbar items programmatically.

Were you instead looking for how to programmatically actually draw a shape?

Dazzer · #5 (**permalink**) 04-18-2007

The adding of the pushpins can slow this process down quite considerably, Particularly if you shape is quite large.

One method i've implemented for this in the past is to plot all zip codes (post codes in my case in the uk) on a map with pushpins, then using the well documented CalcPos function, retrieve and store, in a database of choice, the latitude and longitude of those pushpins along with there zip code.

Once you have this data you don't need to use the pushpins in future. You can plot your shape and using any number of point in polygon algorithms ( Point in Polygon Strategies ) work out which postcodes are within your polygon, (personally i go for a 'Ray' algorithm where I project a line from outside the shape to infinity counting the number of times the line crosses a boundary).

mmartin · #6 (**permalink**) 04-18-2007

Thanks Paul,

Yes, this is exactly what I needed. I fixed something (I didn't have an active map in the sub I was calling the beginfreeform sub from) and now it works just as required. Thanks again..Michael (The code below is just and example of my test that worked)

PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim objmap As MapPoint.Map
AxMappointControl1.NewMap(MapPoint.GeoMapRegion.ge oMapNorthAmerica)
objmap = AxMappointControl1.ActiveMap
AxMappointControl1.Toolbars.Item(1).Visible = True
AxMappointControl1.Toolbars.Item(2).Visible = True
AxMappointControl1.Toolbars.Item(3).Visible = True
AxMappointControl1.Toolbars.Item(4).Visible = True
mpGUI = New xmappointGUI(AxMappointControl1)
mpGUI.BeginFreeFormTool()
EndSub

**Paul Larson** · #7 (**permalink**) 04-18-2007

Great - glad it works for ya.

Just an FYI, the toolbars don't need to be visible in order for the xMappointGUI class to work. It's fine to leave them visible, though.

-Paul

LinkBacks (?) LinkBack to this Thread: http://www.mapforums.com/select-contents-shape-5830.html
Posted By	For	Type	Date
FAQ General - MapElves	This thread	Refback	04-03-2008 03:54 PM
FAQ - MapElves	This thread	Refback	08-08-2007 08:15 AM
Microsoft MapPoint 2006 - MP2K Magazine	This thread	Refback	04-17-2007 01:59 PM
MapPoint Gets New General Manager - MapPoint News - MP2K Magazine	This thread	Refback	04-14-2007 08:57 AM
Map Visitors - Powered by Virtual Earth	This thread	Refback	04-13-2007 08:26 PM
The Magazine for MapPoint - MP2K Magazine	This thread	Refback	04-12-2007 04:56 PM

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
Draw shape, select zip codes and export to SQL	mmartin	MapPoint 2006/2009 Discussion	2	04-02-2007 04:24 PM
I need to select from more than eight colors	BobFromBoston	MapPoint 2006/2009 Discussion	2	03-01-2006 05:58 PM
Does an object reside in my Shape or Shape boundaries?	hotrdd	MapPoint 2006/2009 Discussion	1	08-04-2005 09:51 PM
Select a place	jimsirv	MapPoint 2006/2009 Discussion	1	07-29-2004 08:04 PM
Is this possible to SELECT ALL the pushpins ?	Vincent BENNER	MapPoint 2006/2009 Discussion	2	12-04-2002 07:51 PM

MapForums

select contents of shape

select contents of shape

LinkBacks (?)
LinkBack to this Thread: http://www.mapforums.com/select-contents-shape-5830.html

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

Similar Threads

MapForums

select contents of shape

select contents of shape

LinkBacks (?) LinkBack to this Thread: http://www.mapforums.com/select-contents-shape-5830.html

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

Similar Threads

LinkBacks (?)
LinkBack to this Thread: http://www.mapforums.com/select-contents-shape-5830.html