MapForums
Community of VE/MapPoint Users and Developers
Locate Line
This is a discussion on Locate Line within the MapPoint 2006/2009 Discussion forums, part of the Map Forums category; with that: Code: If TypeOf (objresults.Item(1)) Is MapPoint.Pushpin Then i can get a pushpin, but i need get a line ...
| |||||||
| Register | Blogs | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read |
08-11-2004
| ||||
| ||||
|
Here is a little sample that should be useful. The first snippet you can put in a command button. I put the function in a module. Put a shape or 2 on the map and try it. Code: On Error Resume Next
Dim objmap As MapPointctl.Map
Set objmap = MappointControl1.ActiveMap
Dim objShapes As MapPointctl.Shapes
Dim objshape As MapPointctl.Shape
Set objShapes = objmap.Shapes
For Each objshape In objShapes
MsgBox shapeType(objshape)
Next
Code: Function shapeType(obj1 As MapPointctl.Shape)
Select Case obj1.Type
Case Is = 1
Select Case obj1.AutoShapeType
Case Is = 1
shapeType = "Rectangle"
Case Is = 9
shapeType = "Oval"
Case Is = 1009
shapeType = "Circle"
End Select
Case Is = 5
shapeType = "geoFreeform"
Case Is = 9
shapeType = "geoLine"
Case Is = 17
shapeType = "geoTextBox"
End Select
End Function
__________________ John http://www.support-pc.com Order MapPoint 2006 Here https://secure.mp2kmag.com/?refer=support-PC         |
 |
| Tags |
| line, locate |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
Linear Mode
| |
| ||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Use MapPoint to Locate Road and County Line Intersection | cwsanders | MapPoint 2006/2009 Discussion | 2 | 07-08-2006 03:08 PM |
| How do I locate the best location for my processing site | howlei | MapPoint 2006/2009 Discussion | 3 | 01-05-2006 11:09 AM |
| How can I create a line between two line with VB6 | Anonymous | MapPoint 2006/2009 Discussion | 0 | 04-29-2003 06:44 PM |
| Possible to Locate all Hospitals in 1 mile radius? | ChrisC | MapPoint 2006/2009 Discussion | 1 | 01-08-2003 06:09 PM |
| As I draw a line and then a pushpin on that line, .... | Anonymous | MapPoint 2006/2009 Discussion | 1 | 07-16-2002 09:35 AM |
All times are GMT -5. The time now is 10:31 AM.
