vb WebBrowser 调用 html function 函数问题
新点燃 2015-10-10 04:34:26 WebBrowser1.Document.parentWindow.execScript "addPointPoint(" & Text1 & "," & Text2 & "," & Text3 & ")"
上面这条VB语句,Text3参数为什么不能是 字母呢,是字母或汉字就报错,说“字母”未定义
下面是html程序片段 大致讲的是调用百度地图API
<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="viewport" content="initial-scale=1.0, user-scalable=no" />
<style type="text/css">
body, html {width: 100%;height: 100%;margin:0;font-family:"微软雅黑";}
#allmap{width:100%;height:100%;}
</style>
<script type="text/javascript" src="http://api.map.baidu.com/api?v=2.0&ak=5c1f4f79ca8d1d4a7d46dbd805b9c492"></script>
<title>"从多个点删除指定点"</title>
</head>
<body>
<div id="allmap"></div>
</body>
</html>
<script type="text/javascript">
var map = new BMap.Map("allmap");
var point = new BMap.Point(116.404, 39.915);
map.centerAndZoom(point, 15);
map.disableDoubleClickZoom(true);
map.addControl(new BMap.MapTypeControl()); //添加地图类型控件
map.addControl(new BMap.OverviewMapControl()); //添加缩略地图控件
map.addControl(new BMap.NavigationControl()); // 添加平移缩放控件
map.addControl(new BMap.ScaleControl()); // 添加比例尺控件
// 编写自定义函数,创建标注
function addMarker(point,label){
var marker = new BMap.Marker(point);
map.addOverlay(marker);
marker.setLabel(label);
}
// 编写自定义函数,创建标注 jgps,wgps
function addPointPoint(jgps,wgps,string1){
var point = new BMap.Point(jgps,wgps);
var label = new BMap.Label(string1,{offset:new BMap.Size(20,-10)});
addMarker(point,label);
map.centerAndZoom(point, 15);
}