Comment créer un visualiseur de PDF VB.NET avec IronPDF : Un tutoriel complet

Qu'est-ce qui rend la visualisation PDF difficile dans VB.NET ?

La boîte à outils de Visual Studio manque d'un contrôle standard de visualisation PDF. Les développeurs comptent souvent sur Internet Explorer ou des contrôles WebBrowser intégrés pour afficher les fichiers PDF, mais ces approches dépendent du lecteur PDF par défaut de l'utilisateur et peuvent introduire des coûts cachés lors du déploiement.

Les solutions traditionnelles peuvent également exiger l'installation de logiciels externes ou une configuration manuelle pour la gestion correcte des formulaires PDF, l'impression ou le rendu, ce qui augmente la complexité et limite la capacité de personnaliser l'affichage des PDF dans plusieurs environnements Windows.

Comment IronPDF simplifie-t-il la visualisation PDF dans VB.NET ?

IronPDF transforme la gestion des PDF dans les applications VB.NET en fournissant une bibliothèque autonome qui ne nécessite pas Adobe Reader ou d'autres visionneuses externes. Au-delà de la visualisation de base, il permet aux développeurs de créer, éditer, manipuler, et rendre les PDF de manière programmatique en utilisant des modèles .NET familiers.

L'architecture de la bibliothèque tire parti d'un moteur de rendu basé sur Chrome, assurant un affichage parfait des PDF complexes avec un support complet pour les fonctionnalités modernes comme les formulaires, annotations, et multimédia intégré. Cette approche garantit un rendu cohérent dans tous les environnements Windows.

Comment installer IronPDF dans votre projet VB.NET ?

La configuration d'IronPDF nécessite juste quelques étapes via le Gestionnaire de Packages NuGet. Ouvrez votre projet Windows Forms VB.NET dans Visual Studio et suivez ces étapes :

1. Ouvrez votre nouveau projet dans Visual Studio avec votre framework cible ou .NET Core.
2. Cliquez droit sur votre projet dans l'explorateur de solutions
3. Sélectionnez "Gérer les paquets NuGet"
4. Recherchez "IronPDF" dans l'onglet Parcourir
5. Cliquez sur Installer sur le package IronPDF

Après l'installation, ajoutez cette déclaration d'importation à vos fichiers VB.NET :

Imports IronPdf

Imports IronPdf

IRON VB CONVERTER ERROR developers@ironsoftware.com

Cette déclaration d'importation donne accès à toutes les classes et méthodes d'IronPDF à votre projet VB.NET, vous permettant de charger, rendre, imprimer et manipuler des documents PDF de manière programmatique.

Cette configuration inclut tous les composants d'exécution nécessaires, éliminant la configuration manuelle et évitant les coûts cachés.

Comment créer un visualiseur PDF de base dans Windows Forms ?

La création d'un visualiseur PDF commence par créer une application Windows Forms et implémenter les capacités de rendu d'IronPDF. Voici une approche simplifiée pour afficher des PDF dans votre application :

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

Explication du code :

• currentPdf stocke le document PDF chargé.
• pdfBitmaps contient des images bitmap pour chaque page PDF afin qu'elles puissent être affichées dans un contrôle PictureBox.
• LoadPdfButton_Click utilise un OpenFileDialog standard pour permettre aux utilisateurs de sélectionner un fichier PDF.
• PdfDocument.FromFile charge le document PDF, et RasterizeToImageFiles convertit chaque page en fichiers image.
• Chaque fichier est lu en mémoire comme un Bitmap, ajouté au tableau, et la première page est affichée avec DisplayCurrentPage().

Lorsque nous exécutons le programme, nous pourrons charger un fichier PDF via la fenêtre de dialogue qui apparaît lorsque nous cliquons sur le bouton "Charger PDF".

Comment implémenter des contrôles de navigation PDF ?

La navigation améliore l'expérience utilisateur en permettant le déplacement à travers des documents multipages. Ajoutez des boutons Précédent et Suivant à votre formulaire avec cette implémentation :

' 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

Ces procédures Private Sub gèrent la navigation à travers les pages PDF en utilisant Object sender, EventArgs e. Les boutons mettent à jour currentPage et appellent DisplayCurrentPage() pour rendre la page PDF dans le formulaire Windows.

' 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

Cela met à jour les états des boutons donc les utilisateurs ne peuvent pas naviguer au-delà de la première ou dernière page, tandis que le label montre le numéro de la page actuelle et le total des pages.

Comment charger des fichiers PDF à partir de différentes sources ?

IronPDF permet de charger des PDF à partir de diverses sources au-delà des fichiers locaux. Cette flexibilité permet l'intégration de bases de données, services web, et flux de mémoire :

' 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

Comment ajouter une fonctionnalité de zoom ?

Les contrôles de zoom améliorent la lisibilité pour les documents détaillés. Implémentez le zoom en utilisant la mise à l'échelle des images :

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

Ce code ajuste le niveau de zoom par étapes et appelle DisplayCurrentPage() pour appliquer la mise à l'échelle du zoom pour une lisibilité améliorée sur le bureau

Comment imprimer des documents PDF ?

La fonctionnalité d'impression complète l'expérience du visualiseur. IronPDF simplifie l'impression avec des méthodes intégrées :

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

Cette Private Sub permet aux utilisateurs d'imprimer le document PDF avec des paramètres d'imprimante par défaut ou personnalisés. GetPrintDocument() renvoie un objet PrintDocument pour l'intégration avec le PrintDialog de Windows Forms.

Comment implémenter la visualisation PDF dans des applications WPF ?

Alors que Windows Forms domine le développement desktop, les applications WPF peuvent également tirer parti d'IronPDF. L'approche diffère légèrement :

' 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

Quelles sont les meilleures pratiques pour les performances du visualiseur PDF ?

L'optimisation de la visualisation PDF assure une expérience utilisateur fluide :

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

Conclusion

Construire un visualiseur PDF dans VB.NET avec IronPDF élimine la complexité des approches traditionnelles tout en fournissant des fonctionnalités professionnelles. De la visualisation de fichiers de base au traitement avancé des formulaires PDF et à l'impression, IronPDF gère tous les aspects de l'interaction PDF dans vos applications Windows Forms.

Que ce soit pour afficher des rapports, traiter des formulaires, ou implémenter des systèmes de gestion de documents, IronPDF fournit les outils, le support, et les options de licence nécessaires pour des solutions PDF complètes.

Démarrez votre projet de visualiseur PDF VB.NET avec l'essai gratuit d'IronPDF pour explorer toutes les fonctionnalités. Passez à des déploiements en production avec des licences flexibles. For detailed API documentation and additional examples, visit the IronPDF documentation and explore the comprehensive VB.NET code samples.

Installer avec NuGet

PM >  Install-Package IronPdf

Consultez IronPDF sur NuGet pour une installation rapide. Avec plus de 10 millions de téléchargements, il transforme le développement PDF avec C#. Vous pouvez également télécharger le DLL ou l'installateur Windows.