Bing Maps API

Version imprimable

Bing Maps API

Bonjour le forum,

J'utilisais par le passé 'Virtual Earth' (devenu 'Bing Maps') couplé avec le 'AJAX Control 6.3' pour réaliser des applications de cartographie.

Cette solution étant quelque peu datée, je souhaite désormais utiliser le 'AJAX Control 7.0'.

J'ai créé le fichier d'initialisation suivant ('connexion.html'):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
   <head>
      <title></title>
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
 
      <script type="text/javascript" src="http://ecn.dev.virtualearth.net/mapcontrol/mapcontrol.ashx?v=7.0"></script>
 
      <script type="text/javascript">
 
         function GetMap()
         {
            var map = new Microsoft.Maps.Map(document.getElementById("mapDiv"), {credentials:"****************************************************************"});
         }
                 
      </script>
   </head>
 
   <body onload="GetMap();"> 
      <div id='mapDiv' style="position:absolute; width:700px; height:700px;"></div>
   </body>
 
</html>

J'utilise un formulaire qui contient un contrôle 'WebBrowser' avec le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub UserForm_Initialize()
  wbrBrowser.Navigate ThisWorkbook.Path & "\connexion.html"
End Sub
 
Private Sub cmbCentrer_Click()
  EnvoiScript "map.setView({center: new Microsoft.Maps.Location(47, -122), zoom: 14, animate: false });"
End Sub
 
Private Sub EnvoiScript(Js As String)
  wbrBrowser.Document.parentWindow.execScript Js, "Javascript"
End Sub

Sauf que ça ne marche pas. j'ai une erreur 80020101 liée à l'appel du script avec comme explication 'map is undefined'.

Un exemple à adapter (j'ai utilisé le WebBrowser sur Feuil1, ça sera idem pour un userform)

Le code crée lui même le fichier html selon les paramètres Latitude, Longitude et Zoom

Adapte le Key, j'ai mis un au pif

Code:

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
Private Sub CommandButton1_Click()
Dim Fichier As String
 
Fichier = ThisWorkbook.Path & "\connexion.html"
CreateHtmlFile Fichier, 35.78472, -5.81278, 14
Feuil1.wbrBrowser.Navigate Fichier
End Sub
 
'File: Fichier html
'Lat: Latitude
'Lon: Longitude
'Zm, Zoom
 
Private Sub CreateHtmlFile(ByVal File As String, ByVal Lon As Double, ByVal Lat As Double, ByVal Zm As Integer)
Dim Tmp As String
Dim N As Integer
 
Tmp = "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">"
Tmp = Tmp & vbNewLine & "<html>"
Tmp = Tmp & vbNewLine & "<head>"
Tmp = Tmp & vbNewLine & "<title></title>"
Tmp = Tmp & vbNewLine & "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">"
Tmp = Tmp & vbNewLine & "<script type=""text/javascript"" src=""http://ecn.dev.virtualearth.net/mapcontrol/mapcontrol.ashx?v=7.0""></script>"
Tmp = Tmp & vbNewLine & "<script type=""text/javascript"">"
Tmp = Tmp & vbNewLine & "function GetMap()"
Tmp = Tmp & vbNewLine & "{"
Tmp = Tmp & vbNewLine & "var mapOptions = {"
Tmp = Tmp & vbNewLine & "credentials: ""DpSGzpBhOMTIdmLPwKJvcwHQnylw35Ljul4UiJzACuUCKPIwZyU2rIeWyn8MNNnF"","
Tmp = Tmp & vbNewLine & "center: new Microsoft.Maps.Location(" & CStr(Lon) & "," & CStr(Lat) & "),"
'=====les 3 choix: automatic, birdseye ou road
'Tmp = Tmp & vbNewLine & "mapTypeId: Microsoft.Maps.MapTypeId.birdseye,"
'Tmp = Tmp & vbNewLine & "mapTypeId: Microsoft.Maps.MapTypeId.road,"
Tmp = Tmp & vbNewLine & "mapTypeId: Microsoft.Maps.MapTypeId.automatic,"
'=====
Tmp = Tmp & vbNewLine & "zoom: " & Zm & ","
Tmp = Tmp & vbNewLine & "showScalebar: true"
Tmp = Tmp & vbNewLine & "}"
Tmp = Tmp & vbNewLine & "var map = new Microsoft.Maps.Map(document.getElementById(""mapDiv""), mapOptions);"
Tmp = Tmp & vbNewLine & "}"
Tmp = Tmp & vbNewLine & "</script>"
Tmp = Tmp & vbNewLine & "</head>"
Tmp = Tmp & vbNewLine & "<body onload=""GetMap();"">"
Tmp = Tmp & vbNewLine & "<div id='mapDiv' style=""position:relative; width:600px; height:600px;""></div>"
Tmp = Tmp & vbNewLine & "</body>"
Tmp = Tmp & vbNewLine & "</html>"
 
N = FreeFile()
Open File For Output As #N
Print #N, Tmp
Close #N
 
End Sub

08/08/2013, 09h12
Invité

Ok mais imaginons que je créé un bouton de contrôle qui permet de centrer la carte sur une ville choisie par l'utilisateur ou n'importe quelle action ; il faut générer le fichier '.html' à chaque fois ?

On ne peut pas envoyer une commande 'Javascript' comme c'était le cas dans la version 6.3 ?
08/08/2013, 11h55
mercatog

Le code javascript à envoyer par ton bouton est:

Code:

EnvoiScript "GetMap();"

Mais pour cela, les paramètres voulus ne sont pas transmis.
08/08/2013, 12h26
Invité

Avec l'ancienne version de l'API je pouvais appeler directement les fonctions (comme dans l'exemple en PJ).

Ce comportement n'est plus réalisable avec la nouvelle version de l'API ?

Je me suis permis de poster également sur le forum où j'avais anciennement trouvé un tutoriel sur 'Visual Earth'.

Je vois
Déclare ta variable map en dehors de GetMap et essaies ton code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
   <head>
      <title></title>
      <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
 
      <script type="text/javascript" src="http://ecn.dev.virtualearth.net/mapcontrol/mapcontrol.ashx?v=7.0"></script>
 
      <script type="text/javascript">
        var map=null;
         function GetMap()
         {
            map = new Microsoft.Maps.Map(document.getElementById("mapDiv"), {credentials:"****************************************************************"});
         }
 
      </script>
   </head>
 
   <body onload="GetMap();"> 
      <div id='mapDiv' style="position:absolute; width:700px; height:700px;"></div>
   </body>
 
</html>

08/08/2013, 13h26
Invité

Super merci beaucoup !