Wie man einen VB.NET PDF-Viewer mit IronPDF erstellt: Ein vollständiges Tutorial

Was macht die PDF-Anzeige in VB.NET herausfordernd?

Der Visual Studio Werkzeugkasten hat keine Standard-PDF-Viewer-Steuerung. Entwickler verlassen sich häufig auf Internet Explorer oder eingebettete WebBrowser-Steuerungen, um PDF-Dateien anzuzeigen, aber diese Ansätze hängen vom Standard-PDF-Reader des Benutzers ab und können versteckte Kosten für die Bereitstellung verursachen.

Traditionelle Lösungen können auch die Installation externer Software oder manuelle Konfigurationen für die richtige PDF-Formularbearbeitung, das Drucken oder das Rendern erfordern, was die Komplexität erhöht und die Möglichkeit einschränkt, die Darstellung von PDFs über mehrere Windows-Umgebungen hinweg anzupassen.

Wie vereinfacht IronPDF die PDF-Anzeige in VB.NET?

IronPDF transformiert die PDF-Verarbeitung in VB.NET-Anwendungen, indem es eine in sich geschlossene Bibliothek bereitstellt, die keinen Adobe Reader oder andere externe Viewer benötigt. Über das einfache Anzeigen hinaus ermöglicht sie Entwicklern das Erstellen, Bearbeiten, Manipulieren und Rendern von PDFs programmgesteuert mit vertrauten .NET-Patterns.

Die Architektur der Bibliothek nutzt eine Chrome-basierte Rendering-Engine, die eine pixelgenaue Darstellung von komplexen PDFs mit voller Unterstützung für moderne Features wie Formulare, Anmerkungen und eingebettete Multimedia gewährleistet. Dieser Ansatz garantiert konsistentes Rendern in allen Windows-Umgebungen.

Wie installiert man IronPDF in Ihrem VB.NET-Projekt?

Das Einrichten von IronPDF erfordert nur wenige Schritte über den NuGet Package Manager. Öffnen Sie Ihr VB.NET Windows Forms-Projekt in Visual Studio und folgen Sie diesen Schritten:

1. Öffnen Sie Ihr neues Projekt in Visual Studio mit Ihrem Ziel-Framework oder .NET Core.
2. Klicken Sie mit der rechten Maustaste im Projektmappen-Explorer auf Ihr Projekt
3. Wählen Sie "NuGet-Pakete verwalten"
4. Suchen Sie im Reiter Durchstöbern nach 'IronPDF'
5. Klicken Sie auf Installieren beim IronPDF-Paket

Nach der Installation fügen Sie diese Import-Anweisung zu Ihren VB.NET-Dateien hinzu:

Imports IronPdf

Imports IronPdf

IRON VB CONVERTER ERROR developers@ironsoftware.com

Diese Import-Anweisung gibt Ihrem VB.NET-Projekt Zugriff auf alle IronPDF-Klassen und -Methoden und ermöglicht das Laden, Rendern, Drucken und Manipulieren von PDF-Dokumenten programmgesteuert.

Dieses Setup beinhaltet alle notwendigen Laufzeitkomponenten und eliminiert manuelle Konfigurationen sowie versteckte Kosten.

Wie erstellt man einen einfachen PDF-Viewer in Windows Forms?

Der Aufbau eines PDF-Viewers beginnt mit der Erstellung einer Windows Forms-Anwendung und der Implementierung der Rendering-Fähigkeiten von IronPDF. Hier ist ein vereinfachter Ansatz zur Anzeige von PDFs in Ihrer Anwendung:

