Welcome to MapForums!

Register, sign in, or use Facebook Connect above to join in and participate in the forum.

When you are signed in, this message, the ads in this row, and the red-underlined link ads all go away.

Subscribe to receive our newsletter.
Subscribe Unsubscribe
Results 1 to 2 of 2

Locate Line

This is a discussion on Locate Line within the MapPoint Desktop 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 ...

  1. #1
    Anonymous is offline Senior Member Black Belt
    Join Date
    Jul 2002
    Posts
    5,137

    Locate Line

    with that:

    Code:
     If TypeOf (objresults.Item(1)) Is MapPoint.Pushpin Then
    i can get a pushpin, but i need get a line when i click whit rigth button

    THX

  2. #2
    John Meyer's Avatar
    John Meyer is offline Senior Member Blue Belt
    Join Date
    Jul 2002
    Posts
    478
    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

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Use MapPoint to Locate Road and County Line Intersection
    By cwsanders in forum MapPoint Desktop Discussion
    Replies: 2
    Last Post: 07-08-2006, 03:08 PM
  2. How do I locate the best location for my processing site
    By howlei in forum MapPoint Desktop Discussion
    Replies: 3
    Last Post: 01-05-2006, 11:09 AM
  3. How can I create a line between two line with VB6
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 04-29-2003, 06:44 PM
  4. Possible to Locate all Hospitals in 1 mile radius?
    By ChrisC in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 01-08-2003, 06:09 PM
  5. As I draw a line and then a pushpin on that line, ....
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 07-16-2002, 09:35 AM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96