Hello:

I'm using Visual Basic 6 and Mappoint 2002, and I need to use programmatically the functionality of Radius shape.

Is it possible to allow users using only Radius shape? Could I emulate this shape functionality?

Thanks in advance.

Code:

Dim objmap As MapPointCtl.Map
Set objmap = MappointControl1.ActiveMap
    
Dim objShapes As MapPointCtl.Shapes
Dim objshape As MapPointCtl.Shape
Set objShapes = objmap.Shapes

Set objshape = objShapes.AddShape(geoShapeRadius, objmap.FindResults("Denver, CO").Item(1), 500, 500)
objshape.Name = "MyShape"

Thanks a lot, but that's not what I mean...

I want the user to "draw" a Radius shape (as in MapPoint), but without the drawing toolbar, because I only need the Radius shape, but not Rectangle, etc.

Sorry if I'm not very clear in my explanations. :'-( My English is a bit bad...

Take a look at this, it may get you a solution.

Access some hidden features in MapPoint2002 ActiveX control
http://www.mp2kmag.com/mappoint/disc...extend+activex

Thanks a lot, I'll try it!!!

Did you find any solution.. i have same problem...

Hi,

Draw a shape when the user clicks on the map with the centerpoint where he click and a radius of almost zero. Then when he move the mouse away resize the shape according to the right diameter. Stop drawing when he click again.

Or some other scenario, all depending on the application.

This approach assume you have a mouse move event in MP, but it's not existing, as I know.

Renato

Originally Posted by Wilfried

Hi,

Draw a shape when the user clicks on the map with the centerpoint where he click and a radius of almost zero. Then when he move the mouse away resize the shape according to the right diameter. Stop drawing when he click again.

Or some other scenario, all depending on the application.

Hi,

Yes there is. There is a MouseDown, MouseUp and MouseMove event.