Visual Basic.NET - mapa

   
Vista:
Imágen de perfil de Francisco

mapa

Publicado por Francisco (162 intervenciones) el 04/12/2009 13:49:07
Imports System.IO

Public Class Form1
Dim directorio As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
directorio = "c:\anselmo"

Dim carpeta As String
Dim direccion, httpdireccion, szcadenasalida, codpostal, localidad, provincia As String
Dim ancho, alto As Integer
direccion = "marques de bellet"
provincia = "valencia"
localidad = "valencia"

Dim LECTOR As StreamReader
Dim writfich As StreamWriter
carpeta = directorio & "\archivo.html"
Direccion = Replace(Direccion, ".", " ")
Direccion = Replace(Direccion, "Nº", "")
Direccion = Replace(Direccion, "º", "")
Direccion = Replace(Direccion, " ", "+")
Dim lee As String
httpDireccion = Direccion & ",+" & CodPostal & ",+" & Replace(Localidad, " ", "+") & ",+" & Provincia
'szCadenaSalida = "<iframe width='" & Ancho & "' height='" & Alto & "' frameborder='0' scrolling='no' marginheight='0' marginwidth='0'"
szCadenaSalida = szCadenaSalida & "src='http://maps.google.es/maps?f=q&source=s_q&hl=es&geocode=&q="
szCadenaSalida = szCadenaSalida & httpDireccion
szCadenaSalida = szCadenaSalida & "&output=embed'></iframe>"

If Directory.Exists(directorio) Then
MsgBox("el directorio existe")
Else
Directory.CreateDirectory(directorio)
MsgBox("directorio creado")
End If

If File.Exists(carpeta) Then
MsgBox("la carpeta existe")
Else
MsgBox(" la carpeta no existe se creara")
File.Create(carpeta)
End If

writfich = New StreamWriter(carpeta)
writfich.WriteLine(szcadenasalida)
writfich.Close()

'LEE
LECTOR = New StreamReader(carpeta)
lee = LECTOR.ReadToEnd
MsgBox(lee)

LECTOR.Close()
WebBrowser1.Navigate(lee)


he convertido la direccion que quiero buscar en el mapa en un archivo.html luego lo abro y lo cargo en el webbroiserr pero no funciona que debo hacer
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder