Bing Maps API

Invité · 07/08/2013, 23h20

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 html :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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'.

Bing Maps API

Macros et VBA Excel

Mode arborescent

Discussions similaires

Partager

Partager