Italian Visualizzare google Maps

[Nikeddy]

Salve a tutti,

io ho un db che per ogni macchina c'e' un indirizzo in formato testo.

vorrei che il sistema prenda dal db il campo indirizzo e faccia uscire una stringa con su Roma Via della stazione 45 e faccia una ricerca su Google maps.
con vb6 avevo fatto cosi:

Const URL_BASE As String = _
    "http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"

Dim addr As String
Dim url As String

    ' A very simple URL encoding.
    addr = txtAddress.Text
    addr = Replace$(addr, " ", "+")
    addr = Replace$(addr, ",", "%2c")

    ' Insert the encoded address into the base URL.
    url = Replace$(URL_BASE, "@ADDR@", addr)

    ' Insert the proper type.
    Select Case cboGoogle.Text
        Case "Map"
            url = Replace$(url, "@TYPE@", "m")
        Case "Satellite"
            url = Replace$(url, "@TYPE@", "h")
        Case "Terrain"
            url = Replace$(url, "@TYPE@", "p")
    End Select

    ' "Execute" the URL to make the default browser display
    ' it.
    ShellExecute ByVal 0&, "open", url, _
        vbNullString, vbNullString, SW_SHOWMAXIMIZED
      Unload Me

come faccio ora con b4a?

 

[MarcoRome]

Guarda per Google Maps QUI

 

[Nikeddy]

li e' proprio una app, a me interessa anche semplicemente che mi visualizzi solo gmaps e faccia la ricerca, non c'e' qualcosa di piu' facile?

 

[MarcoRome]

Puoi caricare il tutto in una WebView...tipo:

webview1.LoadUrl("http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"")

 

[Nikeddy]

esatto!

posso passargli una stringa?

 

[MarcoRome]

esatto!

posso passargli una stringa?

Cetrto che si...vedi documentazione: WebView

 

[Nikeddy]

ho provato a mettere un panel e sopra la webview

e ho inserito

Sub cmd_map_Click
    panel4.Visible=True
    webview1.LoadUrl("http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"")
End Sub

mi da errore...
Occurred on line: 216 (Main)
webview1.LoadUrl("http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"")

 

[MarcoRome]

ho provato a mettere un panel e sopra la webview

e ho inserito

Sub cmd_map_Click
    panel4.Visible=True
    webview1.LoadUrl("http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"")
End Sub

mi da errore...
Occurred on line: 216 (Main)
webview1.LoadUrl("http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"")

Nike a parte il fatto che hai passato ADDR etc...non come variabili valorizzate ma come stringhe pure.... guardati qualche esempio della documentazione che ti ho inviato prima.
soprattutto vedi con un esempio semplice se ti da qualche errore.
Quando riporti un errore ..riportalo completo ( vedi finestra log o finestra compilatore )

 

[zakker]

c'è un doppio apice di troppo alla fine (?)

 

[MarcoRome]

c'è un doppio apice di troppo alla fine (?)

Si ma anche togliendo i doppi apici ( che ovviamente è un errore e proprio la stringa importata nel complesso che è errata.
Del tipo in VB valorizzavi le stringhe @ADDR...etc. stessa cosa devi fare qui.
quindi se ti vedi qualche esempio base .... è meglio

 

[Nikeddy]

tecnicamente funziona

cmd_map_Click
    panel4.Visible=True
    Panel3.Visible= False
    Panel2.Visible= False
   
    Dim addr As String
    Dim url As String
    Dim url2 As String
    addr = lbl_indirizzo.Text
    url = "https://www.google.com/maps?f=q&hl=en&geocode&time&date&ttype&q=@"
    url2 = "@&ie=UTF8&t=@TYPE@"
    webview1.LoadUrl(url & addr & "Roma" & url2)