Qualitativ Hochwertige Full-Screenshots VB.Net

Ich versuche, fügen Sie ein feature, um mein Programm zu nehmen, einen vollständigen screenshot des Benutzer-Bildschirm, wenn Sie auf eine Schaltfläche klicken. Ich habe das Programm nehmen Sie den screenshot und öffnen Sie eine Datei im Dialogfeld speichern, das speichern funktioniert. Das Problem ist, dass egal wie ich Speichere den screenshot, das gespeicherte Bild hat erheblichen Qualitätsverlust und pixelates um den text und so. Dies ist ein massives Problem, denn ich brauche das Bild zu speichern, genau so, wie es ist, sehen Sie auf den Benutzer-Bildschirm, ich kann keine Qualität Verlust überhaupt. Ich habe versucht, speichern Sie das Bild als jpg und png, und beide Gaben mir die Qualität Verlust. Ich Frage mich, wenn jemand könnte mich zu etwas code oder eine Methode, die mir erlauben würde, speichern Sie die screenshots in der gleichen Qualität wie die Benutzer-Bildschirm. Ich möchte speichern Sie das Bild als JPG oder PNG, wenn möglich. Jegliche Hilfe würde sehr geschätzt werden!

Verlieren screen-shot der Qualität, wenn man PNG nimmt erhebliche Arbeit. Verwenden Sie die zoom-Funktion von was auch immer Programm Sie verwenden, um das Bild betrachten.

InformationsquelleAutor Tony | 2012-06-07

vb.net

4

Erhalten Sie das Bild im Bitmap-format und speichern Sie es als bmp.
```
Private Function TakeScreenShot() As Bitmap

    Dim screenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)

    Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)

    Dim g As Graphics = Graphics.FromImage(screenGrab)

    g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)

    Return screenGrab

End Function
```
Danke für die schnelle Antwort, aber ich glaube, ich vergaß zu erwähnen, ich möchte speichern Sie es als jpg oder png, wenn möglich.
JPG und png sind nicht gut genug, um zu speichern Sie alle details des Bildes, so dass Sie Verlust der Qualität.
nun, das ist enttäuschend... also es gibt keine Möglichkeit um ihn herum?
Sie bekommen einen Verlust an detail, weil Sie speichern als JPEG. Wenn yo wollen, erhalten Sie alle Details, speichern Sie das Bild als Bitmap (BMP) oder PNG.
Dieser code wird nur greifen die Primären Bildschirm

InformationsquelleAutor Romil Kumar Jain

Für den Anfang, JPEG-Bilder mit einem verlustbehafteten Komprimierungsalgorithmus, so dass Sie neigen dazu, zu verlieren Qualität beim speichern in diesem format. Es ist besser zu sparen als Bitmap (BMP), die nicht komprimiert ist, oder PNG, die verwendet eine verlustfreie Komprimierung.

Hier ist der code zum kopieren der Arbeitsbereich des Bildschirms, um ein PNG-Bild.

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'the working area excludes all docked toolbars like taskbar, etc.
    Dim currentScreen = Screen.FromHandle(Me.Handle).WorkingArea

    'create a bitmap of the working area
    Using bmp As New Bitmap(currentScreen.Width, currentScreen.Height)

        'copy the screen to the image
        Using g = Graphics.FromImage(bmp)
            g.CopyFromScreen(New Point(0, 0), New Point(0, 0), currentScreen.Size)
        End Using

        'save the image
        Using sfd As New SaveFileDialog() With {.Filter = "PNG Image|*.png",
                                                .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop}

            If sfd.ShowDialog() = Windows.Forms.DialogResult.OK Then
                bmp.Save(sfd.FileName, System.Drawing.Imaging.ImageFormat.Png)
            End If
        End Using
    End Using
End Sub

InformationsquelleAutor Alex Essilfie

.Net normalerweise speichert die Datei in 96dpi, also mit dem folgenden code können Sie speichern Sie die Datei in höherer Auflösung als Jpeg oder ein anderes format.

'Create a new bitmap
Using Bmp As New Bitmap(800, 1000, Imaging.PixelFormat.Format32bppPArgb)
'Set the resolution to 300 DPI
    Bmp.SetResolution(300, 300)
'Create a graphics object from the bitmap
    Using G = Graphics.FromImage(Bmp)
'Paint the canvas white
        G.Clear(Color.White)
'Set various modes to higher quality
        G.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        G.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias

'Create a font
        Using F As New Font("Arial", 12)
'Create a brush
            Using B As New SolidBrush(Color.Black)
'Draw some text
                G.DrawString("Hello world", F, B, 20, 20)
            End Using
        End Using
    End Using

'Save the file as a TIFF
    Bmp.Save("c:\\test.Jpeg", Imaging.ImageFormat.Jpeg)
End Using

überprüfen Sie die post.

InformationsquelleAutor Romil Kumar Jain

Habe ich gefunden, dass die Zugabe von 3 Zeilen dem obigen code wird deutlich verbessert die Qualität des Bildes

var graphics = Graphics.FromImage(theRequestedAllocatedImage);

graphics.CompositingQuality = CompositingQuality.HighQuality;
graphics.InterpolationMode = InterpolationMode.HighQualityBicubic;
graphics.SmoothingMode = SmoothingMode.HighQuality;


// Then call
graphics.CopyFromScreen(..)

InformationsquelleAutor Developer

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim screenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)

    Dim screenGrab As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)

    Dim g As Graphics = Graphics.FromImage(screenGrab)

    g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screenSize)

    PictureBox1.Image = screenGrab
    PictureBox1.Image.Save("c:\picture.bmp")
End Sub

Bitte Bearbeiten Ihren code-format und wenn man erklären kann, dann wird die Antwort besser

InformationsquelleAutor rich

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.