Google Map で遊んでみた

サンプル

(2007.10.10)
　 概要


住所を入力すると地図が表示されるように遊んでみた。

　

　


　

　 ソース

　

ＨＴＭＬ部分

　

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
　<title>Google Maps API </title>
</head>
<body onload="load()">
　<script src="http://maps.google.com/maps?file=api&v=2&key=Maps API Key（注）"
              type="text/javascript" charset="utf-8">

   </script>
   <script type="text/javascript">
         var map = null;
       var geocoder = null;

function load() {
     if (GBrowserIsCompatible()) {
    map = new GMap2(document.getElementById("map"));
    // ===== 基礎部分、setCenterで中心座標とズームレベルを指定 =====
   map.addControl(new GLargeMapControl()); // ズームコントロール。Small で小型に
   map.addControl(new GMapTypeControl()); // 地図タイプ切り替えボタン
   map.setCenter(new GLatLng(35.702811,139.579804), 15); //
   //
   geocoder = new GClientGeocoder();
       }
   }
  //
function showAddress(address) {
        if (geocoder) {
              geocoder.getLatLng(
                 address,
                 function(point) {
                    if (!point) {
                        alert(address + "場所不明");
                    } else {
                        map.setCenter(point, 15); //15：ズーム
                        var marker = new GMarker(point);
                       map.addOverlay(marker);
                       marker.openInfoWindowHtml(address);
                      }
                    }
               );
          }
}

</script>
<div id="map" style="width:300px; height:300px"></div>
<form action="#"
onsubmit="showAddress(this.address.value); return false">
<P>
<input type="text" size="40" name="address"
value="" />
<input type="submit" name="submit" value="移動" />
</P>
</form>
</body>
</html>
　

　

      ソースコード中の "key=..." はMaps API key なので、自分で試す場合には

      Ｇoogle MAPS APIのページから取得し書き直してください。

　

　

　

プログラム部分

　

Private Sub cmd00_Click()
     DoCmd.Close
End Sub

Private Sub Form_Load()
    Dim strURL As String
   strURL = CurrentProject.Path & "\adrs.htm"
   WebBrowser.navigate (strURL)
End Sub

Private Sub txt01_AfterUpdate()
  Dim objDoc As Object
  Dim i As Integer
  Dim tmp$
  Set objDoc = WebBrowser.Document
  If (TypeOf objDoc Is HTMLDocument) Then
     With objDoc.all
        For i = 1 To .length - 1
          If (TypeOf .Item(i) Is HTMLAnchorElement) Then
         If .Item(i).nodeName = "INPUT" Then
             Select Case .Item(i).Name
                Case "address"
                   .Item(i).Value = txt01.Value
                Case "submit"
                  .Item(i).Click
                  Exit Sub
              End Select
          End If
      End If
    Next
  End With
End If

End Sub
　

　

ここに掲載された情報を使用したことによって発生した、いかなる損害に対しても
管理者であるしゃくは一切責任を負いません。