MapForums

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

Hello people,

Can anyone say why I always get type 1 returned with in this doubleclick event...I am trying to draw a freeform on the map and then catch it as
such with the event...the type should be 5 (freeform)..but is always 1

thanks..

PrivateSub AxMappointControl1_BeforeDblClick1(ByVal sender AsObject, ByVal e As AxMapPoint._IMappointCtrlEvents_BeforeDblClickEven t) Handles AxMappointControl1.BeforeDblClick
Dim omap As MapPoint.Map
omap = AxMappointControl1.ActiveMap
MsgBox("The type of this shape is: " _
+ CStr(omap.Shapes.Item(1).Type))
If omap.Selection IsNothingThen
Stop
EndIf
EndSub

**Wilfried** · #2 (**permalink**) 04-17-2007

Hi,

Please do not double post. If you think your original post is not seen then you can reply to it and it will move back to top and will be set not read.

Are you sure there is not another shape on your map ?

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

Thanks Wilfried... I am working with a new clean map with no other shapes. I have the same difficulty with the following code, that is, when doubleclicking on a shape on the map the code fires, but never finds a shape object..thanks for any help.

PrivateSub AxMappointControl1_BeforeDblClick(ByVal sender AsObject, ByVal e As AxMapPoint._IMappointCtrlEvents_BeforeDblClickEven t) Handles AxMappointControl1.BeforeDblClick

Dim searche As MapPoint.FindResults = AxMappointControl1.ActiveMap.ObjectsFromPoint(e.x, e.y)

ForEach result AsObjectIn searche
IfTypeOf result Is MapPoint.geoshapetype Then
.....never gets here
EndIf
Next

EndSub

**Wilfried** · #4 (**permalink**) 04-18-2007

Hi,

That is correct. You click on the Shape but not on the Location where the Shape is (probably the center).

If you want a user to do something when clicking on a Shape use SelectionChange event. Eventually you can check if it is what you want and popup a menu at mouse position.

As for your first question I did a similar test in the SelectionChange event handler, drawing a free form and then select it:

Code:

Console.WriteLine("selection change");
Shape s = map.Selection as Shape;
if (s != null)
    Console.WriteLine(s.Type);

And it displays: "GeoFreeForm" so this looks ok to me.

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

Wilfried, thanks...!

I got it working, based on your explination and code example I tried it again and it was good. I used the VB below. Thanks again. Michael

Dim objmap As MapPoint.Map
objmap = AxMappointControl1.ActiveMap
Dim shape As MapPoint.Shape = objmap.Shapes.Item(1)
If shape IsNothingThen
MsgBox("no shape")
Else
MsgBox("type" & shape.Type)
EndIf

LinkBacks (?) LinkBack to this Thread: http://www.mapforums.com/still-stuck-freeform-event-5836.html
Posted By	For	Type	Date
MapPoint News - MP2K Magazine	This thread	Refback	04-30-2007 04:55 PM
Microsoft MapPoint 2006 - MP2K Magazine	This thread	Refback	04-17-2007 01:59 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
Start Draw shape (freeform)	Anonymous	MapPoint 2006/2009 Discussion	2	10-24-2006 06:37 PM
ZoomIn() gets "stuck" and does not zoom	BobFromBoston	MapPoint 2006/2009 Discussion	1	10-22-2006 12:54 PM
Getting the coordinates from a freeform shape	pst	MapPoint 2006/2009 Discussion	5	07-14-2005 07:19 AM
freeform & 5-digit zips	msensel	MapPoint 2006/2009 Discussion	1	12-12-2003 12:41 PM
View bounds of a Freeform Shape	Anonymous	MapPoint 2006/2009 Discussion	0	04-29-2003 05:35 PM

MapForums

Still stuck on the freeform event!

Still stuck on the freeform event!

LinkBacks (?)
LinkBack to this Thread: http://www.mapforums.com/still-stuck-freeform-event-5836.html

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

Similar Threads

MapForums

Still stuck on the freeform event!

Still stuck on the freeform event!

LinkBacks (?) LinkBack to this Thread: http://www.mapforums.com/still-stuck-freeform-event-5836.html

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

Similar Threads

LinkBacks (?)
LinkBack to this Thread: http://www.mapforums.com/still-stuck-freeform-event-5836.html