Imports System.Drawing
Imports System.IO
Imports IronPdf
Public Class Form1
    Private currentPdf As PdfDocument
    Private pdfBitmaps() As Bitmap
    Private currentPage As Integer = 0
    Private zoomLevel As Double = 1.0
    ' Load PDF Button
    Private Sub LoadPdfButton_Click(sender As Object, e As EventArgs) Handles LoadPdfButton.Click
        Using openFileDialog As New OpenFileDialog()
            openFileDialog.Filter = "PDF Files (*.pdf)|*.pdf"
            If openFileDialog.ShowDialog() = DialogResult.OK Then
                ' Load PDF
                currentPdf = PdfDocument.FromFile(openFileDialog.FileName)
                ' Render all pages to image files
                Dim filePaths As String() = currentPdf.RasterizeToImageFiles("page_*.png")
                ' Load images into memory
                Dim pageList As New List(Of Bitmap)()
                For Each filePath As String In filePaths
                    Using ms As New MemoryStream(File.ReadAllBytes(filePath))
                        Dim bmp As New Bitmap(ms)
                        pageList.Add(bmp)
                    End Using
                Next
                pdfBitmaps = pageList.ToArray()
                currentPage = 0
                zoomLevel = 1.0
                DisplayCurrentPage()
            End If
        End Using
    End Sub
    ' Show the current page in PictureBox
    Private Sub DisplayCurrentPage()
        If pdfBitmaps IsNot Nothing AndAlso currentPage < pdfBitmaps.Length Then
            Dim bmp As Bitmap = pdfBitmaps(currentPage)
            ' Apply zoom
            Dim newWidth As Integer = CInt(bmp.Width * zoomLevel)
            Dim newHeight As Integer = CInt(bmp.Height * zoomLevel)
            Dim zoomedBmp As New Bitmap(bmp, newWidth, newHeight)
            PictureBox1.Image = zoomedBmp
        Else
            PictureBox1.Image = Nothing
        End If
        UpdateNavigationButtons()
    End Sub

Imports System.Drawing
Imports System.IO
Imports IronPdf
Public Class Form1
    Private currentPdf As PdfDocument
    Private pdfBitmaps() As Bitmap
    Private currentPage As Integer = 0
    Private zoomLevel As Double = 1.0
    ' Load PDF Button
    Private Sub LoadPdfButton_Click(sender As Object, e As EventArgs) Handles LoadPdfButton.Click
        Using openFileDialog As New OpenFileDialog()
            openFileDialog.Filter = "PDF Files (*.pdf)|*.pdf"
            If openFileDialog.ShowDialog() = DialogResult.OK Then
                ' Load PDF
                currentPdf = PdfDocument.FromFile(openFileDialog.FileName)
                ' Render all pages to image files
                Dim filePaths As String() = currentPdf.RasterizeToImageFiles("page_*.png")
                ' Load images into memory
                Dim pageList As New List(Of Bitmap)()
                For Each filePath As String In filePaths
                    Using ms As New MemoryStream(File.ReadAllBytes(filePath))
                        Dim bmp As New Bitmap(ms)
                        pageList.Add(bmp)
                    End Using
                Next
                pdfBitmaps = pageList.ToArray()
                currentPage = 0
                zoomLevel = 1.0
                DisplayCurrentPage()
            End If
        End Using
    End Sub
    ' Show the current page in PictureBox
    Private Sub DisplayCurrentPage()
        If pdfBitmaps IsNot Nothing AndAlso currentPage < pdfBitmaps.Length Then
            Dim bmp As Bitmap = pdfBitmaps(currentPage)
            ' Apply zoom
            Dim newWidth As Integer = CInt(bmp.Width * zoomLevel)
            Dim newHeight As Integer = CInt(bmp.Height * zoomLevel)
            Dim zoomedBmp As New Bitmap(bmp, newWidth, newHeight)
            PictureBox1.Image = zoomedBmp
        Else
            PictureBox1.Image = Nothing
        End If
        UpdateNavigationButtons()
    End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Code-Erklärung:

• currentPdf speichert das geladene PDF-Dokument.
• pdfBitmaps enthält Bitmap-Bilder für jede PDF-Seite, damit sie in einer PictureBox-Steuerung angezeigt werden können.
• LoadPdfButton_Click verwendet einen standardmäßigen OpenFileDialog, um Benutzern das Auswählen einer PDF-Datei zu ermöglichen.
• PdfDocument.FromFile lädt das PDF-Dokument, und RasterizeToImageFiles konvertiert jede Seite in Bilddateien.
• Jede Datei wird als Bitmap in den Speicher eingelesen, zum Array hinzugefügt und die erste Seite mit DisplayCurrentPage() angezeigt.

Wenn wir das Programm ausführen, können wir eine PDF-Datei über das Dialog-Popup laden, wenn wir auf die Schaltfläche 'PDF laden' klicken.

Wie implementiert man PDF-Navigationssteuerungen?

Navigation verbessert die Benutzererfahrung, indem sie Bewegungen durch mehrseitige Dokumente ermöglicht. Fügen Sie Ihrer Form vorherige und nächste Schaltflächen mit dieser Implementierung hinzu:

' Next Page Button
Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click
    If currentPage < pdfBitmaps.Length - 1 Then
        currentPage += 1
        DisplayCurrentPage()
    End If
