Differenze tra le versioni di "Ottenere la URL corrente di una pagina web mostrata dall'oggetto WebView"
(Creata pagina con "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 vis...") |
|||
(Una versione intermedia di uno stesso utente non è mostrata) | |||
Riga 3: | Riga 3: | ||
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. | 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 " | + | 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''": | Mostriamo un esempio pratico con il sito "''satellites.pro''": | ||
Riga 10: | Riga 10: | ||
− | + | Public Sub Form_Open() | |
With Me | With Me | ||
Riga 17: | Riga 17: | ||
End With | End With | ||
− | + | Menu1 = New Menu(Me) | |
− | With WebView1 = New WebView As "WebView1" | + | With WebView1 = New WebView(Me) As "WebView1" |
.X = 0 | .X = 0 | ||
.Y = 0 | .Y = 0 | ||
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