Tenho um código em VB 2008 com utilização do webBrowser. Antes de chamá-lo gravo um htm contendo linhas de uma chamada em JavaScript, o que roda perfeitamente se acessar fora do VB, mas quando rodo no VB da o seguinte erro: Constante de sequencia não finalizada. Já entendi o erro, mas não localizo, pois funciona fora do VB. Segue o código:
Dim w As StreamWriter = File.CreateText("mapas.htm")
w.WriteLine("<html>")
w.WriteLine("<head>")
w.WriteLine("<title></title>")
w.WriteLine("<style type='text/css'>")
w.WriteLine("html, body, #map_canvas {")
w.WriteLine(" margin: 0;")
w.WriteLine(" padding: 0;")
w.WriteLine(" width: 250;")
w.WriteLine(" height: 200;")
w.WriteLine(" }")
w.WriteLine("</style>")
w.WriteLine("<script type='text/javascript' src='https://maps.googleapis.com/maps/api/js?sensor=false'></script>")
w.WriteLine("<script type='text/javascript'>")
w.WriteLine("var map;")
w.WriteLine("function initialize() {")
w.WriteLine("var myOptions = {")
w.WriteLine(" zoom: " + Str(Trim(Me.numMapa.Value)) + ",")
w.WriteLine(" disableDefaultUI: true,")
w.WriteLine(" center: new google.maps.LatLng(" + vAx + "," + vBx + "),")
w.WriteLine(" mapTypeId: google.maps.MapTypeId." + Me.cboTipoMapa.AutoCompleteCustomSource.Item(Me.cboTipoMapa.SelectedIndex))
w.WriteLine("};")
w.WriteLine("map = new google.maps.Map(document.getElementById('map_canvas'), myOptions);")
w.WriteLine("var imageA = new google.maps.MarkerImage('Images/airplaneNew.png', new google.maps.Size(68, 68));")
w.WriteLine("var myLatlngA = new google.maps.LatLng(" + vAx + "," + vBx + ");")
w.WriteLine("var markerA = new google.maps.Marker({") 'aqui está o erro que só aparece na chamada do webBrowser
w.WriteLine(" position: myLatlngA,")
w.WriteLine(" map: map,")
w.WriteLine(" icon: imageA")
w.WriteLine("});") 'fim do erro - se colocar rem nessas linhas roda, mas...
'
w.WriteLine("}")
w.WriteLine("google.maps.event.addDomListener(window, 'load', initialize);")
w.WriteLine("</script>")
w.WriteLine("</head>")
w.WriteLine("<body>")
w.WriteLine("<div id='map_canvas'></div>")
w.WriteLine("</body>")
w.WriteLine("</html>")
w.Close()
Me.WebBrowser1.Navigate(CurDir() + "\mapas.htm") ' mas, so aparece quando chega aqui
Pergunta
PJRH
Ola todos,
Tenho um código em VB 2008 com utilização do webBrowser. Antes de chamá-lo gravo um htm contendo linhas de uma chamada em JavaScript, o que roda perfeitamente se acessar fora do VB, mas quando rodo no VB da o seguinte erro: Constante de sequencia não finalizada. Já entendi o erro, mas não localizo, pois funciona fora do VB. Segue o código:
Dim w As StreamWriter = File.CreateText("mapas.htm") w.WriteLine("<html>") w.WriteLine("<head>") w.WriteLine("<title></title>") w.WriteLine("<style type='text/css'>") w.WriteLine("html, body, #map_canvas {") w.WriteLine(" margin: 0;") w.WriteLine(" padding: 0;") w.WriteLine(" width: 250;") w.WriteLine(" height: 200;") w.WriteLine(" }") w.WriteLine("</style>") w.WriteLine("<script type='text/javascript' src='https://maps.googleapis.com/maps/api/js?sensor=false'></script>") w.WriteLine("<script type='text/javascript'>") w.WriteLine("var map;") w.WriteLine("function initialize() {") w.WriteLine("var myOptions = {") w.WriteLine(" zoom: " + Str(Trim(Me.numMapa.Value)) + ",") w.WriteLine(" disableDefaultUI: true,") w.WriteLine(" center: new google.maps.LatLng(" + vAx + "," + vBx + "),") w.WriteLine(" mapTypeId: google.maps.MapTypeId." + Me.cboTipoMapa.AutoCompleteCustomSource.Item(Me.cboTipoMapa.SelectedIndex)) w.WriteLine("};") w.WriteLine("map = new google.maps.Map(document.getElementById('map_canvas'), myOptions);") w.WriteLine("var imageA = new google.maps.MarkerImage('Images/airplaneNew.png', new google.maps.Size(68, 68));") w.WriteLine("var myLatlngA = new google.maps.LatLng(" + vAx + "," + vBx + ");") w.WriteLine("var markerA = new google.maps.Marker({") 'aqui está o erro que só aparece na chamada do webBrowser w.WriteLine(" position: myLatlngA,") w.WriteLine(" map: map,") w.WriteLine(" icon: imageA") w.WriteLine("});") 'fim do erro - se colocar rem nessas linhas roda, mas... ' w.WriteLine("}") w.WriteLine("google.maps.event.addDomListener(window, 'load', initialize);") w.WriteLine("</script>") w.WriteLine("</head>") w.WriteLine("<body>") w.WriteLine("<div id='map_canvas'></div>") w.WriteLine("</body>") w.WriteLine("</html>") w.Close() Me.WebBrowser1.Navigate(CurDir() + "\mapas.htm") ' mas, so aparece quando chega aquiAbraços
Editado por kuroiAdicionar tag CODE
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.