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

Da Gambas-it.org - Wikipedia.
Riga 19: Riga 19:
 
   
 
   
 
   
 
   
−
  Public Sub Webview1_Load()  <FONT Color=gray>' ''Questo Evento viene sollevato quando la pagina web sarà stata caricata in "WebView"''</font>
+
  Public Sub Webview1_Finish()  <FONT Color=gray>' ''Questo Evento viene sollevato quando la pagina web sarà stata caricata in "WebView"''</font>
 
    
 
    
−
<FONT Color=gray>' ''Crea l'Oggetto "Image" base:''</font>
+
  Dim dw As DesktopWindow
−
   im = New Image(WebView1.W, WebView1.H, Color.White, Image.Standard)
+
   Dim pc As Picture
 
    
 
    
−
  <FONT Color=gray>' ''Disegna nell'immagine base quanto mostrato nella pagina web caricata:''</font>
+
  <FONT Color=gray>' ''Crea un Oggetto "DesktopWindow" che punta all'Oggetto "WebView":''</font> ' <SUP>&#091;[[#Note|<B>nota 1</b>]]&#093;</sup>
−
   With Paint
+
   With dw = New DesktopWindow(WebView1.Handle)
−
  .Begin(im)
+
<FONT Color=gray>' ''Esegue una schermata del contenuto corrente dell'Oggetto "WebView", generandone un'immagine di tipo "Picture":''</font>
−
  <FONT Color=#B22222>WebView1.Document.Paint()</font>
+
    pc = .GetScreenshot(True)
−
  .End
 
 
   End With
 
   End With
−
 
+
 +
  im = pc.Image
 +
 
  End
 
  End
 
   
 
   
Riga 43: Riga 44:
 
   
 
   
 
  End
 
  End
 +
 +
 +
 +
==
 +
[1] In alternativa si possono adottare le altre modalità esposte in questa pagina: [[Ottenere l'immagine di una pagina web]].

Versione delle 19:11, 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


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

Estratto da "https://www.gambas-it.org/wiki/index.php?title=Ottenere_il_valore_del_colore_di_un_pixel_di_una_pagina_web_aperta_con_l%27Oggetto_WebView&oldid=36384"