由神秘到简单教你在网页中添加微软地图_Web开发_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

由神秘到简单教你在网页中添加微软地图

作者：闵涛文章来源：闵涛的学习笔记点击数：2729 更新时间：2009/4/23 11:26:09

　el.style.zIndex=31;
　el.style.width = 93;
　el.style.height = 91;

　VE_Compass.element=el;

　document.body.appendChild(el);
}

function OnPageLoad()
{
　CreateCompass();

　map = new VE_MapControl(32.69, -117.13, 12, ’r’, "absolute", 10, 100, 700, 500);
　document.body.appendChild(map.element);

　var updateInfo = function(e)
　{
　　document.getElementById("info").innerHTML =
　　　’Latitude = ’ + e.latitude +
　　　’, Longitude = ’ + e.longitude +
　　　’, Zoom=’ + e.zoomLevel;
　}

　map.onEndContinuousPan = updateInfo;
　map.onEndZoom = updateInfo;

　map.onMouseClick = function(e)
　{
　　map.RemovePushpin(’pin’);
　　map.AddPushpin(’pin’, e.latitude, e.longitude, 88, 34, ’pin’, ’MyPin’);
　}

　PositionElement(document.getElementById("VE_MapScale"), 300, 550, 150, 18);
　UpdateMapScale();

　var zm = VE_ZoomControl.Create(5,550,9,"absolute");
　document.body.appendChild(zm);

　windowWidth=700;
　windowHeight=500;

　VE_Scratchpad.Add=function()
　{
　　VE_Scratchpad.AddLocation("Point",map.GetCenterLatitude(),map.GetCenterLongitude(),"my added point","LOC");
　}

　VE_Scratchpad.Email=function()
　{
　　var body="";
　　var urlprefix=GetUrlPrefix();
　　var first=true;
　　var ids="";
　　var e=VE_Scratchpad.entities;
　　if(e==null||e.length==0)
　　{
　　　alert("Nothing to send!");
　　　return;
　　}

　　var lengthToSend=Math.min(MaxScratchpadItemsToSend,e.length);
　　for(var i=0;i＜lengthToSend;i++)
　　{
　　　var escapedID=escape(e[i].GetSerializedId());
　　　if(!escapedID) {continue;}
　　　body+=escape(e[i].name+"\n"+e[i].description+"\n\n");
　　　if(!first) { ids+=","; }
　　　ids+=escapedID;
　　　first=false;
　　}

　　var allids=escape("Virtual Earth Scratch Pad from Dr. Neil\n" + urlprefix + "\n\n");
　　window.open(’mailto:?subject=My%20Virtual%20Earth%20Scratch%20Pad&body=’ + allids + body);
　}

　VE_Scratchpad._GetToolbar=function()
　{
　　var html="＜table cellpadding=\"0\" cellspacing=\"0\" ";
　　html+="border=\"0\" align=\"left\"＞";
　　html+="＜tr＞＜td valign=\"top\" align=\"center\"＞";
　　html+="＜a href=\"javascript:VE_Scratchpad.Clear();\" ";
　　html+="oncontextmenu=\"return false;\"＞Clear Pad＜/a＞ | ";
　　html+="＜a href=\"javascript:VE_Scratchpad.Email();\" ";
　　html+="oncontextmenu=\"return false;\"＞Email this...＜/a＞ ";
　　html+="＜/td＞＜/tr＞＜tr＞＜td＞＜/td＞＜/tr＞＜/table＞";
　　return html;
　}

　VE_Scratchpad._introText="Your scratchpad is empty.";
　VE_Scratchpad.CreatePanel();
　VE_Scratchpad.Show();
}

function ChangeMapStyle()
{
　var Aerial = document.getElementById("AerialStyleCheck");
　var Vector = document.getElementById("VectorStyleCheck");
　var s = ’r’;
　if (Aerial.checked && Vector.checked)
　{
　　s = ’h’;
　}
　else if (Aerial.checked)
　{
　　s = ’a’;
　}
　map.SetMapStyle(s);
}

function DoPanUp() { map.ContinuousPan(0, -10, 20); }
function DoPanDown() { map.ContinuousPan(0, 10, 20); }
function DoPanLeft() { map.ContinuousPan(-10, 0, 20); }
function DoPanRight() { map.ContinuousPan(10, 0, 20); }

