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 | + | Public Sub Webview1_Finish() <FONT Color=gray>' ''Questo Evento viene sollevato quando la pagina web sarà stata caricata in "WebView"''</font> |
− | + | Dim dw As DesktopWindow | |
− | + | Dim pc As Picture | |
− | <FONT Color=gray>' '' | + | <FONT Color=gray>' ''Crea un Oggetto "DesktopWindow" che punta all'Oggetto "WebView":''</font> ' <SUP>[[[#Note|<B>nota 1</b>]]]</sup> |
− | With | + | With dw = New DesktopWindow(WebView1.Handle) |
− | + | <FONT Color=gray>' ''Esegue una schermata del contenuto corrente dell'Oggetto "WebView", generandone un'immagine di tipo "Picture":''</font> | |
− | + | pc = .GetScreenshot(True) | |
− | |||
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.