C# / VB.NET - [VB .NET]salvare label come immagine

Forum - C# / VB.NET - [VB .NET]salvare label come immagine - Pagina 2

Pagine: [ 1 2 ]

Gianluca87 (Ex-Member)
Expert

Messaggi: 300
Iscritto: 16/11/2008

Postato alle 23:42
Mercoledì, 03/02/2010

Testo quotato

Postato originariamente da Alfonso:

E fare una cattura dello schermo limitata alle coordinate della label?

che schifo...
tanto vale che prendi una macchina fotografica... fai la foto e la porti a sviluppare..poi la scannerizzi, la salvi come file e la importi dentro .net

Rikisonny (Ex-Member)
Rookie

Messaggi: 59
Iscritto: 07/11/2007

Postato alle 23:56
Mercoledì, 03/02/2010

Avevo già pensato alla cattura dello schermo e ero anche riuscito a farla... Pero metto le coordinate del label nello schermo non nella form... Quidi basta spostarla che non funziona già più questo modo... Bisognerebbe limitare la cattura dello schermo solo al form dare delle coordinate al form da 0,0 e a quel punto impostare le coordinate del label che appaiono nelle proprietà... Pero non sono capace...

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 0:14
Giovedì, 04/02/2010

Forse capisci meglio con tutto il progetto.
La seconda form è solo per mostrarti a video quale sarebbe il risultato.

Puoi naturalmente mettere tutto in un modulo togliendo i riferimenti alla picturebox.

Alfonso ha allegato un file: WindowsApplication2.zip (110082 bytes)
Clicca qui per scaricare il file

Rikisonny (Ex-Member)
Rookie

Messaggi: 59
Iscritto: 07/11/2007

Postato alle 15:07
Giovedì, 04/02/2010

Testo quotato

Postato originariamente da Alfonso:

Per provare mettere una PictureBox nella Form1

Codice sorgente - presumibilmente VB.NET

Public Class Form1
 
    <System.Runtime.InteropServices.DllImportAttribute("gdi32.dll")> _
     Private Shared Function BitBlt(ByVal hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, ByVal dwRop As 
System.Int32) As Boolean
    End Function
 
    Public Sub Cattura(ByVal Fr As Form, ByVal Ctrl As Control)
 
        Me.Show()
        Dim g1 As Graphics = Fr.CreateGraphics()
        Dim MyImage As New Bitmap(Ctrl.Width, Ctrl.Height, g1)
        Dim g2 As Graphics = Graphics.FromImage(MyImage)
        Dim dc1 As IntPtr = g1.GetHdc()
        Dim dc2 As IntPtr = g2.GetHdc()
        BitBlt(dc2, 0, 0, Ctrl.Width, Ctrl.Height, dc1, Ctrl.Left, Ctrl.Top, 13369376)
        g1.ReleaseHdc(dc1)
        g2.ReleaseHdc(dc2)
        PictureBox2.Image = MyImage
        MyImage.Save("d:\Catturato.bmp", Imaging.ImageFormat.Bmp) 
 
    End Sub
End Class

Codice per richiamare la cattura:

Form1.Cattura(Me, Label1)

wow funziona!! a parte che il messaggio è stato tagliato lateralmente quindi venivano errori nella function BitBlt l'ultimo as poi dovevano essere collegate le cose ma non importa e la picturebox era la 1 ma cmq sono cose che modifico io per il resto il codice va grazie milleeee!!

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 15:12
Giovedì, 04/02/2010

In effetti quel Me.show messo all'inizio della routine, rompe un po' se la form si apre sopra quella dove è presente la label.
Messo in fondo non da più problemi.

Rikisonny (Ex-Member)
Rookie

Messaggi: 59
Iscritto: 07/11/2007

Postato alle 15:21
Giovedì, 04/02/2010

Io lo ho proprio tolto me.show e va lo stesso avendo solo la form 1... Anche form1.cattura ho tolto form1....

Pagine: [ 1 2 ]