function DoZoomIn() { map.ZoomIn(); }
function DoZoomOut() { map.ZoomOut(); }

function DoFind()
{
　var where = document.getElementById("WhereText").value;
　var a="";
　var b=escape(where);
　var c=map.GetLatitude(0);
　var d=map.GetLongitude(windowWidth);
　var e=map.GetLatitude(windowHeight);
　var f=map.GetLongitude(0);
　var g="";
　var i="";
　var r=0;
　var 　url="http://virtualearth.msn.com/search.aspx"+"?a="+a+"&b="+b+"&c="+c+"&d="+d+"&e="+e+"&f="+f+"&g="+g+"&i="+i+"&r="+r;

　if(!VE_SearchManager.xmlHttp)
　{
　　VE_SearchManager.xmlHttp=GetXmlHttp();
　}

　var xmlHttp=VE_SearchManager.xmlHttp;
　if(xmlHttp)
　{
　　xmlHttp.open("POST",url,true);
　　xmlHttp.onreadystatechange=FindResponseHandler;
　　VE_SearchManager.searching=true;
　　xmlHttp.send("");
　}
}

FindResponseHandler=function()
{
　var x = VE_SearchManager.xmlHttp;
　if(x.readyState==4)
　{
　　VE_SearchManager.searching = false;
　　var code = x.responseText;

　　try
　　{
　　　eval(code);
　　}
　　catch(ex){}

　　VE_Scratchpad.AddLocation(
　　　document.getElementById("WhereText").value,
　　　　map.GetCenterLatitude(),
　　　　map.GetCenterLongitude(), "", "LOC");
　}
}
＜/script＞
＜/head＞
＜body onLoad="OnPageLoad()"＞
＜div id="info" style="font-size:10pt"＞
＜/div＞
＜div id="MapStyle" style="POSITION:absolute;LEFT:470px;TOP:60px"＞
＜input id="VectorStyleCheck" type="checkbox" name="VectorStyleCheck" onclick="ChangeMapStyle()" checked="checked"＞
Street Style
＜input id="AerialStyleCheck" type="checkbox" name="AerialStyleCheck" onclick="ChangeMapStyle()"＞
Aerial Style
＜/div＞

＜input type="button" value="Pan Up" onclick="DoPanUp()" id="PanUpButton" name="PanUpButton" style="position:absolute;left:60px;top:600"/＞

＜input type="button" value="Pan Left" onclick="DoPanLeft()" id="PanLeftButton" name="PanLeftButton" style="position:absolute;left:10px;top:630"/＞

＜input type="button" value="Pan Right" onclick="DoPanRight()" id="PanRightButton" name="PanRightButton" style="position:absolute;left:100px;top:630"/＞

＜input type="button" value="Pan Down" onclick="DoPanDown()" id="PanDownButton" name="PanDownButton" style="position:absolute;left:45px;top:660"/＞

＜input type="button" value="Zoom In" onclick="DoZoomIn()" id="ZoomInButton" name="ZoomInButton" style="position:absolute;left:250px;top:630"/＞
＜input type="button" value="Zoom Out" onclick="DoZoomOut()" id="ZoomOutButton" name="ZoomOutButton" style="position:absolute;left:340px;top:630"/＞

＜table id="VE_MapScale" cellpadding="0" cellspacing="0" unselectable="on"＞
＜tr＞
＜td＞
＜div id="VE_MapScaleLabel" unselectable="on"＞
＜/div＞
＜/td＞
＜/tr＞
＜tr＞
＜td＞
＜div id="VE_MapScaleBar" unselectable="on"＞
＜/div＞
＜/td＞
＜/tr＞
＜/table＞

＜input type="button" value="Find" onclick="DoFind()" id="FindButton" name="FindButton" style="position:absolute;left:10px;top:700"/＞
＜input type="text" name="WhereText" size="20" id="WhereText" style="position:absolute;left:60px;top:700"/＞
＜/body＞
＜/html＞

上一页 [1] [2] [3] [4]

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： AJAX基础教程

下一篇教程： Javascript控制XSlt转换XML

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]