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 3 of 3

lat lon from uk postcode

This is a discussion on lat lon from uk postcode within the MapPoint Desktop Discussion forums, part of the Map Forums category; Hi I am trying to get the lat lon from a given postcode using the following routine in VB6 Private ...

  1. #1
    starbuck's Avatar
    starbuck is offline Member Green Belt
    Join Date
    Oct 2003
    Posts
    68

    lat lon from uk postcode

    Hi

    I am trying to get the lat lon from a given postcode using the following routine in VB6

    Private Sub mapBtn_Click()

    Dim oMap As MapPoint.Map
    Dim oLoc As MapPoint.Location

    On Error GoTo er
    If Len(Postcode_txt) = 0 Then Exit Sub
    Set oMap = New MapPoint.Map '.ActiveMap
    Set oLoc = oMap.FindAddressResults("", "", "", "", Postcode_txt, geoCountryUnitedKingdom)
    CalcPos oMap, oLoc, maplat, maplon

    Exit Sub
    er:
    MsgBox Str(Err) + SP + Err.Description

    End Sub


    My problem is the line
    Set oLoc = oMap.FindAddressResults("", "", "", "", Postcode_txt, geoCountryUnitedKingdom)

    generates error 13, type mismatch

    Any ideas folks
    Thanks in advance

  2. #2
    John Meyer's Avatar
    John Meyer is offline Senior Member Blue Belt
    Join Date
    Jul 2002
    Posts
    478
    your problem might be that "maplat, maplon" need to be declared as Double for the calcpos sub.

  3. #3
    starbuck's Avatar
    starbuck is offline Member Green Belt
    Join Date
    Oct 2003
    Posts
    68

    ok, done it, this is how

    Private Sub mapBtn_Click()

    Dim objApp As New MapPoint.Application
    Dim objMap As MapPoint.Map
    Dim objLoc As MapPoint.Location

    Set objMap = objApp.ActiveMap
    objApp.Visible = False
    objApp.UserControl = True


    On Error GoTo er
    If Len(Postcode_txt) = 0 Then Exit Sub
    'Find an address
    Set objLoc = objMap.FindAddressResults(, , , , Postcode_txt.Text, geoCountryUnitedKingdom)(1)
    CalcPos objMap, objLoc, maplat, maplon
    Exit Sub
    er:
    MsgBox Str(Err) + SP + Err.Description

    End Sub



    cool ehh!!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. need help in entering quaintly against postcode
    By tony jones in forum MapPoint Desktop Discussion
    Replies: 3
    Last Post: 08-04-2004, 07:37 AM
  2. Full UK Postcode
    By Anonymous in forum MapPoint Desktop Discussion
    Replies: 2
    Last Post: 03-15-2004, 10:46 AM
  3. POSTCODE
    By gsc1ugs in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 02-06-2003, 09:20 AM
  4. Postcode Formatting..
    By David in forum MapPoint Desktop Discussion
    Replies: 0
    Last Post: 08-30-2002, 06:33 AM
  5. UK postcode mapping problems
    By Robin in forum MapPoint Desktop Discussion
    Replies: 1
    Last Post: 08-08-2002, 08:09 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