Versione attuale delle 19:12, 20 gen 2024

Per ottenere il valore numerico del colore di un pixel, individuato con il mouse, di una pagina web aperta con l'Oggetto WebView, si potrà utilizzare il il Metodo ".Document.Paint()" della Classe "WebView".

Private WebView1 As WebView
Private im As Image


Public Sub _new()
 
 Me.Arrangement = Arrange.Fill
 WebView1 = New WebView(Me) As "Webview1"

End


Public Sub Form_Open()

 WebView1.Url = "https://www.gambas-it.org/smf/"

End


Public Sub Webview1_Finish()   ' Questo Evento viene sollevato quando la pagina web sarà stata caricata in "WebView"
 
 Dim dw As DesktopWindow
 Dim pc As Picture
 
' Crea un Oggetto "DesktopWindow" che punta all'Oggetto "WebView":  [nota 1]
 With dw = New DesktopWindow(WebView1.Handle)
' Esegue una schermata del contenuto corrente dell'Oggetto "WebView", generandone un'immagine di tipo "Picture":
   pc = .GetScreenshot(True)
 End With

 im = pc.Image

End


Public Sub WebView1_MouseUp()

 Dim i As Integer

' Individua il colore del pixel presente nella "Image" ottenuta dalla pagina web caricata:
 i = im[Mouse.X, Mouse.Y]
 Print Hex(i, 6)

End

Note

[1] In alternativa si possono adottare le altre modalità esposte in questa pagina: Ottenere l'immagine di una pagina web.