End Sub
' Previous Page Button
Private Sub PreviousButton_Click(sender As Object, e As EventArgs) Handles PreviousButton.Click
    If currentPage > 0 Then
        currentPage -= 1
        DisplayCurrentPage()
    End If
End Sub

' Next Page Button
Private Sub NextButton_Click(sender As Object, e As EventArgs) Handles NextButton.Click
    If currentPage < pdfBitmaps.Length - 1 Then
        currentPage += 1
        DisplayCurrentPage()
    End If
End Sub
' Previous Page Button
Private Sub PreviousButton_Click(sender As Object, e As EventArgs) Handles PreviousButton.Click
    If currentPage > 0 Then
        currentPage -= 1
        DisplayCurrentPage()
    End If
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Diese Private Sub-Prozeduren behandeln die Navigation durch die PDF-Seiten mit Object sender, EventArgs e. Schaltflächen aktualisieren currentPage und rufen DisplayCurrentPage() auf, um die PDF-Seite im Windows Form zu rendern.

' Update navigation controls and page label
Private Sub UpdateNavigationButtons()
    PreviousButton.Enabled = currentPage > 0
    NextButton.Enabled = currentPage < pdfBitmaps.Length - 1
    PageLabel.Text = $"Page {currentPage + 1} of {pdfBitmaps.Length}"
End Sub

' Update navigation controls and page label
Private Sub UpdateNavigationButtons()
    PreviousButton.Enabled = currentPage > 0
    NextButton.Enabled = currentPage < pdfBitmaps.Length - 1
    PageLabel.Text = $"Page {currentPage + 1} of {pdfBitmaps.Length}"
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Dadurch werden die Schaltflächenstatus aktualisiert, damit Benutzer nicht über die erste oder letzte Seite hinaus navigieren können, während das Label die aktuelle Seitenzahl und die Gesamtseiten anzeigt.

Wie lädt man PDF-Dateien aus verschiedenen Quellen?

IronPDF unterstützt das Laden von PDFs aus verschiedenen Quellen über lokale Dateien hinaus. Diese Flexibilität ermöglicht die Integration mit Datenbanken, Webdiensten und Speicherströmen:

' Load PDF from URL
Private Sub LoadUrlButton_Click(sender As Object, e As EventArgs) Handles LoadUrlButton.Click
    Dim url As String = UrlTextBox.Text.Trim()
    If String.IsNullOrEmpty(url) Then
        MessageBox.Show("Please enter a valid URL.")
        Return
    End If
    Try
        LoadFromUrl(url)
    Catch ex As Exception
        MessageBox.Show("Failed to load PDF: " & ex.Message)
    End Try
End Sub

' Load PDF from URL
Private Sub LoadUrlButton_Click(sender As Object, e As EventArgs) Handles LoadUrlButton.Click
    Dim url As String = UrlTextBox.Text.Trim()
    If String.IsNullOrEmpty(url) Then
        MessageBox.Show("Please enter a valid URL.")
        Return
    End If
    Try
        LoadFromUrl(url)
    Catch ex As Exception
        MessageBox.Show("Failed to load PDF: " & ex.Message)
    End Try
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Private Sub LoadFromUrl(url As String)
    Dim renderer As New ChromePdfRenderer()
    renderer.RenderingOptions.EnableJavaScript = True
    renderer.RenderingOptions.CssMediaType = Rendering.PdfCssMediaType.Print
    renderer.RenderingOptions.WaitFor.JavaScript(3000)
    currentPdf = renderer.RenderUrlAsPdf(url)
    LoadPdfBitmaps()
End Sub

Private Sub LoadFromUrl(url As String)
    Dim renderer As New ChromePdfRenderer()
    renderer.RenderingOptions.EnableJavaScript = True
    renderer.RenderingOptions.CssMediaType = Rendering.PdfCssMediaType.Print
    renderer.RenderingOptions.WaitFor.JavaScript(3000)
    currentPdf = renderer.RenderUrlAsPdf(url)
    LoadPdfBitmaps()
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Private Sub LoadHtmlButton_Click(sender As Object, e As EventArgs) Handles LoadHtmlButton.Click
    Dim htmlContent As String = "<html><body><h1>Hello PDF!</h1><p>This is a hardcoded HTML PDF test.</p></body></html>"
    LoadFromHtml(htmlContent)
End Sub
Private Sub LoadFromHtml(htmlContent As String)
    Dim renderer As New ChromePdfRenderer()
    currentPdf = renderer.RenderHtmlAsPdf(htmlContent)
    LoadPdfBitmaps()
