Elemente in Panel zum Bild erzeugen und speichern.

  • VB.NET

Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von Gonger96.

    Elemente in Panel zum Bild erzeugen und speichern.

    Folgendes, ich habe ein Programm erstellt welches ein Bild in Bild grafisch erstellt. Dies ist in einem Panel und besteht aus etwa 60 Pictureboxen und etwa 30 Labels. Somit kann man das "Bild in Bild" individuell anzeigen lassen. Jedoch müsste man dann ein Screenshot erstellen um an die erzeugte Grafik zu kommen.Gibt es eine möglichkeit der er vom Panel1 ein Bild machen (so wie es in dem Zeitpunkt ist) und man dieses dann abspeichern kann?(format ist egal)

    Ist das so überhaupt möglich?

    Gruß :)

    Allgemein würd ich dir empfehlen mit GDI+ aufne BitMap zu zeichnen, die kannst du ganz simpel speichern und GDI+ bietet dir mehr und es wird sauberer als mit Controls.

    Zur Frage: Du kannst einen Screenshot mit Graphics.FormScreen erzeugen.

    Das mit dem Screenshot lassen wir mal. BitBlt klappt perfekt

    VB.NET-Quellcode

    1. <DllImport("gdi32.dll")> _
    2. Private Shared Function BitBlt(ByVal hdc 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 Integer) As Boolean
    3. End Function
    5. Function GetImageFromControl(ByVal ctr As Control) As Image
    6. Dim rect As Rectangle = ctr.ClientRectangle
    7. Dim bmp As New Bitmap(rect.Width, rect.Height)
    8. Dim gbmp As Graphics = Graphics.FromImage(bmp)
    9. Dim hdcBmp As IntPtr = gbmp.GetHdc
    10. Dim gMe As Graphics = ctr.CreateGraphics
    11. Dim hdcMe As IntPtr = gMe.GetHdc
    12. BitBlt(hdcBmp, 0, 0, rect.Width, rect.Height, hdcMe, 0, 0, &Hcc0020)
    13. gbmp.ReleaseHdc(hdcBmp)
    14. gMe.ReleaseHdc(hdcMe)
    15. Return bmp
    16. End Function

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gonger96“ ()

    @lulu297: Aus welchem Grund zitierst Du immer die Beiträge über Dir? Das ist hier im Forum nicht gewünscht.
    Sieh Dir mal dies an:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class Form1
    4. <StructLayout(LayoutKind.Sequential)>
    5. Public Structure POINTAPI
    6. Public x As Integer
    7. Public y As Integer
    8. End Structure
    9. <DllImport("user32.dll")> _
    10. Public Shared Function ClientToScreen(ByVal hWnd As IntPtr, ByRef pt As POINTAPI) As Integer
    11. End Function
    13. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    14. Dim bmp As New Bitmap(Me.Width, Me.Height)
    15. Dim g As Graphics = Graphics.FromImage(bmp)
    17. Dim dx As Integer = (Me.Width - Me.ClientRectangle.Width) \ 2
    18. Dim dy As Integer = Me.Height - Me.ClientRectangle.Height - dx
    20. Dim pt As POINTAPI
    21. pt.x -= dx ' -Rand-Breite
    22. pt.y -= dy ' -Titelzeilen-Höhe
    23. ClientToScreen(Me.Handle, pt)
    24. g.CopyFromScreen(pt.X, pt.Y, 0, 0, Me.Size)
    25. g.Dispose()
    26. bmp.Save("c:\Temp\Shot.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
    27. End Sub
    28. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Mit Speicherfunktion...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. Dim savefiledialog1 As New SaveFileDialog
    3. Try
    4. savefiledialog1.Title = "Save Captured Image"
    5. savefiledialog1.FileName = "Screenshot Image 1"
    6. savefiledialog1.Filter = "All Type Of Image Files|*.*|Joint Photographic Experts Group [JPEG]|*.jpg|Bitmap [BMP|*.bmp|Tagged Image File Format [TIFF]|*.tiff|Portable Network Graphics [PNG]|*.png"
    7. If savefiledialog1.ShowDialog() = DialogResult.OK Then
    8. PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
    9. End If
    10. Catch ex As Exception
    11. End Try
    12. End Sub
    14. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    15. Dim bounds As Rectangle
    16. Dim screenshot As System.Drawing.Bitmap
    17. Dim graph As Graphics
    18. bounds = Screen.PrimaryScreen.Bounds
    19. screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
    20. graph = Graphics.FromImage(screenshot)
    21. graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
    22. PictureBox1.Image = screenshot
    23. End Sub


    Mfg.eniking1998

    Das hätte einen Nachteil, wenn beim speichern eine Form über seiner ist, dann ist der Screenshot unnütz. Was ist denn an meinem Beispiel auszusetzen ?

    VB.NET-Quellcode

    1. PictureBox100.Image = GetImageFromControl(Panel1)


    Ganz simpel ^^

    Ich hab kein FaceBook : O...

    ^^+...

    Naja 77 PictureBoxen sind so gar nicht OOP..

    EDIT:

    VB.NET-Quellcode

    1. Dim x As Bitmap
    4. x = Panel1.BackgroundImage
    6. Dim savefiledialog1 As New SaveFileDialog
    7. Try
    8. savefiledialog1.Title = "Save Captured Image"
    9. savefiledialog1.FileName = "Screenshot Image 1"
    10. savefiledialog1.Filter = "All Type Of Image Files|*.*|Joint Photographic Experts Group [JPEG]|*.jpg|Bitmap [BMP|*.bmp|Tagged Image File Format [TIFF]|*.tiff|Portable Network Graphics [PNG]|*.png"
    11. If savefiledialog1.ShowDialog() = DialogResult.OK Then
    12. x.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
    13. End If
    14. Catch ex As Exception
    15. End Try


    Meinst Du das?

    !!!

    Mfg.eniking1998

    Gonger96 schrieb:

    Das hätte einen Nachteil, wenn beim speichern eine Form über seiner ist, dann ist der Screenshot unnütz. Was ist denn an meinem Beispiel auszusetzen ?

    VB.NET-Quellcode

    1. PictureBox100.Image = GetImageFromControl(Panel1)


    Ganz simpel ^^


    Musst doch nur abändern

    VB.NET-Quellcode

    1. GetImageFromControl(Panel1).Save("Pfad")

    Spoiler anzeigen

    "Gonger96" schrieb:

    VB.NET-Quellcode

    1. <DllImport("gdi32.dll")> _
    2. Private Shared Function BitBlt(ByVal hdc 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 Integer) As Boolean
    3. End Function
    5. Function GetImageFromControl(ByVal ctr As Control) As Image
    6. Dim rect As Rectangle = ctr.ClientRectangle
    7. Dim bmp As New Bitmap(rect.Width, rect.Height)
    8. Dim gbmp As Graphics = Graphics.FromImage(bmp)
    9. Dim hdcBmp As IntPtr = gbmp.GetHdc
    10. Dim gMe As Graphics = ctr.CreateGraphics
    11. Dim hdcMe As IntPtr = gMe.GetHdc
    12. BitBlt(hdcBmp, 0, 0, rect.Width, rect.Height, hdcMe, 0, 0, &Hcc0020)
    13. gbmp.ReleaseHdc(hdcBmp)
    14. gMe.ReleaseHdc(hdcMe)
    15. Return bmp
    16. End Function

    Ich habs doch grad gepostet ;(

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gonger96“ ()

    Du musst die Funktion kopieren und dann in deine Klasse einfügen

    So hier ein Beispielprojekt, wenn dus dann nicht schaffst eine Funktion zu kopieren, kann ich nicht mehr helfen
    Dateien

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Gonger96“ ()

Facebook
Telefonspende