Ottenere il valore del colore di un pixel di una pagina web aperta con l'Oggetto WebView

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 Webv_Load()   ' Questo Evento viene sollevato quando la pagina web sarà stata caricata in "WebView"

 Dim im As Image
 
' Crea l'Oggetto "Image" base:
 im = New Image(wv.W, wv.H, Color.White, Image.Standard)
 
' Disegna nell'immagine base quanto mostrato nella pagina web caricata:
 With Paint
 .Begin(im)
  WebView1.Document.Paint()
 .End
 End With
  
End


Public Sub WebView1_MouseUp()

 Dim i As Integer

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

End