End Sub

Private Sub LoadHtmlButton_Click(sender As Object, e As EventArgs) Handles LoadHtmlButton.Click
    Dim htmlContent As String = "<html><body><h1>Hello PDF!</h1><p>This is a hardcoded HTML PDF test.</p></body></html>"
    LoadFromHtml(htmlContent)
End Sub
Private Sub LoadFromHtml(htmlContent As String)
    Dim renderer As New ChromePdfRenderer()
    currentPdf = renderer.RenderHtmlAsPdf(htmlContent)
    LoadPdfBitmaps()
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Wie fügt man Zoom-Funktionalität hinzu?

Zoom-Steuerungen verbessern die Lesbarkeit bei detaillierten Dokumenten. Implementieren Sie den Zoom durch Bildskalierung:

Private Sub ZoomInButton_Click(sender As Object, e As EventArgs) Handles ZoomInButton.Click
        zoomLevel = Math.Min(zoomLevel + 0.25, 3.0)
        DisplayCurrentPage()
    End Sub
    Private Sub ZoomOutButton_Click(sender As Object, e As EventArgs) Handles ZoomOutButton.Click
        zoomLevel = Math.Max(zoomLevel - 0.25, 0.5)
        DisplayCurrentPage()
    End Sub
    Private Sub ApplyZoom()
        If pdfBitmaps IsNot Nothing AndAlso currentPage < pdfBitmaps.Length Then
            Dim pageImage As Bitmap = pdfBitmaps(currentPage)
            Dim newWidth As Integer = CInt(pageImage.Width * zoomLevel)
            Dim newHeight As Integer = CInt(pageImage.Height * zoomLevel)
            Dim zoomedImage As New Bitmap(pageImage, newWidth, newHeight)
            PictureBox1.Image = zoomedImage
        Else
            PictureBox1.Image = Nothing
        End If
    End Sub

Private Sub ZoomInButton_Click(sender As Object, e As EventArgs) Handles ZoomInButton.Click
        zoomLevel = Math.Min(zoomLevel + 0.25, 3.0)
        DisplayCurrentPage()
    End Sub
    Private Sub ZoomOutButton_Click(sender As Object, e As EventArgs) Handles ZoomOutButton.Click
        zoomLevel = Math.Max(zoomLevel - 0.25, 0.5)
        DisplayCurrentPage()
    End Sub
    Private Sub ApplyZoom()
        If pdfBitmaps IsNot Nothing AndAlso currentPage < pdfBitmaps.Length Then
            Dim pageImage As Bitmap = pdfBitmaps(currentPage)
            Dim newWidth As Integer = CInt(pageImage.Width * zoomLevel)
            Dim newHeight As Integer = CInt(pageImage.Height * zoomLevel)
            Dim zoomedImage As New Bitmap(pageImage, newWidth, newHeight)
            PictureBox1.Image = zoomedImage
        Else
            PictureBox1.Image = Nothing
        End If
    End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Dieser Code passt den zoomLevel in Schritten an und ruft DisplayCurrentPage() auf, um Zoomeinstellungen für eine verbesserte Lesbarkeit auf dem Desktop anzuwenden

Wie druckt man PDF-Dokumente?

Die Druckfunktionalität rundet das Viewer-Erlebnis ab. IronPDF vereinfacht das Drucken mit eingebauten Methoden:

Private Sub PrintButton_Click(sender As Object, e As EventArgs) Handles PrintButton.Click
        If currentPdf IsNot Nothing Then
            ' Simple print with default settings
            currentPdf.Print()
            ' Or with custom settings
            Dim printDoc As PrintDocument = currentPdf.GetPrintDocument()
            Using printDialog As New PrintDialog()
                printDialog.Document = printDoc
                If printDialog.ShowDialog() = DialogResult.OK Then
                    printDoc.Print()
                End If
            End Using
        End If
    End Sub

Private Sub PrintButton_Click(sender As Object, e As EventArgs) Handles PrintButton.Click
        If currentPdf IsNot Nothing Then
            ' Simple print with default settings
            currentPdf.Print()
            ' Or with custom settings
            Dim printDoc As PrintDocument = currentPdf.GetPrintDocument()
            Using printDialog As New PrintDialog()
                printDialog.Document = printDoc
                If printDialog.ShowDialog() = DialogResult.OK Then
                    printDoc.Print()
                End If
            End Using
        End If
    End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Diese Private Sub erlaubt es Benutzern, das PDF-Dokument mit Standard- oder benutzerdefinierten Druckereinstellungen zu drucken. GetPrintDocument() gibt ein PrintDocument-Objekt zur Integration mit Windows Forms PrintDialog zurück.

