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.
(Creata pagina con "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 ".Docum...") |
|||
| Riga 4: | Riga 4: | ||
| − | + | Public Sub _new() | |
Me.Arrangement = Arrange.Fill | Me.Arrangement = Arrange.Fill | ||
WebView1 = New WebView(Me) As "Webview1" | WebView1 = New WebView(Me) As "Webview1" | ||
| − | + | End | |
| − | + | ||
| + | Public Sub Form_Open() | ||
WebView1.Url = "https://www.gambas-it.org/smf/" | WebView1.Url = "https://www.gambas-it.org/smf/" | ||
| − | ''' | + | End |
| + | |||
| + | |||
| + | Public Sub Webv_Load() <FONT Color=gray>' ''Questo Evento viene sollevato quando la pagina web sarà stata caricata in "WebView"''</font> | ||
| − | |||
| − | |||
Dim im As Image | Dim im As Image | ||
| Riga 31: | Riga 33: | ||
End With | End With | ||
| − | + | End | |
| + | |||
| − | + | Public Sub WebView1_MouseUp() | |
Dim i As Integer | Dim i As Integer | ||
| Riga 41: | Riga 44: | ||
Print Hex(i, 6) | Print Hex(i, 6) | ||
| − | + | End | |
Versione delle 05:34, 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 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
