读取循环中列表框的值并放入谷歌地图

时间:2015-05-26 05:08:54

标签: javascript vb.net google-maps listbox

我正在编写某个代码,用于显示谷歌地图的多个标记。我将所有值放在ListBox中并在循环中尝试读取值并将其放在map中。我也写javascript。但是当我通过循环阅读时,会出现一些错误。我正在写windows窗体应用程序。

Dim lat, lon As String
Dim finalstr As String
Dim latlongroup As String
For i As Integer = 0 To ListBox1.Items.Count - 1
    Dim tempstr = ListBox1.Items.Item(i)
    If tempstr <> " " Then
        tempstr = ListBox1.Items(i)
    End If
    latlongroup = "{" & "tempstr:" & tempstr & " }"
    latlongroup = latlongroup & " , " & "{" & "tempstr:" & tempstr & " }"   
    finalstr = tb1.Text & vbCrLf & latlongroup
    finalstr = finalstr & tb2.Text
    Me.WebBrowser1.DocumentText = finalstr
Next

java脚本部分是

       var markers = [

];
window.onload = function () {

var mapOptions = {
    center: new google.maps.LatLng(markers[0].lat, markers[0].lng),
    zoom: 8,
    mapTypeId: google.maps.MapTypeId.ROADMAP
};
var infoWindow = new google.maps.InfoWindow();
var latlngbounds = new google.maps.LatLngBounds();
var map = new google.maps.Map(document.getElementById("dvMap"), mapOptions);
var i = 0;
var interval = setInterval(function () {
    var data = markers[i]
    var myLatlng = new google.maps.LatLng(data.lat, data.lng);
    var icon = "red";
    icon = "http://maps.google.com/mapfiles/ms/icons/" + icon + ".png";
    var marker = new google.maps.Marker({
        position: myLatlng,
        map: map,
        title: data.title,
        animation: google.maps.Animation.DROP,
        icon: new google.maps.MarkerImage(icon)
    });
    (function (marker, data) {
        google.maps.event.addListener(marker, "click", function (e) {
            infoWindow.setContent(data.description);
            infoWindow.open(map, marker);
        });
    })(marker, data);
    latlngbounds.extend(marker.position);
    i++;
    if (i == markers.length) {
        clearInterval(interval);
        var bounds = new google.maps.LatLngBounds();
        map.setCenter(latlngbounds.getCenter());
        map.fitBounds(latlngbounds);
    }
 }, 80);
 }

0 个答案:

没有答案