Ottenere la URL corrente di una pagina web mostrata dall'oggetto WebView

In taluni particolari casi la URL corrente di una pagina può modificarsi sotto la nostra azione con il mouse sulla pagina medesima.

Un caso è quello di vari portali che visualizzano mappe georeferenziate: essi mostrano nell'apposito spazio del browser non solo l'indirizzo base della pagina, ma anche le coordinate geografiche (latitudine e longitudine), nonché il livello di zoom, di una mappa. Tali valori ovviamente varieranno, se verrà effettuato con il mouse lo spostamento della mappa o la modifica del livello di zoom; cosicché i nuovi valori saranno mostrati nello spazio del browser come parte dell'intera URL della pagina/mappa in quel momento visualizzata.

Per ottenere con il codice la corrente URL con quei valori (eventualmente cambiati/aggiornati), bisognerà utilizzare l'Evento "_Title()" dell'Oggetto MapView.

Mostriamo un esempio pratico con il sito "satellites.pro":

Private WebView1 As WebView
Private menu1 As Menu


Public Sub Form_Open()
 
 With Me
   .W = Screen.AvailableWidth
   .H = Screen.AvailableHeight
 End With
 
 Menu1 = New Menu(Me)
 
 With WebView1 = New WebView(Me) As "WebView1"
   .X = 0
   .Y = 0
   .W = Me.W - (Me.w * 0.05)
   .H = Me.H
   .Url = "https://satellites.pro/Italy_map#41.890138,12.492185,13"
 End With
 
End
 
 
Public Sub WebView1_Title()
 
 Dim ss As String[]
 
' Scinde la stringa della URL corrente nei suoi valori contenuti:
 ss = Scan(WebView1.Url, "*#*,*,*")
 
' Modifica alcune proprietà dei caratteri del menu:
 With Me.Font
   .Bold = True
   .Size = 10
 End With
 
' Utilizza il Menu per mostrare le correnti coordinate geografiche e il livello dello zoom:
 menu1.Caption = "Lat. " & ss[1] & "  Lon. " & ss[2] & "  zoom: " & ss[3]
 
End