Bill Patten
bill_Patten at earthlink.net
Fri Sep 29 10:17:11 CDT 2006
David,
You might check out
http://www.viavirtualearth.com/VVE/Dashboard/Default.ashx
and MS Inteteractive SDK at
http://dev.live.com/virtualearth/sdk/
Don't know if you can tie it into Access but maybe with some of Marty's code
you could.
Bill
----- Original Message -----
From: "David Gray" <david.gray at tpg.com.au>
To: "'Access Developers discussion and problem solving'"
<accessd at databaseadvisors.com>
Sent: Friday, September 29, 2006 1:46 AM
Subject: Re: [AccessD] Mappoint - Virtual Earth - and Access Db
Really cool Marty! Thanks!
What else can you do?
Do you know how to store pushpins in a table?
David Gray
96 Springacre Rd
Thornlands QLD
Yahoo ID: flock_it_software
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of MartyConnelly
Sent: Friday, 29 September 2006 12:34 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Mappoint - Virtual Earth - and Access Db
For those of you wanting to footle around with Access and MS Virtual Earth
Here is some sample code, it also dumps the html code to an html file By
clicking on map you display Lat/Long position of cursor
Option Compare Database
Option Explicit
Function testVirtualEarthMap()
'------------------
'display Virtual Earth at a fixed LatLong
' then click on map to display Lat/Long position of cursor 'see these for
info: 'http://dev.live.com/virtualearth/sdk/
'http://www.ftponline.com/special/web20/pvarholasp/default.aspx
Dim objExplorer As Object
Dim objDocument As Object
Dim strHTML As String
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.Toolbar = 1 ' 0= off
objExplorer.StatusBar = 1 '0 =off
objExplorer.Width = 800
objExplorer.Height = 870
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
Do While (objExplorer.Busy)
Loop
Set objDocument = objExplorer.Document
objDocument.Open
'create html string and dump to a test file
strHTML = ""
strHTML = strHTML & createhtml
WriteFile "c:\gis\test.html", strHTML
'objDocument.Writeln strHTML
objDocument.Write strHTML
objExplorer.Refresh ' ??This has to be done because of
http://local.live.com/veapi.ashx
'objDocument.Close 'stall here
Do While (objExplorer.Busy)
Loop
'MsgBox "finished"
'Set objExplorer = Nothing
'Set objDocument = Nothing
End Function
Private Sub WriteFile(ByVal sFileName As String, ByVal sContents As String)
' Dump XML or html String to File for debugging
Dim fhFile As Integer
fhFile = FreeFile
' Debug.Print "Length of string=" & Len(sContents)
Open sFileName For Output As #fhFile
Print #fhFile, sContents;
Close #fhFile
Debug.Print "Out File" & sFileName
End Sub
Function createhtml() As String
Dim strHTML As String
strHTML = ""
strHTML = strHTML & "<html><head><title>Virtual Earth Map</title></head>"
strHTML = strHTML & "<meta http-equiv=""Content-Type""
content=""text/html; charset=utf-8"">"
'When your page has referenced the map control, set up the call to
display a default map by completing a LoadMap ( ) method call: strHTML =
strHTML & vbCrLf & "<script
src='http://dev.virtualearth.net/mapcontrol/v3/mapcontrol.js'></script> " '
strHTML = strHTML & vbCrLf & "<script type='text/javascript'
src='http://local.live.com/veapi.ashx'></script>"
strHTML = strHTML & vbCrLf & "<script language=""javascript""
type=""text/javascript"">"
' strhtml = strhtml & vbCrLf & "<!-- "
strHTML = strHTML & vbCrLf & " var map=null;"
strHTML = strHTML & vbCrLf & " function ShowLatLon(e)"
strHTML = strHTML & vbCrLf & " {"
strHTML = strHTML & vbCrLf & "alert('Latitude = ' +
e.view.LatLong.Latitude + 'Longitude = ' + e.view.LatLong.Longitude);"
strHTML = strHTML & vbCrLf & " }"
strHTML = strHTML & vbCrLf & " function GetMap()"
strHTML = strHTML & vbCrLf & " { "
strHTML = strHTML & vbCrLf & " map = new VEMap(""myMap"");"
strHTML = strHTML & vbCrLf & "map.onLoadMap = function(){ alert('The
map has loaded.') };"
strHTML = strHTML & vbCrLf & " map.LoadMap(new VELatLong(48.51,
-123.36), 10 ,""h"" ,false);"
strHTML = strHTML & vbCrLf & " map.AttachEvent(""onclick"",
ShowLatLon);"
strHTML = strHTML & vbCrLf & " }"
strHTML = strHTML & vbCrLf & "</script>"
' strhtml = strhtml & vbCrLf & "// -->"
'Last, you display the map:
strHTML = strHTML & vbCrLf & "<body onload='GetMap();'>" strHTML = strHTML
& vbCrLf & "<div id='myMap' style='position:relative;
width:600px; height:600px;'></div>"
strHTML = strHTML & vbCrLf & "<td> right or left click map for latitude
longitude position </td>"
strHTML = strHTML & vbCrLf & "</body>"
strHTML = strHTML & vbCrLf & "</html>"
WriteFile "c:\gis\test.html", strHTML
createhtml = strHTML
End Function
--
Marty Connelly
Victoria, B.C.
Canada
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com