Differenze tra le versioni di "Ottenere il valore del colore di un pixel di una pagina web aperta con l'Oggetto WebView"

Versione delle 05:42, 12 nov 2023

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_Load()   ' Questo Evento viene sollevato quando la pagina web sarà stata caricata in "WebView"
 
' Crea l'Oggetto "Image" base:
 im = New Image(WebView1.W, WebView1.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 nella "Image" ottenuta dalla pagina web caricata:
 i = im[Mouse.X, Mouse.Y]
 Print Hex(i, 6)

End