Differenze tra le versioni di "Ottenere la URL corrente di una pagina web mostrata dall'oggetto WebView"
Riga 10: | Riga 10: | ||
− | + | Public Sub Form_Open() | |
With Me | With Me | ||
Riga 27: | Riga 27: | ||
End With | End With | ||
− | + | End | |
− | + | Public Sub WebView1<FONT Color=#B22222>_Title()</font> | |
Dim ss As String[] | Dim ss As String[] | ||
<FONT Color=gray>' ''Scinde la stringa della URL corrente nei suoi valori contenuti:''</font> | <FONT Color=gray>' ''Scinde la stringa della URL corrente nei suoi valori contenuti:''</font> | ||
− | ss = Scan(WebView1 | + | ss = Scan(WebView1.Url, "*#*,*,*") |
<FONT Color=gray>' ''Modifica alcune proprietà dei caratteri del menu:''</font> | <FONT Color=gray>' ''Modifica alcune proprietà dei caratteri del menu:''</font> | ||
Riga 46: | Riga 46: | ||
menu1.Caption = "Lat. " & ss[1] & " Lon. " & ss[2] & " zoom: " & ss[3] | menu1.Caption = "Lat. " & ss[1] & " Lon. " & ss[2] & " zoom: " & ss[3] | ||
− | + | End |
Versione attuale delle 06:54, 20 gen 2024
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