Wie implementiert man die PDF-Anzeige in WPF-Anwendungen?

Während Windows Forms den Desktop-Entwicklungen dominiert, können WPF-Anwendungen auch IronPDF nutzen. Der Ansatz unterscheidet sich leicht:

' In WPF Window code-behind
Private Sub LoadPdfInWpf(filePath As String)
    Dim pdfDoc As PdfDocument = PdfDocument.FromFile(filePath)
    Dim pageImage As Bitmap = pdfDoc.ToBitmap(0)
    ' Convert to WPF-compatible image
    Dim bitmapImage As New BitmapImage()
    Using memory As New MemoryStream()
        pageImage.Save(memory, ImageFormat.Png)
        memory.Position = 0
        bitmapImage.BeginInit()
        bitmapImage.StreamSource = memory
        bitmapImage.CacheOption = BitmapCacheOption.OnLoad
        bitmapImage.EndInit()
    End Using
    ImageControl.Source = bitmapImage
End Sub

' In WPF Window code-behind
Private Sub LoadPdfInWpf(filePath As String)
    Dim pdfDoc As PdfDocument = PdfDocument.FromFile(filePath)
    Dim pageImage As Bitmap = pdfDoc.ToBitmap(0)
    ' Convert to WPF-compatible image
    Dim bitmapImage As New BitmapImage()
    Using memory As New MemoryStream()
        pageImage.Save(memory, ImageFormat.Png)
        memory.Position = 0
        bitmapImage.BeginInit()
        bitmapImage.StreamSource = memory
        bitmapImage.CacheOption = BitmapCacheOption.OnLoad
        bitmapImage.EndInit()
    End Using
    ImageControl.Source = bitmapImage
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Was sind die besten Praktiken zur Leistungsoptimierung eines PDF-Viewers?

Die Optimierung der PDF-Anzeige sorgt für ein reibungsloses Benutzererlebnis:

Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
    If currentPdf IsNot Nothing Then
        currentPdf.Dispose()
    End If
    MyBase.OnFormClosed(e)
End Sub

Protected Overrides Sub OnFormClosed(e As FormClosedEventArgs)
    If currentPdf IsNot Nothing Then
        currentPdf.Dispose()
    End If
    MyBase.OnFormClosed(e)
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Private Async Sub LoadPdfAsync(filePath As String)
    LoadingLabel.Visible = True
    Await Task.Run(Sub()
        currentPdf = PdfDocument.FromFile(filePath)
    End Sub)
    LoadingLabel.Visible = False
    DisplayCurrentPage()
End Sub

Private Async Sub LoadPdfAsync(filePath As String)
    LoadingLabel.Visible = True
    Await Task.Run(Sub()
        currentPdf = PdfDocument.FromFile(filePath)
    End Sub)
    LoadingLabel.Visible = False
    DisplayCurrentPage()
End Sub

IRON VB CONVERTER ERROR developers@ironsoftware.com

Abschluss

Der Aufbau eines PDF-Viewers in VB.NET mit IronPDF beseitigt die Komplexität traditioneller Ansätze und bietet gleichzeitig professionelle Funktionen. Von der grundlegenden Dateianzeige bis hin zur erweiterten PDF-Formularbearbeitung und -Druck, IronPDF behandelt alle Aspekte der PDF-Interaktion innerhalb Ihrer Windows Forms-Anwendungen.

Ob beim Anzeigen von Berichten, Bearbeiten von Formularen oder Implementieren von Dokumentenmanagementsystemen, IronPDF bietet die Werkzeuge, Unterstützung und Lizenzoptionen, die für umfassende PDF-Lösungen benötigt werden.

Starten Sie Ihr VB.NET-PDF-Viewer-Projekt mit IronPDFs kostenloser Testversion, um alle Funktionen zu erkunden. Skalieren Sie auf Produktionsbereitstellungen mit flexiblen Lizenzierungen. For detailed API documentation and additional examples, visit the IronPDF documentation and explore the comprehensive VB.NET code samples.

Mit NuGet installieren

PM >  Install-Package IronPdf

Schauen Sie sich IronPDF auf NuGet für eine schnelle Installation an. Mit über 10 Millionen Downloads transformiert es die PDF-Entwicklung mit C#. Sie können auch das DLL oder den Windows Installer herunterladen.