|
|
| (Una versione intermedia di uno stesso utente non è mostrata) |
| Riga 1: |
Riga 1: |
| − | Per trasformare il contenuto visibile dell'oggetto ''WebView'' in una immagine, bisognerà utilizzare il metodo ''WebView1.Document.Paint()'' .
| + | #REDIRECT [[Ottenere_un'immagine_di_una_pagina_web]] |
| − | | |
| − | | |
| − | Facciamo un esempio pratico, ponendo su un ''Form'' un oggetto ''WebView'' ed una ''PictureBox'', nella quale mostreremo il risultato finale.
| |
| − | Private i As Image
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub Form_Open()
| |
| − |
| |
| − | i = New Image(WebView1.W, WebView1.H)
| |
| − |
| |
| − | <FONT Color=gray>' ''Si specifica il dispositivo sul quale agirà "Paint",''
| |
| − | ' ''poiché poi il metodo ".Document.Paint()" utilizzerà il dispositivo corrente di Paint.''</font>
| |
| − | Paint.Begin(i)
| |
| − |
| |
| − | <FONT Color=gray>' ''Carica una pagina WEB:''</font>
| |
| − | WebView1.Url = "http://www.gambas-it.org/smf/"
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub Button1_Click()
| |
| − |
| |
| − | Dim pc As Picture
| |
| − |
| |
| − |
| |
| − | <FONT Color=#B22222>WebView1.Document.Paint()</font>
| |
| − |
| |
| − | <FONT Color=gray>' ''Trasformiamo l'oggetto "Image" in una "Picture", al fine di poterla mostrare con la "PictureBox".''
| |
| − | ' ''Inoltre, salviamo l'immagine in un file immagine.</font>
| |
| − | With i
| |
| − | pc = .Picture
| |
| − | .Save("/tmp/imm.png", 100)
| |
| − | End With
| |
| − |
| |
| − | <FONT Color=gray>' ''Dimensioniamo la "PictureBox" come la "Image",''
| |
| − | ' ''e carichiamo la "Picture" nella "PictureBox":''</font>
| |
| − | With PictureBox1
| |
| − | .W = i.W
| |
| − | .H = i.H
| |
| − | .Picture = pc
| |
| − | End With
| |
| − |
| |
| − | '''End'''
| |
